๐ Sid Gifari File Manager Pro
v8.0.5 | 2026-06-15 02:10:57 | PHP 8.1.34
๐
/ (Root)
/
opt
/
alt
/
libharu
/
usr
/
share
/
libharu
/
bindings
/
vb.net
/
demo
๐ /opt/alt/libharu/usr/share/libharu/bindings/vb.net/demo
๐ Refresh
โ๏ธ
Editing: Permission.vb
Read Only
๏ปฟ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
๐พ Save Changes
โ Cancel