| System: Linux host57.registrar-servers.com 4.18.0-513.18.1.lve.2.el8.x86_64 #1 SMP Sat Mar 30 15:36:11 UTC 2024 x86_64 Current Path : /opt/alt/libharu/usr/share/libharu/bindings/vb.net/demo/ |
| Current File : //opt/alt/libharu/usr/share/libharu/bindings/vb.net/demo/Permission.vb |
Imports HPdf
Module Permission
Sub Main()
Const owner_passwd As String = "owner"
Const user_passwd As String = ""
Const text As String = "User cannot print and copy this document."
Console.WriteLine("libhpdf-" + HPdfDoc.HPdfGetVersion())
Try
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()
page.SetSize(HPdfPageSizes.HPDF_PAGE_SIZE_B5, HPdfPageDirection.HPDF_PAGE_LANDSCAPE)
page.BeginText()
page.SetFontAndSize(font, 20)
Dim tw As Single = page.TextWidth(text)
page.MoveTextPos((page.GetWidth() - tw) / 2, (page.GetHeight() - 20) / 2)
page.ShowText(text)
page.EndText()
pdf.SetPassword(owner_passwd, user_passwd)
pdf.SetPermission(HPdfDoc.HPDF_ENABLE_READ)
' use 128 bit revision 3 encryption
pdf.SetEncryptionMode(HPdfEncryptMode.HPDF_ENCRYPT_R3, 16)
' save the document to a file
pdf.SaveToFile("Permission.pdf")
Catch ex As Exception
Console.Error.WriteLine(ex.Message)
End Try
End Sub
End Module