The sample source codes on this page shows how to draw tiling patterns in pdf with pdf sdk in VB.NET. 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 draw tiling patterns in pdf with pdf sdk with VB.NET.
Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to draw tiling patterns in pdf with pdf sdk. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Complete and detailed tutorials and documentation are available along with installed ByteScout Premium Suite if you’d like to learn more about the topic and the details of the API.
ByteScout Premium Suite free trial version is available on our website. VB.NET and other programming languages are supported.
Imports Bytescout.PDF ''' <summary> ''' This example demonstrates how to use tiling patterns. ''' </summary> Class Program Shared Sub Main() ' Create new document Dim pdfDocument = New Document() pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" ' Add page Dim page = New Page(PaperFormat.A4) pdfDocument.Pages.Add(page) Dim blueColor = New ColorRGB(0, 0, 255) Dim grayColor = New ColorRGB(128, 128, 128) ' Create tiling brush and paint on it Dim tilingBrush1 = New UncoloredTilingBrush(10, 12) Dim brushCanvas = tilingBrush1.Canvas brushCanvas.DrawCircle(New SolidPen(blueColor), 0, 6, 6) tilingBrush1.Color = blueColor ' Create second tiling brush and paint on it using the first brush Dim tilingBrush2 = New ColoredTilingBrush(70, 50) brushCanvas = tilingBrush2.Canvas brushCanvas.DrawEllipse(New SolidPen(grayColor), tilingBrush1, 0, 0, 60, 20) ' Draw rectangle and fill it with combined tiling brush page.Canvas.DrawRectangle(New SolidPen(), tilingBrush2, 100, 100, 400, 400) ' 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