?HAMA

Navigation

Breadcrumbs

/ / proc / thread-self / root / opt / alt / libharu / usr / share / libharu / bindings / vb.net / demo

Create

Create File | Create Folder | Upload Files | Run Command

Edit File Size: 8.86 KB

/proc/thread-self/root/opt/alt/libharu/usr/share/libharu/bindings/vb.net/demo/LineDemo.vb

Text Base64

Imports HPdf

Module LineDemo

Private Sub DrawLine(ByRef page As HPdfPage, ByVal x As Single, ByVal y As Single, ByVal label As String)
        page.BeginText()
        page.MoveTextPos(x, y - 10)
        page.ShowText(label)
        page.EndText()

page.MoveTo(x, y - 15)
        page.LineTo(x + 220, y - 15)
        page.Stroke()
    End Sub

Private Sub DrawLine2(ByRef page As HPdfPage, ByVal x As Single, ByVal y As Single, ByVal label As String)
        page.BeginText()
        page.MoveTextPos(x, y)
        page.ShowText(label)
        page.EndText()

page.MoveTo(x + 30, y - 25)
        page.LineTo(x + 160, y - 25)
        page.Stroke()
    End Sub

Private Sub DrawRect(ByRef page As HPdfPage, ByVal x As Single, ByVal y As Single, ByVal label As String)
        page.BeginText()
        page.MoveTextPos(x, y - 10)
        page.ShowText(label)
        page.EndText()

page.Rectangle(x, y - 40, 220, 25)
    End Sub

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

Try
            Const page_title As String = "LineDemo"

Dim pdf As HPdfDoc = New HPdfDoc()

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

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

' print the lines of the page.
            page.SetLineWidth(1)
            page.Rectangle(50, 50, page.GetWidth() - 100, page.GetHeight() - 110)
            page.Stroke()

' print the title of the page (with positioning center). 
            page.SetFontAndSize(font, 24)
            Dim tw As Single = page.TextWidth(page_title)
            page.BeginText()
            page.MoveTextPos((page.GetWidth() - tw) / 2, page.GetHeight() - 50)
            page.ShowText(page_title)
            page.EndText()

page.SetFontAndSize(font, 10)

' Draw various widths of lines.
            page.SetLineWidth(0)
            DrawLine(page, 60, 770, "line width = 0")

page.SetLineWidth(1.0F)
            DrawLine(page, 60, 740, "line width = 1.0")

page.SetLineWidth(2.0F)
            DrawLine(page, 60, 710, "line width = 2.0")

' Line dash pattern
            Dim dash_mode1 As UShort() = {3}
            Dim dash_mode2 As UShort() = {3, 7}
            Dim dash_mode3 As UShort() = {8, 7, 2, 7}

page.SetLineWidth(1.0F)

page.SetDash(dash_mode1, 1)
            DrawLine(page, 60, 680, "dash_ptn=[3], phase=1 -- 2 on, 3 off, 3 on...")

page.SetDash(dash_mode2, 2)
            DrawLine(page, 60, 650, "dash_ptn=[7, 3], phase=2 -- 5 on 3 off, 7 on,...")

page.SetDash(dash_mode3, 0)
            DrawLine(page, 60, 620, "dash_ptn=[8, 7, 2, 7], phase=0")

page.SetDash(Nothing, 0)

page.SetLineWidth(30)
            page.SetRGBStroke(0.0F, 0.5F, 0.0F)

' Line Cap Style
            page.SetLineCap(HPdfLineCap.HPDF_BUTT_END)
            DrawLine2(page, 60, 570, "HPDF_BUTT_END")

page.SetLineCap(HPdfLineCap.HPDF_ROUND_END)
            DrawLine2(page, 60, 505, "HPDF_ROUND_END")

page.SetLineCap(HPdfLineCap.HPDF_PROJECTING_SQUARE_END)
            DrawLine2(page, 60, 440, "HPDF_PROJECTING_SQUARE_END")

' Line Join Style
            page.SetLineWidth(30)
            page.SetRGBStroke(0.0F, 0.0F, 0.5F)

page.SetLineJoin(HPdfLineJoin.HPDF_MITER_JOIN)
            page.MoveTo(120, 300)
            page.LineTo(160, 340)
            page.LineTo(200, 300)
            page.Stroke()

page.BeginText()
            page.MoveTextPos(60, 360)
            page.ShowText("HPDF_MITER_JOIN")
            page.EndText()

page.SetLineJoin(HPdfLineJoin.HPDF_ROUND_JOIN)
            page.MoveTo(120, 195)
            page.LineTo(160, 235)
            page.LineTo(200, 195)
            page.Stroke()

page.BeginText()
            page.MoveTextPos(60, 255)
            page.ShowText("HPDF_ROUND_JOIN")
            page.EndText()

