FileMgr

✏️ /opt/alt/libharu/usr/share/libharu/bindings/vb.net/demo/ImageDemo.vb

✕ Tutup

Imports HPdf

Module ImageDemo
    Private Sub ShowDescription(ByRef page As HPdfPage, ByVal x As Single, ByVal y As Single, ByVal text As String)
        Dim buf As String

page.MoveTo(x, y - 10)
        page.LineTo(x, y + 10)
        page.MoveTo(x - 10, y)
        page.LineTo(x + 10, y)
        page.Stroke()

page.SetFontAndSize(page.GetCurrentFont(), 8)
        page.SetRGBFill(0, 0, 0)

page.BeginText()

buf = "(x=" & x & ",y=" & y & ")"
        page.MoveTextPos(x - page.TextWidth(buf) - 5, y - 10)
        page.ShowText(buf)
        page.EndText()

page.BeginText()
        page.MoveTextPos(x - 20, y - 25)
        page.ShowText(text)
        page.EndText()
    End Sub

Sub Main()
        Console.WriteLine("libhpdf-" & HPdfDoc.HPdfGetVersion())

Try
            Dim pdf As HPdfDoc = New HPdfDoc()

pdf.SetCompressionMode(HPdfDoc.HPDF_COMP_ALL)

' create default-font
            Dim font As HPdfFont = pdf.GetFont("Helvetica", Nothing)

' add a new page object.
            Dim page As HPdfPage = pdf.AddPage()

page.SetWidth(550)
            page.SetHeight(500)

Dim dst As HPdfDestination = page.CreateDestination()
            dst.SetXYZ(0, page.GetHeight(), 1)
            pdf.SetOpenAction(dst)

page.BeginText()
            page.SetFontAndSize(font, 20)
            page.MoveTextPos(220, page.GetHeight() - 70)
            page.ShowText("ImageDemo")
            page.EndText()

' load image file. 
            Dim image As HPdfImage = pdf.LoadPngImageFromFile("demo\\pngsuite\\basn3p02.png")

' image1 is masked by image2.
            Dim image1 As HPdfImage = pdf.LoadPngImageFromFile("demo\\pngsuite\\basn3p02.png")

' image2 is a mask image. 
            Dim image2 As HPdfImage = pdf.LoadPngImageFromFile("demo\\pngsuite\\basn0g01.png")

' image3 is a RGB-color image. we use this image for color-mask
            ' demo.
            '
            Dim image3 As HPdfImage = pdf.LoadPngImageFromFile("demo\\pngsuite\\maskimage.png")

Dim iw As Single = image.GetWidth()
            Dim ih As Single = image.GetHeight()

page.SetLineWidth(0.5F)

Dim x As Single = 100
            Dim y As Single = page.GetHeight() - 150

' Draw image to the canvas. (normal-mode with actual size.)
            page.DrawImage(image, x, y, iw, ih)

ShowDescription(page, x, y, "Actual Size")

x += 150

' Scalling image (X direction)
            page.DrawImage(image, x, y, iw * 1.5F, ih)

ShowDescription(page, x, y, "Scalling image (X direction)")

x += 150

' Scalling image (Y direction).
            page.DrawImage(image, x, y, iw, ih * 1.5F)
            ShowDescription(page, x, y, "Scalling image (Y direction)")

x = 100
            y -= 120

' Skewing image. 
            Dim angle1 As Single = 10
            Dim angle2 As Single = 20
            Dim rad1 As Single = angle1 / 180 * 3.141592F
            Dim rad2 As Single = angle2 / 180 * 3.141592F

page.GSave()

page.Concat(iw, Math.Tan(rad1) * iw, Math.Tan(rad2) * ih, ih, x, y)

page.ExecuteXObject(image)
            page.GRestore()

ShowDescription(page, x, y, "Skewing image")

x += 150

' Rotating image 
            Dim angle As Single = 30                        ' rotation of 30 degrees.
            Dim rad As Single = angle / 180 * 3.141592F     ' Calculate the radian value.

page.GSave()

page.Concat((iw * Math.Cos(rad)), (iw * Math.Sin(rad)), (ih * -Math.Sin(rad)), (ih * Math.Cos(rad)), x, y)

page.ExecuteXObject(image)
            page.GRestore()

ShowDescription(page, x, y, "Rotating image")

x += 150

'  draw masked image.

'  Set image2 to the mask image of image1
            image1.SetMaskImage(image2)

page.SetRGBFill(0, 0, 0)
            page.BeginText()
            page.MoveTextPos(x - 6, y + 14)
            page.ShowText("MASKMASK")
            page.EndText()

page.DrawImage(image1, x - 3, y - 3, iw + 6, ih + 6)

ShowDescription(page, x, y, "masked image")

x = 100
            y -= 120

' color mask.
            page.SetRGBFill(0, 0, 0)
            page.BeginText()
            page.MoveTextPos(x - 6, y + 14)
            page.ShowText("MASKMASK")
            page.EndText()

image3.SetColorMask(0, 255, 0, 0, 0, 255)
            page.DrawImage(image3, x, y, iw, ih)

ShowDescription(page, x, y, "Color Mask")

' save the document to a file 
            pdf.SaveToFile("ImageDemo.pdf")

Catch ex As Exception
            Console.Error.WriteLine(ex.Message)
        End Try
    End Sub

End Module

Batal

⬅ vb.net 9 item

Nama	Tipe	Ukuran	Diubah	Perm	Aksi
📄 Encryption.vb	vb	1.2 KB	11/03/25 21:13	0644	✏️ ⬇
📄 FontDemo.vb	vb	2.7 KB	11/03/25 21:13	0644	✏️ ⬇
📄 ImageDemo.vb	vb	5 KB	11/03/25 21:13	0644	✏️ ⬇
📄 LineDemo.vb	vb	8.9 KB	11/03/25 21:13	0644	✏️ ⬇
📄 OutlineDemo.vb	vb	2.5 KB	11/03/25 21:13	0644	✏️ ⬇
📄 Permission.vb	vb	1.3 KB	11/03/25 21:13	0644	✏️ ⬇
📄 RawImageDemo.vb	vb	2.9 KB	11/03/25 21:13	0644	✏️ ⬇
📄 SlideShowDemo.vb	vb	5.1 KB	11/03/25 21:13	0644	✏️ ⬇
📄 TextDemo.vb	vb	9.5 KB	11/03/25 21:13	0644	✏️ ⬇

✏️ Rename

🔑 Ubah Permission