__ __ __ __ _____ _ _ _____ _ _ _
| \/ | \ \ / / | __ \ (_) | | / ____| | | | |
| \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | |
| |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | |
| | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | |
|_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1
if you need WebShell for Seo everyday contact me on Telegram
Telegram Address : @jackleet
For_More_Tools:
Imports HPdf
Module OutlineDemo
Private Sub PrintPage(ByRef page As HPdfPage, ByVal page_num As Integer)
page.SetWidth(800)
page.SetHeight(800)
page.BeginText()
page.MoveTextPos(30, 740)
Dim buf As String = "Page:" & page_num
page.ShowText(buf)
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)
pdf.SetPageMode(HPdfPageMode.HPDF_PAGE_MODE_USE_OUTLINE)
' add a new page object. '
' Add 3 pages to the document. '
Dim page0 As HPdfPage = pdf.AddPage()
page0.SetFontAndSize(font, 30)
PrintPage(page0, 1)
Dim page1 As HPdfPage = pdf.AddPage()
page1.SetFontAndSize(font, 30)
PrintPage(page1, 2)
Dim page2 As HPdfPage = pdf.AddPage()
page2.SetFontAndSize(font, 30)
PrintPage(page2, 3)
' create outline root.
Dim root As HPdfOutline = pdf.CreateOutline(Nothing, "OutlineRoot", Nothing)
root.SetOpened(True)
Dim outline0 As HPdfOutline = pdf.CreateOutline(root, "page1", Nothing)
Dim outline1 As HPdfOutline = pdf.CreateOutline(root, "page2", Nothing)
' create outline with test which is ISO8859-2 encoding '
Dim outline2 As HPdfOutline = pdf.CreateOutline(root, "ISO8859-2 text �������", pdf.GetEncoder("ISO8859-2"))
' create destination objects on each pages
' and link it to outline items.
'
Dim dst As HPdfDestination = page0.CreateDestination()
dst.SetXYZ(0, page0.GetHeight(), 1)
outline0.SetDestination(dst)
dst = page1.CreateDestination()
dst.SetXYZ(0, page1.GetHeight(), 1)
outline1.SetDestination(dst)
dst = page2.CreateDestination()
dst.SetXYZ(0, page2.GetHeight(), 1)
outline2.SetDestination(dst)
' save the document to a file
pdf.SaveToFile("OutlineDemo.pdf")
Catch ex As Exception
Console.Error.WriteLine(ex.Message)
End Try
End Sub
End Module