Code: Select all
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim oGdPictureImaging As New GdPictureImaging()
Dim JpegID As Integer
Dim TiffID As Integer
oGdPictureImaging.SetLicenseNumber("XXX") 'Replace xxx by valid key
JpegID = oGdPictureImaging.CreateGdPictureImageFromFile("c:\test1.jpg")
oGdPictureImaging.TiffSaveAsMultiPageFile(JpegID, "c:\multipage.tif", TiffCompression.TiffCompressionJPEG)
TiffID = JpegID
JpegID = oGdPictureImaging.CreateGdPictureImageFromFile("c:\test1.jpg")
oGdPictureImaging.TiffAddToMultiPageFile(TiffID, JpegID)
oGdPictureImaging.ReleaseGdPictureImage(JpegID)
JpegID = oGdPictureImaging.CreateGdPictureImageFromFile("c:\test1.jpg")
oGdPictureImaging.TiffAddToMultiPageFile(TiffID, JpegID)
oGdPictureImaging.ReleaseGdPictureImage(JpegID)
oGdPictureImaging.TiffCloseMultiPageFile(TiffID)
End Sub