pdfboxapi.bas

一个对PDF文件进行操作的第三方dll

Attribute VB_Name = "API"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2008/08/20
'描    述：PDF盒子---一个全功能操作PDF文件DLL(特别版)
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

'---------------------------  Functions exported by PDF_In_The_Box.dll -------------------------------

'----------- Functions common between PDF In-The-Box and All In-The-Box

Declare Function Abort Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function AddPoint Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long) As Long
Declare Function Annotation Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal aText As String, ByVal aAnnotationType As Long) As Long
Declare Function AppendLinkPara Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aText As String, ByVal aStyleName As String, ByVal aLink As String) As Long
Declare Function AppendPara Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aTextt As String, ByVal aStyleName As String) As Long
Declare Function AppendTabPara Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aText As String, ByVal aStyleName As String) As Long
Declare Function Arc Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aX3 As Long, ByVal aY3 As Long, ByVal aX4 As Long, ByVal aY4 As Long) As Long
Declare Function BeginDoc Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function BeginPara Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aText As String, ByVal aStyleName As String) As Long
Declare Function CellTextHeight Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aGridName As String, ByVal aCol As Long, ByVal aText As String) As Long
Declare Function CellX Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aGridName As String, ByVal aCol As Long, ByVal aRow As Long, ByVal aCorner As Long) As Long
Declare Function CellY Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aGridName As String, ByVal aCol As Long, ByVal aRow As Long, ByVal aCorner As Long) As Long
Declare Function Chord Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aX3 As Long, ByVal aY3 As Long, ByVal aX4 As Long, ByVal aY4 As Long) As Long
Declare Function ConnectToSynactis Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPageRef As String) As Long
Declare Function CopyRect Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aDestX1 As Long, ByVal aDestY1 As Long, ByVal aDestX2 As Long, ByVal aDestY2 As Long, ByVal hDeviceContext As Long, ByVal aSourceX1 As Long, ByVal aSourceY1 As Long, ByVal aSourceX2 As Long, ByVal aSourceY2 As Long) As Long
Declare Function CreateBox Lib "PDF_In_The_Box.dll" (ByVal hWindow As Long, ByVal aMsgOffset As Long) As Long
Declare Function CreatePdf Lib "PDF_In_The_Box.dll" (ByVal hWindow As Long, ByVal aMsgOffset As Long) As Long
Declare Function DeclareSymbolicFont Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aFontName As String) As Long
Declare Function DefineCol Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aGridName As String, ByVal aWidth As Long, ByVal aAlignment As Long, ByVal aVertAlignment As Long, ByVal aMultiLine As Long) As Long
Declare Function DefineField Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aFieldName As String, ByVal aFieldType As Long, ByVal aLabelText As String, ByVal aTooltip As String, ByVal aStyleName As String) As Long
Declare Function DefineGrid Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aGridName As String, ByVal aAlignment As Long, ByVal aInternalMargin As Long) As Long
Declare Function DefineName Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal aName As String) As Long
Declare Function DefineStyle Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aStyleName As String, ByVal aParameterName As String, ByVal aValue As String) As Long
Declare Function Draw Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal hBitmap As Long) As Long
Declare Function DrawFromFile Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal aFileName As String) As Long
Declare Function DrawGrid Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aGridName As String, ByVal aX As Long, ByVal aY As Long) As Long
Declare Function DrawPageCounter Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aAlignment As Long, ByVal aLeftTag As String, ByVal aLeftCounter As Long, ByVal aMiddleTag As String, ByVal aRightCounter As Long, ByVal aRightTag As String) As Long
Declare Function DrawRichTextFromFile Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aFileName As String) As Long
Declare Function DrawRow Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aGridName As String, ByVal aRowHeight As Long) As Long
Declare Function DrawText Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aAlignment As Long, ByVal aVertAlignment As Long, ByVal aText As String) As Long
Declare Function Ellipse Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long) As Long
Declare Function EmailDoc Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aRecipients As String, ByVal aSubject As String, ByVal aBody As String, ByVal DisplayMail As Long) As Long
Declare Function EndPara Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aText As String, ByVal aStyleName As String) As Long
Declare Function FillRect Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long) As Long
Declare Function FrameRect Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long) As Long
Declare Function FreeBox Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function FreePdf Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function EndDoc Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function GetErrorMsg Lib "PDF_In_The_Box.dll" (ByVal aText As String) As Long
Declare Function GetNumProp Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPropID As Long) As Long
Declare Function GetStrProp Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPropID As Long, ByVal aValue As String) As Long
Declare Function LineTo Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long) As Long
Declare Function LoadStyleSheet Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aStyleSheetName As String) As Long
Declare Function MoveTo Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long) As Long
Declare Function NameNextPara Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aName As String) As Long
Declare Function NewPage Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function NewSection Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aOrientation As Long, ByVal NewSection As Long) As Long
Declare Function ParaHeight Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aText As String) As Long
Declare Function Pie Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aX3 As Long, ByVal aY3 As Long, ByVal aX4 As Long, ByVal aY4 As Long) As Long
Declare Function Polygon Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function Polyline Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function PolyBezier Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function PolyBezierTo Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function PrintDoc Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPrinterName As String) As Long
Declare Function PrintBookMark Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal aText As String, ByVal aLevel As Long, ByVal WantOpenAtStart As Long) As Long
Declare Function PutField Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aFieldName As String, ByVal aX As Long, ByVal aY As Long, ByVal aWidth As Long, ByVal aHeight As Long) As Long
Declare Function Rectangle Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long) As Long
Declare Function RoundRect Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aX3 As Long, ByVal aY3 As Long) As Long
Declare Function RubberStamp Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aText As String, ByVal aStampType As Long) As Long
Declare Function SetAction Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aFieldName As String, ByVal aEvent As Long, ByVal aActionType As Long, ByVal aActionDef As String) As Long
Declare Function SetBookmark Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal aText As String, ByVal aLevel As Long, ByVal WantOpenAtStart As Long) As Long
Declare Function SetColorEx Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aColorKind As Long, ByVal aColorSystem As Long, ByVal aComponent1 As Long, ByVal aComponent2 As Long, ByVal aComponent3 As Long, ByVal aComponent4 As Long) As Long
Declare Function SetLink Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aLink As String) As Long
Declare Function SetNumFieldProp Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aFieldName As String, ByVal aProp As Long, ByVal aValue As Long) As Long
Declare Function SetNumProp Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPropID As Long, ByVal aValue As Long) As Long
Declare Function SetOwnerPassword Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPassword As String) As Long
Declare Function SetPageNumberFormat Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPageFormat As Long, ByVal aChapterFormat As Long) As Long
Declare Function SetStrFieldProp Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aFieldName As String, ByVal aProp As Long, ByVal aValue As String) As Long
Declare Function SetStrProp Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPropID As Long, ByVal aValue As String) As Long
Declare Function SetUserPassword Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aPassword As String, ByVal CanPrint As Long, ByVal CanCopy As Long, ByVal CanAnnotate As Long, ByVal CanEdit As Long) As Long
Declare Function Show Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function ShowDoc Lib "PDF_In_The_Box.dll" (ByVal hBox As Long) As Long
Declare Function StretchDraw Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal hBitmap As Long) As Long
Declare Function StretchDrawFromFile Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX1 As Long, ByVal aY1 As Long, ByVal aX2 As Long, ByVal aY2 As Long, ByVal aFileName As String) As Long
Declare Function StyleParameter Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aParameterName As String, ByVal aValue As String) As Long
Declare Function TextHeight Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aText As String) As Long
Declare Function TextOut Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal aText As String) As Long
Declare Function TextToCell Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aGridName As String, ByVal aCol As Long, ByVal aRow As Long, ByVal aText As String) As Long
Declare Function TextWidth Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aText As String) As Long
Declare Function TrapEvent Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aEventName As String, ByVal aProcAddr As Long) As Long
Declare Function WriteBookmark Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal aText As String, ByVal aLevel As Long, ByVal WantOpenAtStart As Long) As Long
Declare Function WriteLink Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal aText As String, ByVal aLink As String) As Long
Declare Function WritePara Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aText As String, ByVal aStyleName As String) As Long
Declare Function WriteRichText Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aFileName As String, ByVal aBaseStyleName As String) As Long




