Code: Select all
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim oGdPicturePDF As New GdPicturePDF
Dim oGdPictureImaging As New GdPictureImaging
oGdPicturePDF.SetLicenseNumber("XXX") 'Replace XXX by a valid demo or commercial key
oGdPictureImaging.SetLicenseNumber("XXX") 'Replace XXX by a valid demo or commercial key
Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile("c:\test.tif")
If ImageID <> 0 AndAlso oGdPicturePDF.LoadFromFile("c:\test.pdf", True) = GdPictureStatus.OK Then
oGdPicturePDF.SelectPage(1) 'Selecting first page
Dim image_res_name As String = oGdPicturePDF.AddImageFromGdPictureImage(ImageID, False, False)
oGdPictureImaging.ReleaseGdPictureImage(ImageID)
oGdPicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft)
oGdPicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitCentimeter)
oGdPicturePDF.DrawImage(image_res_name, 10, 10, 5, 5)
oGdPicturePDF.SaveToFileInc("c:\test.pdf")
oGdPicturePDF.CloseDocument()
MsgBox("Done")
End If
End Sub