On this page you will learn from code samples for programming in VB.NET.Writing of the code to set invisible text over image in pdf with pdf sdk in VB.NET can be executed by programmers of any level using ByteScout Premium Suite. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to set invisible text over image in pdf with pdf sdk with VB.NET.
Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Premium Suite for set invisible text over image in pdf with pdf sdk below and use it in your application. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Check VB.NET sample code samples to see if they respond to your needs and requirements for the project.
All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.
Imports Bytescout.PDF ''' <summary> ''' This example demonstrates how to create PDF document from scanned document image and add invisible text over it. ''' </summary> Class Program Shared Sub Main() ' Create new PDF document Dim pdfDocument = New Document() pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" ' Load image from file to System.Drawing.Image object (we need it to get the image resolution) Dim sysImage As System.Drawing.Image = System.Drawing.Image.FromFile(".\scanned-invoice.png") ' Compute image size in PDF units (Points) Dim widthInPoints As Single = sysImage.Width / sysImage.HorizontalResolution * 72.0F Dim heightInPoints As Single = sysImage.Height / sysImage.VerticalResolution * 72.0F ' Create page of computed size Dim page = New Page(widthInPoints, heightInPoints) ' Add page to the document pdfDocument.Pages.Add(page) Dim canvas = page.Canvas ' Create Bytescout.PDF.Image object from loaded image Dim pdfImage = New Image(sysImage) ' Draw the image canvas.DrawImage(pdfImage, 0, 0, widthInPoints, heightInPoints) ' Dispose the System.Drawing.Image object to free resources sysImage.Dispose() ' Create brush Dim transparentBrush As SolidBrush = New SolidBrush(New ColorGray(0)) ' ... and make it transparent transparentBrush.Opacity = 0 ' Draw text with transparent brush Dim font16 As Font = New Font(StandardFonts.Helvetica, 16) canvas.DrawString("Your Company Name", font16, transparentBrush, 40, 40) ' Draw another text Dim font10 As Font = New Font(StandardFonts.Helvetica, 10) canvas.DrawString("Your Address", font10, transparentBrush, 40, 80) ' Save document to file pdfDocument.Save("result.pdf") ' Cleanup pdfDocument.Dispose() ' Open document in default PDF viewer app Process.Start("result.pdf") End Sub End Class