Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
Draw with Clipping in PDF | VB.NET
Program.vb:
VB
Imports System.Drawing Imports Bytescout.PDF ''' <summary> ''' This example demonstrates how to use the graphics clipping. ''' </summary> Class Program Shared Sub Main() ' Create new document Dim pdfDocument = New Document() pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" ' If you wish to load an existing document uncomment the line below And comment the Add page section instead ' pdfDocument.Load(".\existing_document.pdf") ' Add page Dim page = New Page(PaperFormat.A4) pdfDocument.Pages.Add(page) Dim center = New PointF(200, 200) ' Create clipping path from circle Dim path = New Path() path.AddCircle(center, 100) page.Canvas.SetClip(path) ' Paint Bytescout.PDF.Rectangle over the clipping circle. ' Only part of the Bytescout.PDF.Rectangle intersecting the clipping circle will be drawn. Dim brush = New Bytescout.PDF.SolidBrush(New ColorRGB(255, 0, 0)) page.Canvas.DrawRectangle(brush, center.X - 50, center.Y - 50, 200, 200) ' 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