One Hat Cyber Team
Your IP :
216.73.216.115
Server IP :
194.44.31.54
Server :
Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64
Server Software :
Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k
PHP Version :
5.6.40
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
libharu
/
if
/
vb.net
/
demo
/
View File Name :
LineDemo.vb
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 verious 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_SCUARE_END) DrawLine2(page, 60, 440, "HPDF_PROJECTING_SCUARE_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.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(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.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.MoveTextPos(x3 - x2, y3 - y2) page.ShowText("(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