These source code samples are assembled by their programming language and functions they apply. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to set transparency for drawing in pdf with pdf sdk with VBScript.
Want to save time? You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Premium Suite for set transparency for drawing in pdf with pdf sdk below and use it in your application. Just copy and paste the code into your VBScript application’s code and follow the instructions. If you want to use these VBScript sample examples in one or many applications then they can be used easily.
You can download free trial version of ByteScout Premium Suite from our website with this and other source code samples for VBScript.
' This example demonstrates how to draw transparent objects. ' 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) Set canvas = page1.Canvas ' Prepare pens and brushes Set borderPen = comHelpers.CreateSolidPen(comHelpers.CreateColorGray(0), 2.0) Set brush1 = comHelpers.CreateSolidBrush(comHelpers.CreateColorRGB(255, 0, 0)) Set brush2 = comHelpers.CreateSolidBrush(comHelpers.CreateColorRGB(0, 0, 255)) borderPen.Opacity = 50 brush1.Opacity = 30 brush2.Opacity = 60 ' Draw normal rectangles canvas.DrawRectangle_2 (brush1), 100, 100, 100, 100 canvas.DrawRectangle_3 (borderPen), (brush2), 150, 150, 100, 100 borderPen.Opacity = 80 brush1.Opacity = 60 brush2.Opacity = 30 ' Draw rounded rectangles canvas.DrawRoundedRectangle_2 (brush1), 220, 100, 100, 100, 10 canvas.DrawRoundedRectangle_3 (borderPen), (brush2), 270, 150, 100, 100, 10 ' 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