This Visual Basic example
Private Sub cmdTest_Click()
Dim strPDFProperty As String Dim iCurIndex As Integer
iCurIndex = ImageThumbnailCP1.GetCurSel
strPDFProperty = "PDF Resolution:" + Str(ImageThumbnailCP1.GetClipPDFWidth(iCurIndex)) + "x" + Str(ImageThumbnailCP1.GetClipPDFHeight(iCurIndex)) + Chr(13) + Chr(10) strPDFProperty = strPDFProperty + "PDF Title:" + ImageThumbnailCP1.GetClipPDFTitle(iCurIndex) + Chr(13) + Chr(10) strPDFProperty = strPDFProperty + "PDF Subject:" + ImageThumbnailCP1.GetClipPDFSubject(iCurIndex) + Chr(13) + Chr(10) strPDFProperty = strPDFProperty + "PDF Author:" + ImageThumbnailCP1.GetClipPDFAuthor(iCurIndex) + Chr(13) + Chr(10) strPDFProperty = strPDFProperty + "PDF Creation Date:" + ImageThumbnailCP1.GetClipPDFCreationDate(iCurIndex) + Chr(13) + Chr(10) strPDFProperty = strPDFProperty + "PDF Modify Date:" + ImageThumbnailCP1.GetClipPDFModifyDate(iCurIndex) + Chr(13) + Chr(10) strPDFProperty = strPDFProperty + "PDF Version No:" + Str(ImageThumbnailCP1.GetClipPDFVersionNo(iCurIndex)) + Chr(13) + Chr(10) strPDFProperty = strPDFProperty + "PDF Keyword:" + ImageThumbnailCP1.GetClipPDFKeyword(iCurIndex) + Chr(13) + Chr(10) strPDFProperty = strPDFProperty + "Total Page:" + Str(ImageThumbnailCP1.GetClipPDFTotalPage(iCurIndex)) + Chr(13) + Chr(10) MsgBox strPDFProperty
End Sub
|