PDF Viewer SDK ActiveX

PDF Viewer SDK ActiveX

Platform : Windows 11, Windows 10, Windows 8, Vista, XP

It is PDF Viewer SDK, fast open PDF, support print a PDF, searching the text with C , C#, VB.Net , VB6, Delphi, Vfp, MS Access.

Download Free Trial

Popular Solution Go   Back

VB6 - How to add PDF Stamp to a PDF

Step 1: To install the PDF Viewer SDK ActiveX Control, begin by launching the setup file (https://www.viscomsoft.com/demo/pdfviewersetup.exe). Select the desired installation folder for the PDF Viewer SDK ActiveX and continue with the installation on your development computer.

Step 2:  Launch Visual Basic 6.0. Select  New Project, Select  Standard EXE.

Step 3:  Select Project - References... , Select PDF Viewer SDK ActiveX Control



Step 4:  Now you will see the PDF Viewer SDK ActiveX on toolbar, drag it on form.

Step 5:  Create the UI like the following screen.

 

Step 6: In form load event, add the following code

Private Sub Form_Load()

        cbostampicon.AddItem ("Approved")

        cbostampicon.AddItem ("Asls")

        cbostampicon.AddItem ("Confidential")

        cbostampicon.AddItem ("Departmental")

        cbostampicon.AddItem ("Draft")

        cbostampicon.AddItem ("Experimental")

        cbostampicon.AddItem ("Expired")

        cbostampicon.AddItem ("Final")

        cbostampicon.AddItem ("ForComment")

        cbostampicon.AddItem ("ForPublicRelease")

        cbostampicon.AddItem ("NotApproved")

        cbostampicon.AddItem ("NotForPublicRelease")

        cbostampicon.AddItem ("Sold")

        cbostampicon.AddItem ("TopSecret")

        cbostampicon.ListIndex = 0

        cbostampcolor.AddItem ("transparent")

        cbostampcolor.AddItem ("aqua")

        cbostampcolor.AddItem ("black")

        cbostampcolor.AddItem ("blue")

        cbostampcolor.AddItem ("fuchsia")

        cbostampcolor.AddItem ("gray")

        cbostampcolor.AddItem ("green")

        cbostampcolor.AddItem ("lime")

        cbostampcolor.AddItem ("maroon")

        cbostampcolor.AddItem ("navy")

        cbostampcolor.AddItem ("olive")

        cbostampcolor.AddItem ("orange")

        cbostampcolor.AddItem ("purple")

        cbostampcolor.AddItem ("red")

        cbostampcolor.AddItem ("silver")

        cbostampcolor.AddItem ("teal")

        cbostampcolor.AddItem ("white")

        cbostampcolor.AddItem ("yellow")

        cbostampcolor.ListIndex = 3

        PDFViewer1.PDFClearStamp

End Sub

 

 

Step 7: Add Microsoft Common Dialog Control on form. 

Step 8: Add the following code in Load PDF button click event.

Private Sub Command1_Click()
 Dim iResult As Integer
 Me.CommonDialog1.Filter = "PDF Files (*.pdf)|*.pdf|All Files(*.*)|*.*"
 Me.CommonDialog1.ShowOpen
 iResult = Me.PDFViewer1.LoadPDFFile(CommonDialog1.FileName)
 If iResult = -2 Then
    MsgBox "Password is not correct"
    Exit Sub
 End If
 If iResult = -1 Then
    MsgBox "Load PDF Failed"
    Exit Sub
 End If
End Sub

Step 9: Add the following code in Add Stamp button click event

Private Sub Command2_Click()
  PDFViewer1.PDFAddStamp 1, cbostampicon.ListIndex, txtleft.Text, txttop.Text, txtwidth.Text, txtheight.Text, cbostampcolor.ListIndex, txtstamptext.Text
End Sub

Step 10: Add the following code in Save PDF button click event
Private Sub Command3_Click()
 Me.CommonDialog1.Filter = "PDF File (*.pdf)|*.pdf"
 Me.CommonDialog1.ShowSave
 
 bResult = PDFViewer1.SavePDF(CommonDialog1.FileName)
 
 If bResult Then
        MsgBox "Save PDF Completed"
 End If
 
End Sub

Copyright © 2009-2026 Viscom Softwares. All rights reserved.