'------------------------------------------  Property identifiers ----------------------------------
 
 
 '----------- String property identifiers (to be used in GetStrProp and SetStrProp functions)
  
  ' Common between PDF In-The-Box and All In-The-Box
  Global Const Box_Author = 15
  Global Const Box_FileName = 10
  Global Const Box_FontName = 11
  Global Const Box_Keywords = 16
  Global Const Box_NonEmbeddedFonts = 12
  Global Const Box_PaperSizeName = 13
  Global Const Box_Producer = 19
  Global Const Box_Style = 18
  Global Const Box_Subject = 17
  Global Const Box_Title = 14
  Global Const Box_TempDir = 57
  


'----------- Numerical property identifier (to be used in GetNumProp and SetNumProp functions)
  
  ' Common between PDF In-The-Box and All In-The-Box
  Global Const Box_Aborted = 20
  Global Const Box_Active = 42
  Global Const Box_BrushColor = 21
  Global Const Box_BrushStyle = 22
  Global Const Box_ChapterNumber = 57
  Global Const Box_CharacterSpacing = 47
  Global Const Box_EmbedFonts = 23
  Global Const Box_EnableOutput = 56
  Global Const Box_FontBold = 24
  Global Const Box_FontCharset = 49
  Global Const Box_FontColor = 25
  Global Const Box_FontDegreeAngle = 26
  Global Const Box_FontItalic = 27
  Global Const Box_FontSize = 28
  Global Const Box_FontStrikeOut = 29
  Global Const Box_FontUnderline = 30
  Global Const Box_ImageCompressMode = 31
  Global Const Box_JpegQuality = 45
  Global Const Box_LengthUnit = 32
  Global Const Box_LineSpacing = 48
  Global Const Box_MetafileRes = 50
  Global Const Box_Orientation = 33
  Global Const Box_PageCount = 58
  Global Const Box_PageHeight = 34
  Global Const Box_PageNumber = 35
  Global Const Box_PageNumberInChapter = 59
  Global Const Box_PageWidth = 36
  Global Const Box_ParaNumber = 53
  Global Const Box_PenColor = 37
  Global Const Box_PenStyle = 38
  Global Const Box_PenWidth = 39
  Global Const Box_PenX = 40
  Global Const Box_PenY = 41
  Global Const Box_Printing = 42
  Global Const Box_SmartHorzAlignment = 51
  Global Const Box_SmartStretchDraw = 46
  Global Const Box_SmartVertAlignment = 52
  Global Const Box_StoreRepeatedImages = 55
  Global Const Box_TextX = 54
  Global Const Box_TextY = 43
  Global Const Box_WantPageCount = 60
  Global Const Box_WantShow = 44
  


'------------------------------------------  Event identifiers ----------------------------------
' Symbols to be used in the TrapEvent function
 
  ' Common between PDF In-The-Box and All In-The-Box
  Global Const Box_OnAbort = 1
  Global Const Box_OnEnd = 2
  Global Const Box_OnNewPage = 3
  Global Const Box_OnStart = 4
  




'------------------------------------------  Other constants ----------------------------------