HOME

Sample to create multipage tif image with Visual Basic and GdPicture Pro ActiveX

 

Dim Imaging As Object
Dim nImageID As Long

Set Imaging = CreateObject("gdpicturepro5.imaging")


Imaging.SetLicenseNumber ("0012345678910111213141516") 'Demo code version

nImageID = Imaging.CreateImageFromFile( "image1.jpg")
Imaging.TiffSaveAsNativeMultiPage ("multipage.tif")

nImageID = Imaging.CreateImageFromFile("image2.jpg")
Imaging.TiffAddToNativeMultipage (nImageID)
Imaging.CloseImage (nImageID)

nImageID = Imaging.CreateImageFromFile("image3.jpg")
Imaging.TiffAddToNativeMultipage (nImageID)
Imaging.CloseImage (nImageID)

Imaging.TiffCloseNativeMultiPage