home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / VPE16_14.ZIP / VB / VPE.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-06-08  |  23.5 KB  |  449 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Rem VpeOpenDoc() Flag Parameters:
  5. Rem =============================
  6. Rem Grid in Background
  7. Global Const VPE_GRID_INBACKGROUND = 1
  8.  
  9. Rem Grid in Foreground
  10. Global Const VPE_GRID_INFOREGROUND = 2
  11.  
  12. Rem Grid Toolbar-Button visible
  13. Global Const VPE_GRID_TOOLBARBUTTON = 4
  14.  
  15. Rem Actually Grid visible
  16. Global Const VPE_GRID_VISIBLE = 8
  17.  
  18. Rem Ruler NOT visible
  19. Global Const VPE_NO_RULER = 16
  20.  
  21. Rem Toolbar NOT visible
  22. Global Const VPE_NO_TOOLBAR = 32
  23.  
  24. Rem User can't close VPE - Stop-Button INVISIBLE and Sys-Menu disabled(if not embedded)
  25. Rem VpeCloseDoc() works!
  26. Global Const VPE_NO_USER_CLOSE = 64
  27.  
  28. Rem User can't leaf through the document
  29. Global Const VPE_NO_USER_MOVE = 128
  30.  
  31. Rem User can't scale with the MOUSE (VpeSetScale() works!)
  32. Global Const VPE_NO_MOUSE_SCALE = 256
  33.  
  34. Rem User can't scale (VpeSetScale() works!)
  35. Global Const VPE_NO_USER_SCALE = 768
  36.  
  37. Rem Statusbar invisible
  38. Global Const VPE_NO_STATBAR = 1024
  39.  
  40. Rem Print-Button invisible, VpePrintDoc() works
  41. Global Const VPE_NO_PRINTBUTTON = 2048
  42.  
  43. Rem Document Window is embedded within a window of the calling application
  44. Global Const VPE_EMBEDDED = 4096
  45.  
  46. Rem Document will be printed in Landscape-Format
  47. Global Const VPE_LANDSCAPE = 8192
  48.  
  49. Rem Help-Button invisible
  50. Global Const VPE_NO_HELPBTN = 32768
  51.  
  52. Rem if Help-Button visible, pressing this or pushing the F1-key
  53. Rem will cause the message VPE_HELP to be send to the owner-window,
  54. Rem no matter if the VPE-window is embedded or not
  55. Global Const VPE_ROUTE_HELP = 65536
  56.  
  57. Rem Info-Button invisible
  58. Global Const VPE_NO_INFOBTN = 131072
  59.  
  60.  
  61. Global Const VPE_GRID_POSSIBLE = (VPE_GRID_INFOREGROUND + VPE_GRID_TOOLBARBUTTON)
  62. Global Const VPE_GRID_ON = (VPE_GRID_INFOREGROUND + VPE_GRID_TOOLBARBUTTON + VPE_GRID_VISIBLE)
  63. Global Const VPE_GRID_BKGON = (VPE_GRID_INBACKGROUND + VPE_GRID_TOOLBARBUTTON + VPE_GRID_VISIBLE)
  64. Global Const VPE_GRID_OFF = 0
  65.  
  66.  
  67.  
  68.  
  69.  
  70. Rem VpePreviewDoc() Flag Parameters:
  71. Rem ===============================
  72. Global Const VPE_SHOW_NORMAL = 1
  73. Global Const VPE_SHOW_MAXIMIZED = 2
  74. Global Const VPE_SHOW_HIDE = 3
  75.  
  76.  
  77. Rem Hatch Styles:
  78. Rem =============
  79. Global Const HS_NONE = -1
  80. Rem All other HS_xxx styles are defined in windows.h
  81. Global Const HS_HORIZONTAL = 0
  82. Global Const HS_VERTICAL = 1
  83. Global Const HS_FDIAGONAL = 2
  84. Global Const HS_BDIAGONAL = 3
  85. Global Const HS_CROSS = 4
  86. Global Const HS_DIAGCROSS = 4
  87.  
  88.  
  89.  
  90. Rem Text-Formatting Attributes:
  91. Rem ===========================
  92. Global Const ALIGN_LEFT = 0
  93. Global Const ALIGN_RIGHT = 1
  94. Global Const ALIGN_CENTER = 2
  95. Global Const ALIGN_JUSTIFIED = 3
  96.  
  97.  
  98.  
  99. Rem Auto-Break Options:
  100. Rem ===================
  101. Global Const AUTO_BREAK_ON = 0
  102. Global Const AUTO_BREAK_OFF = 1
  103. Global Const AUTO_BREAK_NO_LIMITS = 2
  104.  
  105.  
  106.  
  107. Rem Picture Attributes:
  108. Rem ===================
  109. Rem Merge background with bitmap (SRCAND instead of SRCCOPY)
  110. Global Const PIC_MERGE = 1
  111.  
  112. Rem Always hold the image-data in memory
  113. Global Const PIC_KEEPIMAGE = 2
  114.  
  115. Rem Always discard the DIB from memory (immediately after drawing)
  116. Global Const VPE_PIC_DISCARD_DIB_DRAW = 4
  117.  
  118. Rem Always hold the DIB in memory
  119. Global Const VPE_PIC_KEEP_DIB_PAGE = 8
  120.  
  121. Rem Scale best fitting into given rectangle
  122. Global Const PIC_BESTFIT = 16
  123.  
  124. Rem Store image directly in file (not the pathname-link)
  125. Global Const PIC_IN_FILE = 32
  126.  
  127.  
  128.  
  129.  
  130. Rem ========================================================================
  131. Rem                        Notification Messages:
  132. Rem ========================================================================
  133. Rem VPE was destroyed
  134. Global Const VPE_DESTROYWINDOW = 2048 + 2306
  135.    
  136. Rem printing: wParam = 1: started
  137. Rem                  = 0: ended
  138. Rem lParam = Doc-Handle
  139. Global Const VPE_PRINT = 2048 + 2307
  140.                              
  141. Rem printing: Setup-Dialog aborted
  142. Rem lParam = Doc-Handle
  143. Global Const VPE_PRINTCANCEL = 2048 + 2308
  144.                              
  145. Rem User requests help
  146. Global Const VPE_HELP = 2048 + 2309
  147.  
  148.  
  149. Rem Printer- / Setup-Flags:
  150. Rem =======================
  151. Rem Never show setup-dialog (if file_name is NULL, last setting
  152. Rem or the setting of the default-printer will be taken)
  153. Global Const PRINTDLG_NEVER = 0
  154.                                 
  155. Rem Show setup-dialog only, if file-read fails
  156. Global Const PRINTDLG_ONFAIL = 1
  157.  
  158. Rem show setup-dialog always
  159. Global Const PRINTDLG_ALWAYS = 2
  160.  
  161. Rem print all pages
  162. Global Const PRINT_ALL = 0
  163.  
  164. Rem print only even pages
  165. Global Const PRINT_EVEN = 1
  166.  
  167. Rem print only odd pages
  168. Global Const PRINT_ODD = 2
  169.  
  170.  
  171.  
  172. Rem ========================================================================
  173. Rem                          Barcode Types:
  174. Rem ========================================================================
  175. Global Const BCT_EAN13 = 1
  176. Global Const BCT_EAN8 = 2
  177. Global Const BCT_UPCA = 3
  178. Global Const BCT_CODABAR = 5
  179. Global Const BCT_CODE39 = 6
  180. Global Const BCT_2OF5 = 7
  181. Global Const BCT_INTERLEAVED2OF5 = 8
  182. Global Const BCT_UPCE = 9
  183. Global Const BCT_EAN13_2 = 10
  184. Global Const BCT_EAN13_5 = 11
  185. Global Const BCT_EAN8_2 = 12
  186. Global Const BCT_EAN8_5 = 13
  187. Global Const BCT_UPCA_2 = 14
  188. Global Const BCT_UPCA_5 = 15
  189. Global Const BCT_UPCE_2 = 16
  190. Global Const BCT_UPCE_5 = 17
  191. Global Const BCT_EAN128A = 18
  192. Global Const BCT_EAN128B = 19
  193. Global Const BCT_EAN128C = 20
  194. Global Const BCT_CODE93 = 21
  195. Global Const BCT_POSTNET = 22
  196.  
  197.  
  198.  
  199. Rem ========================================================================
  200. Rem                          Positioning Codes:
  201. Rem ========================================================================
  202. Global Const VFREE = -1
  203. Global Const VLEFT = -2
  204. Global Const VRIGHT = -3
  205. Global Const VLEFTMARGIN = -4
  206. Global Const VRIGHTMARGIN = -5
  207. Global Const VTOP = -6
  208. Global Const VBOTTOM = -7
  209. Global Const VTOPMARGIN = -8
  210. Global Const VBOTTOMMARGIN = -9
  211.  
  212.  
  213.  
  214. Rem ========================================================================
  215. Rem                           Pen Styles
  216. Rem ========================================================================
  217. Global Const PS_SOLID = 0
  218. Global Const PS_DASH = 1
  219. Global Const PS_DOT = 2
  220. Global Const PS_DASHDOT = 3
  221. Global Const PS_DASHDOTDOT = 4
  222.  
  223.  
  224.  
  225. Rem ========================================================================
  226. Rem                           Some Colors
  227. Rem ========================================================================
  228. Public COLOR_BLACK As Long
  229. Public COLOR_DKGRAY As Long
  230. Public COLOR_GRAY As Long
  231. Public COLOR_LTGRAY As Long
  232. Public COLOR_WHITE As Long
  233. Public COLOR_DKRED As Long
  234. Public COLOR_RED As Long
  235. Public COLOR_LTRED As Long
  236. Public COLOR_DKGREEN As Long
  237. Public COLOR_GREEN As Long
  238. Public COLOR_LTGREEN As Long
  239. Public COLOR_BLUEGREEN As Long
  240. Public COLOR_OLIVE As Long
  241. Public COLOR_DKBLUE As Long
  242. Public COLOR_BLUE As Long
  243. Public COLOR_CYAN As Long
  244. Public COLOR_DKPURPLE As Long
  245. Public COLOR_PURPLE As Long
  246. Public COLOR_MAGENTA As Long
  247. Public COLOR_LTYELLOW As Long
  248.  
  249.  
  250.  
  251.  
  252. 'begin conditional compile
  253. #If Win32 Then              '32-bit Declares
  254.  
  255. Type Rect
  256.     Left As Long
  257.     Top As Long
  258.     Right As Long
  259.     Bottom As Long
  260. End Type
  261.  
  262.  
  263. Declare Function VpeGetVersion Lib "Vpe32" () As Long
  264. Declare Function VpeOpenDoc Lib "Vpe32" (ByVal hWndParent As Long, ByVal title As String, ByVal page_width As Long, ByVal page_height As Long, ByVal flags As Long) As Long
  265. Declare Function VpeOpenDocFile Lib "Vpe32" (ByVal hWndParent As Long, ByVal file_name As String, ByVal title As String, ByVal page_width As Long, ByVal page_height As Long, ByVal flags As Long) As Long
  266. Declare Function VpeCloseDoc Lib "Vpe32" (ByVal hDoc As Long) As Long
  267. Declare Function VpeWindowHandle Lib "Vpe32" (ByVal hDoc As Long) As Long
  268. Declare Sub VpeSetDefOutRect Lib "Vpe32" (ByVal hDoc As Long, r As Rect)
  269. Declare Sub VpeSetDefOutRectSP Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long)
  270. Declare Sub VpeSetOutRect Lib "Vpe32" (ByVal hDoc As Long, r As Rect)
  271. Declare Sub VpeGetOutRect Lib "Vpe32" (ByVal hDoc As Long, r As Rect)
  272. Declare Sub VpeSetPosRect Lib "Vpe32" (ByVal hDoc As Long, r As Rect)
  273. Declare Sub VpeGetPosRect Lib "Vpe32" (ByVal hDoc As Long, r As Rect)
  274. Declare Sub VpeSet Lib "Vpe32" (ByVal hDoc As Long, ByVal what As Long, ByVal value As Long)
  275. Declare Function VpeGet Lib "Vpe32" (ByVal hDoc As Long, ByVal what As Long) As Long
  276. Declare Sub VpeStorePos Lib "Vpe32" (ByVal hDoc As Long)
  277. Declare Sub VpeRestorePos Lib "Vpe32" (ByVal hDoc As Long)
  278. Declare Sub VpeSetScale Lib "Vpe32" (ByVal hDoc As Long, ByVal scal As Double)
  279. Declare Sub VpeSetRulersMeasure Lib "Vpe32" (ByVal hDoc As Long, ByVal rulers_measure As Long)
  280. Declare Function VpeSetupPrinter Lib "Vpe32" (ByVal hDoc As Long, ByVal file_name As String, ByVal dialog_control As Long) As Long
  281. Declare Sub VpeSetPrintOptions Lib "Vpe32" (ByVal hDoc As Long, ByVal flags As Long)
  282. Declare Sub VpePrintDoc Lib "Vpe32" (ByVal hDoc As Long, ByVal with_setup As Long)
  283. Declare Function VpeIsPrinting Lib "Vpe32" (ByVal hDoc As Long) As Long
  284. Declare Sub VpePreviewDoc Lib "Vpe32" (ByVal hDoc As Long, rc As Rect, ByVal show_hide As Long)
  285. Declare Sub VpePreviewDocSP Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal show_hide As Long)
  286. Declare Sub VpeCenterPreview Lib "Vpe32" (ByVal hDoc As Long, ByVal width As Long, ByVal height As Long)
  287. Declare Sub VpeSetUpdate Lib "Vpe32" (ByVal hDoc As Long, ByVal yes_no As Long)
  288. Declare Sub VpeRefreshDoc Lib "Vpe32" (ByVal hDoc As Long)
  289. Declare Sub VpeSetPen Lib "Vpe32" (ByVal hDoc As Long, ByVal pen_size As Long, ByVal pen_style As Long, ByVal color As Long)
  290. Declare Sub VpeNoPen Lib "Vpe32" (ByVal hDoc As Long)
  291. Declare Sub VpeLine Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long)
  292. Declare Function VpePolyLine Lib "Vpe32" (ByVal hDoc As Long, ByVal dummy As Long, ByVal size As Long) As Long
  293. Declare Sub VpeAddPolyPoint Lib "Vpe32" (ByVal hDoc As Long, ByVal p As Long, ByVal x As Long, ByVal y As Long)
  294. Declare Function VpePolygon Lib "Vpe32" (ByVal hDoc As Long, ByVal dummy As Long, ByVal size As Long) As Long
  295. Declare Sub VpeAddPolygonPoint Lib "Vpe32" (ByVal hDoc As Long, ByVal p As Long, ByVal x As Long, ByVal y As Long)
  296. Declare Sub VpeSetBkgColor Lib "Vpe32" (ByVal hDoc As Long, ByVal color As Long)
  297. Declare Sub VpeSetTransparentMode Lib "Vpe32" (ByVal hDoc As Long, ByVal on_off As Long)
  298. Declare Sub VpeSetHatchStyle Lib "Vpe32" (ByVal hDoc As Long, ByVal style As Long)
  299. Declare Sub VpeSetHatchColor Lib "Vpe32" (ByVal hDoc As Long, ByVal color As Long)
  300. Declare Sub VpeBox Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long)
  301. Declare Sub VpeEllipse Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long)
  302. Declare Sub VpePie Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal begin_angle As Long, ByVal end_angle As Long)
  303. Declare Sub VpeSetBarcodeParms Lib "Vpe32" (ByVal hDoc As Long, ByVal top_bottom As Long, ByVal add_top_bottom As Long)
  304. Declare Sub VpeBarcode Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal code_type As Long, ByVal code As String, ByVal add_code As String)
  305. Declare Sub VpeKeepBitmapAspect Lib "Vpe32" (ByVal hDoc As Long, ByVal on_off As Long)
  306. Declare Sub VpeDefaultBitmapDPI Lib "Vpe32" (ByVal hDoc As Long, ByVal dpix As Long, ByVal dpiy As Long)
  307. Declare Sub VpeGetPictureTypes Lib "Vpe32" (ByVal with_filters As Long, s As String, ByVal size As Long)
  308. Declare Sub VpePicture Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal file_name As String, ByVal flags As Long)
  309. Declare Sub VpePictureDIB Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal hDIB As Long, ByVal flags As Long)
  310. Declare Sub VpePictureResID Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal hInstance As Long, ByVal res_id As Long, ByVal flags As Long)
  311. Declare Sub VpePictureResName Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal hInstance As Long, ByVal res_name As String, ByVal flags As Long)
  312. Declare Sub VpeSelectFont Lib "Vpe32" (ByVal hDoc As Long, ByVal name As String, ByVal size As Long)
  313. Declare Sub VpeSetFontAttr Lib "Vpe32" (ByVal hDoc As Long, ByVal alignment As Long, ByVal bold As Long, ByVal underlined As Long, ByVal italic As Long)
  314. Declare Sub VpeSetAlign Lib "Vpe32" (ByVal hDoc As Long, ByVal alignment As Long)
  315. Declare Sub VpeSetBold Lib "Vpe32" (ByVal hDoc As Long, ByVal bold As Long)
  316. Declare Sub VpeSetUnderlined Lib "Vpe32" (ByVal hDoc As Long, ByVal underlined As Long)
  317. Declare Sub VpeSetItalic Lib "Vpe32" (ByVal hDoc As Long, ByVal italic As Long)
  318. Declare Sub VpeSetTextColor Lib "Vpe32" (ByVal hDoc As Long, ByVal color As Long)
  319. Declare Function VpePrint Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal s As String) As Long
  320. Declare Function VpePrintBox Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal s As String) As Long
  321. Declare Function VpeWrite Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal s As String) As Long
  322. Declare Function VpeWriteBox Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal s As String) As Long
  323. Declare Sub VpeDefineHeader Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal s As String)
  324. Declare Sub VpeDefineFooter Lib "Vpe32" (ByVal hDoc As Long, ByVal x As Long, ByVal y As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal s As String)
  325. Declare Sub VpePageBreak Lib "Vpe32" (ByVal hDoc As Long)
  326. Declare Function VpeGetPageCount Lib "Vpe32" (ByVal hDoc As Long) As Long
  327. Declare Function VpeGetCurrentPage Lib "Vpe32" (ByVal hDoc As Long) As Long
  328. Declare Sub VpeGotoPage Lib "Vpe32" (ByVal hDoc As Long, ByVal page As Long)
  329. Declare Sub VpeStoreSet Lib "Vpe32" (ByVal hDoc As Long, ByVal id As Long)
  330. Declare Sub VpeUseSet Lib "Vpe32" (ByVal hDoc As Long, ByVal id As Long)
  331. Declare Sub VpeRemoveSet Lib "Vpe32" (ByVal hDoc As Long, ByVal id As Long)
  332. Declare Sub VpeSetAutoBreak Lib "Vpe32" (ByVal hDoc As Long, ByVal mode As Long)
  333. Declare Sub VpeWriteDoc Lib "Vpe32" (ByVal hDoc As Long, ByVal file_name As String)
  334. Declare Sub VpeReadDoc Lib "Vpe32" (ByVal hDoc As Long, ByVal file_name As String)
  335. Declare Sub VpeSetRotation Lib "Vpe32" (ByVal hDoc As Long, ByVal angle As Long)
  336.  
  337. #Else
  338.  
  339. Type Rect
  340.     Left As Integer
  341.     Top As Integer
  342.     Right As Integer
  343.     Bottom As Integer
  344. End Type
  345.  
  346.  
  347. Declare Function VpeGetVersion Lib "VPEngine" () As Integer
  348. Declare Function VpeOpenDoc Lib "VPEngine" (ByVal hWndParent As Integer, ByVal title As String, ByVal page_width As Integer, ByVal page_height As Integer, ByVal flags As Long) As Long
  349. Declare Function VpeOpenDocFile Lib "VPEngine" (ByVal hWndParent As Integer, ByVal file_name As String, ByVal title As String, ByVal page_width As Integer, ByVal page_height As Integer, ByVal flags As Long) As Long
  350. Declare Function VpeCloseDoc Lib "VPEngine" (ByVal hDoc As Long) As Integer
  351. Declare Function VpeWindowHandle Lib "VPEngine" (ByVal hDoc As Long) As Integer
  352. Declare Sub VpeSetDefOutRect Lib "VPEngine" (ByVal hDoc As Long, r As Rect)
  353. Declare Sub VpeSetDefOutRectSP Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer)
  354. Declare Sub VpeSetOutRect Lib "VPEngine" (ByVal hDoc As Long, r As Rect)
  355. Declare Sub VpeGetOutRect Lib "VPEngine" (ByVal hDoc As Long, r As Rect)
  356. Declare Sub VpeSetPosRect Lib "VPEngine" (ByVal hDoc As Long, r As Rect)
  357. Declare Sub VpeGetPosRect Lib "VPEngine" (ByVal hDoc As Long, r As Rect)
  358. Declare Sub VpeSet Lib "VPEngine" (ByVal hDoc As Long, ByVal what As Integer, ByVal value As Integer)
  359. Declare Function VpeGet Lib "VPEngine" (ByVal hDoc As Long, ByVal what As Integer) As Integer
  360. Declare Sub VpeStorePos Lib "VPEngine" (ByVal hDoc As Long)
  361. Declare Sub VpeRestorePos Lib "VPEngine" (ByVal hDoc As Long)
  362. Declare Sub VpeSetScale Lib "VPEngine" (ByVal hDoc As Long, ByVal scal As Double)
  363. Declare Sub VpeSetRulersMeasure Lib "VPEngine" (ByVal hDoc As Long, ByVal rulers_measure As Integer)
  364. Declare Function VpeSetupPrinter Lib "VPEngine" (ByVal hDoc As Long, ByVal file_name As String, ByVal dialog_control As Integer) As Integer
  365. Declare Sub VpeSetPrintOptions Lib "VPEngine" (ByVal hDoc As Long, ByVal flags As Integer)
  366. Declare Sub VpePrintDoc Lib "VPEngine" (ByVal hDoc As Long, ByVal with_setup As Integer)
  367. Declare Function VpeIsPrinting Lib "VPEngine" (ByVal hDoc As Long) As Integer
  368. Declare Sub VpePreviewDoc Lib "VPEngine" (ByVal hDoc As Long, rc As Rect, ByVal show_hide As Integer)
  369. Declare Sub VpePreviewDocSP Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal show_hide As Integer)
  370. Declare Sub VpeCenterPreview Lib "VPEngine" (ByVal hDoc As Long, ByVal width As Integer, ByVal height As Integer)
  371. Declare Sub VpeSetUpdate Lib "VPEngine" (ByVal hDoc As Long, ByVal yes_no As Integer)
  372. Declare Sub VpeRefreshDoc Lib "VPEngine" (ByVal hDoc As Long)
  373. Declare Sub VpeSetPen Lib "VPEngine" (ByVal hDoc As Long, ByVal pen_size As Integer, ByVal pen_style As Integer, ByVal color As Long)
  374. Declare Sub VpeNoPen Lib "VPEngine" (ByVal hDoc As Long)
  375. Declare Sub VpeLine Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer)
  376. Declare Function VpePolyLine Lib "VPEngine" (ByVal hDoc As Long, ByVal dummy As Long, ByVal size As Integer) As Long
  377. Declare Sub VpeAddPolyPoint Lib "VPEngine" (ByVal hDoc As Long, ByVal p As Long, ByVal x As Integer, ByVal y As Integer)
  378. Declare Function VpePolygon Lib "VPEngine" (ByVal hDoc As Long, ByVal dummy As Long, ByVal size As Integer) As Long
  379. Declare Sub VpeAddPolygonPoint Lib "VPEngine" (ByVal hDoc As Long, ByVal p As Long, ByVal x As Integer, ByVal y As Integer)
  380. Declare Sub VpeSetBkgColor Lib "VPEngine" (ByVal hDoc As Long, ByVal color As Long)
  381. Declare Sub VpeSetTransparentMode Lib "VPEngine" (ByVal hDoc As Long, ByVal on_off As Integer)
  382. Declare Sub VpeSetHatchStyle Lib "VPEngine" (ByVal hDoc As Long, ByVal style As Integer)
  383. Declare Sub VpeSetHatchColor Lib "VPEngine" (ByVal hDoc As Long, ByVal color As Long)
  384. Declare Sub VpeBox Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer)
  385. Declare Sub VpeEllipse Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer)
  386. Declare Sub VpePie Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal begin_angle As Integer, ByVal end_angle As Integer)
  387. Declare Sub VpeSetBarcodeParms Lib "VPEngine" (ByVal hDoc As Long, ByVal top_bottom As Integer, ByVal add_top_bottom As Integer)
  388. Declare Sub VpeBarcode Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal code_type As Integer, ByVal code As String, ByVal add_code As String)
  389. Declare Sub VpeKeepBitmapAspect Lib "VPEngine" (ByVal hDoc As Long, ByVal on_off As Integer)
  390. Declare Sub VpeDefaultBitmapDPI Lib "VPEngine" (ByVal hDoc As Long, ByVal dpix As Integer, ByVal dpiy As Integer)
  391. Declare Sub VpeGetPictureTypes Lib "VPEngine" (ByVal with_filters As Integer, s As String, ByVal size As Integer)
  392. Declare Sub VpePicture Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal file_name As String, ByVal flags As Integer)
  393. Declare Sub VpePictureDIB Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal hDIB As Integer, ByVal flags As Integer)
  394. Declare Sub VpePictureResID Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal hInstance As Integer, ByVal res_id As Integer, ByVal flags As Integer)
  395. Declare Sub VpePictureResName Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal hInstance As Integer, ByVal res_name As String, ByVal flags As Integer)
  396. Declare Sub VpeSelectFont Lib "VPEngine" (ByVal hDoc As Long, ByVal name As String, ByVal size As Integer)
  397. Declare Sub VpeSetFontAttr Lib "VPEngine" (ByVal hDoc As Long, ByVal alignment As Integer, ByVal bold As Integer, ByVal underlined As Integer, ByVal italic As Integer)
  398. Declare Sub VpeSetAlign Lib "VPEngine" (ByVal hDoc As Long, ByVal alignment As Integer)
  399. Declare Sub VpeSetBold Lib "VPEngine" (ByVal hDoc As Long, ByVal bold As Integer)
  400. Declare Sub VpeSetUnderlined Lib "VPEngine" (ByVal hDoc As Long, ByVal underlined As Integer)
  401. Declare Sub VpeSetItalic Lib "VPEngine" (ByVal hDoc As Long, ByVal italic As Integer)
  402. Declare Sub VpeSetTextColor Lib "VPEngine" (ByVal hDoc As Long, ByVal color As Long)
  403. Declare Function VpePrint Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal s As String) As Integer
  404. Declare Function VpePrintBox Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal s As String) As Integer
  405. Declare Function VpeWrite Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal s As String) As Integer
  406. Declare Function VpeWriteBox Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal s As String) As Integer
  407. Declare Sub VpeDefineHeader Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal s As String)
  408. Declare Sub VpeDefineFooter Lib "VPEngine" (ByVal hDoc As Long, ByVal x As Integer, ByVal y As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal s As String)
  409. Declare Sub VpePageBreak Lib "VPEngine" (ByVal hDoc As Long)
  410. Declare Function VpeGetPageCount Lib "VPEngine" (ByVal hDoc As Long) As Integer
  411. Declare Function VpeGetCurrentPage Lib "VPEngine" (ByVal hDoc As Long) As Integer
  412. Declare Sub VpeGotoPage Lib "VPEngine" (ByVal hDoc As Long, ByVal page As Integer)
  413. Declare Sub VpeStoreSet Lib "VPEngine" (ByVal hDoc As Long, ByVal id As Integer)
  414. Declare Sub VpeUseSet Lib "VPEngine" (ByVal hDoc As Long, ByVal id As Integer)
  415. Declare Sub VpeRemoveSet Lib "VPEngine" (ByVal hDoc As Long, ByVal id As Integer)
  416. Declare Sub VpeSetAutoBreak Lib "VPEngine" (ByVal hDoc As Long, ByVal mode As Integer)
  417. Declare Sub VpeWriteDoc Lib "VPEngine" (ByVal hDoc As Long, ByVal file_name As String)
  418. Declare Sub VpeReadDoc Lib "VPEngine" (ByVal hDoc As Long, ByVal file_name As String)
  419. Declare Sub VpeSetRotation Lib "VPEngine" (ByVal hDoc As Long, ByVal angle As Integer)
  420.  
  421. #End If
  422.  
  423.  
  424.  
  425. Public Sub InitVPE()
  426.  
  427.  COLOR_BLACK = RGB(0, 0, 0)
  428.  COLOR_DKGRAY = RGB(128, 128, 128)
  429.  COLOR_GRAY = RGB(192, 192, 192)
  430.  COLOR_LTGRAY = RGB(230, 230, 230)
  431.  COLOR_WHITE = RGB(255, 255, 255)
  432.  COLOR_DKRED = RGB(128, 0, 0)
  433.  COLOR_RED = RGB(192, 0, 0)
  434.  COLOR_LTRED = RGB(255, 0, 0)
  435.  COLOR_DKGREEN = RGB(0, 128, 0)
  436.  COLOR_GREEN = RGB(0, 192, 0)
  437.  COLOR_LTGREEN = RGB(0, 255, 0)
  438.  COLOR_BLUEGREEN = RGB(0, 128, 128)
  439.  COLOR_OLIVE = RGB(128, 128, 0)
  440.  COLOR_DKBLUE = RGB(0, 0, 128)
  441.  COLOR_BLUE = RGB(0, 0, 255)
  442.  COLOR_CYAN = RGB(0, 255, 255)
  443.  COLOR_DKPURPLE = RGB(128, 0, 128)
  444.  COLOR_PURPLE = RGB(192, 0, 192)
  445.  COLOR_MAGENTA = RGB(255, 0, 255)
  446.  COLOR_LTYELLOW = RGB(255, 255, 0)
  447.  
  448. End Sub
  449.