File manager

ÿØÿà JFIF ÿÛ „ ( %!1!%*+...983,7(-.- File manager

File manager - Edit - /opt/alt/libharu/usr/share/libharu/bindings/vb.net/demo/Encryption.vb

Back
Imports HPdf Module Encryption Sub Main() Const owner_passwd As String = "owner" Const user_passwd As String = "user" Const text As String = "This is an encrypt document example." 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) ' save the document to a file pdf.SaveToFile("Encryption.pdf") Catch ex As Exception Console.Error.WriteLine(ex.Message) End Try End Sub End Module