page.SetLineJoin(HPdfLineJoin.HPDF_BEVEL_JOIN)
            page.MoveTo(120, 90)
            page.LineTo(160, 130)
            page.LineTo(200, 90)
            page.Stroke()

page.BeginText()
            page.MoveTextPos(60, 150)
            page.ShowText("HPDF_BEVEL_JOIN")
            page.EndText()

' Draw Rectangle
            page.SetLineWidth(2)
            page.SetRGBStroke(0, 0, 0)
            page.SetRGBFill(0.75F, 0.0F, 0.0F)

DrawRect(page, 300, 770, "Stroke")
            page.Stroke()

DrawRect(page, 300, 720, "Fill")
            page.Fill()

DrawRect(page, 300, 670, "Fill then Stroke")
            page.FillStroke()

' Clip Rect
            page.GSave()  ' Save the current graphic state
            DrawRect(page, 300, 620, "Clip Rectangle")
            page.Clip()
            page.Stroke()
            page.SetFontAndSize(font, 13)

page.BeginText()
            page.MoveTextPos(290, 600)
            page.SetTextLeading(12)
            page.ShowText("Clip Clip Clip Clip Clip Clipi Clip Clip Clip")
            page.ShowTextNextLine("Clip Clip Clip Clip Clip Clip Clip Clip Clip")
            page.ShowTextNextLine("Clip Clip Clip Clip Clip Clip Clip Clip Clip")
            page.EndText()
            page.GRestore()

' Curve Example(CurveTo2)
            Dim x As Single = 330
            Dim y As Single = 440
            Dim x1 As Single = 430
            Dim y1 As Single = 530
            Dim x2 As Single = 480
            Dim y2 As Single = 470
            Dim x3 As Single = 480
            Dim y3 As Single = 90

page.SetRGBFill(0, 0, 0)

page.BeginText()
            page.MoveTextPos(300, 540)
            page.ShowText("CurveTo2(x1, y1, x2. y2)")
            page.EndText()

page.BeginText()
            page.MoveTextPos(x + 5, y - 5)
            page.ShowText("Current point")
            page.MoveTextPos(x1 - x, y1 - y)
            page.ShowText("(x1, y1)")
            page.MoveTextPos(x2 - x1, y2 - y1)
            page.ShowText("(x2, y2)")
            page.EndText()

page.SetDash(dash_mode1, 0)

page.SetLineWidth(0.5F)
            page.MoveTo(x1, y1)
            page.LineTo(x2, y2)
            page.Stroke()

page.SetDash(Nothing, 0)

page.SetLineWidth(1.5F)

page.MoveTo(x, y)
            page.CurveTo2(x1, y1, x2, y2)
            page.Stroke()

' Curve Example(CurveTo3)
            y -= 150
            y1 -= 150
            y2 -= 150

page.BeginText()
            page.MoveTextPos(300, 390)
            page.ShowText("CurveTo3(x1, y1, x2. y2)")
            page.EndText()

page.SetDash(dash_mode1, 0)

page.SetLineWidth(0.5F)
            page.MoveTo(x, y)
            page.LineTo(x1, y1)
            page.Stroke()

page.SetDash(Nothing, 0)

page.SetLineWidth(1.5F)
            page.MoveTo(x, y)
            page.CurveTo3(x1, y1, x2, y2)
            page.Stroke()

' Curve Example(CurveTo)
            y -= 150
            y1 -= 160
            y2 -= 130
            x2 += 10

page.BeginText()
            page.MoveTextPos(300, 240)
            page.ShowText("CurveTo(x1, y1, x2. y2, x3, y3)")
            page.EndText()

page.SetDash(dash_mode1, 0)

page.SetLineWidth(0.5F)
            page.MoveTo(x, y)
            page.LineTo(x1, y1)
            page.Stroke()
            page.MoveTo(x2, y2)
            page.LineTo(x3, y3)
            page.Stroke()

page.SetDash(Nothing, 0)

page.SetLineWidth(1.5F)
            page.MoveTo(x, y)
            page.CurveTo(x1, y1, x2, y2, x3, y3)
            page.Stroke()

pdf.SaveToFile("LineDemo.pdf")

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

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Directory Contents

Dirs: 0 × Files: 9

Sort:

Enable drag-to-move

Name	Size	Perms	Modified	Actions
Encryption.vb	1.17 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive
FontDemo.vb	2.75 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive
ImageDemo.vb	5.03 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive
LineDemo.vb	8.86 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive
OutlineDemo.vb	2.45 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive
Permission.vb	1.35 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive
RawImageDemo.vb	2.92 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive
SlideShowDemo.vb	5.13 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive
TextDemo.vb	9.46 KB	lrw-r--r--	2025-03-11 14:13:06	Edit Download recursive recursive