ByteScout PDF SDK – VBScript and VB6 – Use Clipping for Drawing in PDF

Home
/
Articles
/
ByteScout PDF SDK – VBScript and VB6 – Use Clipping for Drawing in PDF

printable version:
ByteScout-PDF-SDK-VBScript-and-VB6-Use-Clipping-for-Drawing-in-PDF.pdf

How to use clipping for drawing in PDF in VBScript and VB6 with ByteScout PDF SDK

This code in VBScript and VB6 shows how to use clipping for drawing in PDF with this how to tutorial

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.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Clipping.vbs

      ' 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