ByteScout tutorials are designed to explain the code for both VBScript and VB6 beginners and advanced programmers. What is ByteScout PDF SDK? It is the component to help programmers in generating new pdf files, modifying and updating existing pdf documents or pdf forms. Provides support for auto-filling pdf forms, adding text with adjustable font, style, size, font family, new form fields, vector and raster drawings. It can help you to use clipping for drawing in PDF in your VBScript and VB6 application.
This code snippet below for ByteScout PDF SDK works best when you need to quickly use clipping for drawing in PDF in your VBScript and VB6 application. In your VBScript and VB6 project or application you may simply copy & paste the code and then run your app! You can use these VBScript and VB6 sample examples in one or many applications.
Download free trial version of ByteScout PDF SDK from our website with this and other source code samples for VBScript and VB6.
' This example demonstrates how to use the graphics clipping. ' Create Bytescout.PDF.Document object Set pdfDocument = CreateObject("Bytescout.PDF.Document") pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" Set comHelpers = pdfDocument.ComHelpers ' Add page Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4) pdfDocument.Pages.Add(page1) centerX = 200 centerY = 200 ' Create clipping path from circle Set clippingPath = comHelpers.CreatePath() clippingPath.AddCircle centerX, centerY, 100 page1.Canvas.SetClip(clippingPath) ' Paint Bytescout.PDF.Rectangle over the clipping circle. ' Only part of the Bytescout.PDF.Rectangle intersecting the clipping circle will be drawn. Set redBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorRGB(255, 0, 0)) page1.Canvas.DrawRectangle_2 (redBrush), centerX - 50, centerY - 50, 200, 200 ' Save document to file pdfDocument.Save("result.pdf") ' Open document in default PDF viewer app Set shell = CreateObject("WScript.Shell") shell.Run "result.pdf", 1, false