home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / gen_typ / qconst.bas < prev   
BASIC Source File  |  1993-07-21  |  42KB  |  1,225 lines
  1. Option Explicit
  2. Option Base 1
  3. DefInt A-Z
  4. Global DB As Database
  5. Global TB As Table
  6. Global Fld As Field
  7. Global Qdef As QueryDef
  8. Global CRLF As String * 2
  9. Global TTAB As String * 1
  10. Global DQ As String * 1
  11.  
  12. ''''''''''''''''''''''''''''
  13. ' Visual Basic global constant file. This file can be loaded
  14. ' into a code module.
  15. '
  16. ' Some constants are commented out because they have
  17. ' duplicates (e.g., NONE appears several places).
  18. '
  19. ' If you are updating a Visual Basic application written with
  20. ' an older version, you should replace your global constants
  21. ' with the constants in this file.
  22. '
  23. ''''''''''''''''''''''''''''
  24.  
  25. ' General
  26.  
  27. ' Clipboard formats
  28. Global Const CF_LINK = &HBF00
  29. Global Const CF_TEXT = 1
  30. Global Const CF_BITMAP = 2
  31. Global Const CF_METAFILE = 3
  32. Global Const CF_DIB = 8
  33. Global Const CF_PALETTE = 9
  34.  
  35. ' DragOver
  36. Global Const ENTER = 0
  37. Global Const LEAVE = 1
  38. Global Const OVER = 2
  39.  
  40. ' Drag (controls)
  41. Global Const CANCEL = 0
  42. Global Const BEGIN_DRAG = 1
  43. Global Const END_DRAG = 2
  44.  
  45. ' Show parameters
  46. Global Const MODAL = 1
  47. Global Const MODELESS = 0
  48.  
  49. ' Arrange Method
  50. ' for MDI Forms
  51. Global Const CASCADE = 0
  52. Global Const TILE_HORIZONTAL = 1
  53. Global Const TILE_VERTICAL = 2
  54. Global Const ARRANGE_ICONS = 3
  55.  
  56. 'ZOrder Method
  57. Global Const BRINGTOFRONT = 0
  58. Global Const SENDTOBACK = 1
  59.  
  60. ' Key Codes
  61. Global Const KEY_LBUTTON = &H1
  62. Global Const KEY_RBUTTON = &H2
  63. Global Const KEY_CANCEL = &H3
  64. Global Const KEY_MBUTTON = &H4    ' NOT contiguous with L & RBUTTON
  65. Global Const KEY_BACK = &H8
  66. Global Const KEY_TAB = &H9
  67. Global Const KEY_CLEAR = &HC
  68. Global Const KEY_RETURN = &HD
  69. Global Const KEY_SHIFT = &H10
  70. Global Const KEY_CONTROL = &H11
  71. Global Const KEY_MENU = &H12
  72. Global Const KEY_PAUSE = &H13
  73. Global Const KEY_CAPITAL = &H14
  74. Global Const KEY_ESCAPE = &H1B
  75. Global Const KEY_SPACE = &H20
  76. Global Const KEY_PRIOR = &H21
  77. Global Const KEY_NEXT = &H22
  78. Global Const KEY_END = &H23
  79. Global Const KEY_HOME = &H24
  80. Global Const KEY_LEFT = &H25
  81. Global Const KEY_UP = &H26
  82. Global Const KEY_RIGHT = &H27
  83. Global Const KEY_DOWN = &H28
  84. Global Const KEY_SELECT = &H29
  85. Global Const KEY_PRINT = &H2A
  86. Global Const KEY_EXECUTE = &H2B
  87. Global Const KEY_SNAPSHOT = &H2C
  88. Global Const KEY_INSERT = &H2D
  89. Global Const KEY_DELETE = &H2E
  90. Global Const KEY_HELP = &H2F
  91.  
  92. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  93. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  94.  
  95. Global Const KEY_NUMPAD0 = &H60
  96. Global Const KEY_NUMPAD1 = &H61
  97. Global Const KEY_NUMPAD2 = &H62
  98. Global Const KEY_NUMPAD3 = &H63
  99. Global Const KEY_NUMPAD4 = &H64
  100. Global Const KEY_NUMPAD5 = &H65
  101. Global Const KEY_NUMPAD6 = &H66
  102. Global Const KEY_NUMPAD7 = &H67
  103. Global Const KEY_NUMPAD8 = &H68
  104. Global Const KEY_NUMPAD9 = &H69
  105. Global Const KEY_MULTIPLY = &H6A
  106. Global Const KEY_ADD = &H6B
  107. Global Const KEY_SEPARATOR = &H6C
  108. Global Const KEY_SUBTRACT = &H6D
  109. Global Const KEY_DECIMAL = &H6E
  110. Global Const KEY_DIVIDE = &H6F
  111. Global Const KEY_F1 = &H70
  112. Global Const KEY_F2 = &H71
  113. Global Const KEY_F3 = &H72
  114. Global Const KEY_F4 = &H73
  115. Global Const KEY_F5 = &H74
  116. Global Const KEY_F6 = &H75
  117. Global Const KEY_F7 = &H76
  118. Global Const KEY_F8 = &H77
  119. Global Const KEY_F9 = &H78
  120. Global Const KEY_F10 = &H79
  121. Global Const KEY_F11 = &H7A
  122. Global Const KEY_F12 = &H7B
  123. Global Const KEY_F13 = &H7C
  124. Global Const KEY_F14 = &H7D
  125. Global Const KEY_F15 = &H7E
  126. Global Const KEY_F16 = &H7F
  127.  
  128. Global Const KEY_NUMLOCK = &H90
  129.  
  130. ' Variant VarType tags
  131.  
  132. Global Const V_EMPTY = 0
  133. Global Const V_NULL = 1
  134. Global Const V_INTEGER = 2
  135. Global Const V_LONG = 3
  136. Global Const V_SINGLE = 4
  137. Global Const V_DOUBLE = 5
  138. Global Const V_CURRENCY = 6
  139. Global Const V_DATE = 7
  140. Global Const V_STRING = 8
  141.  
  142.  
  143. ' Event Parameters
  144.  
  145. ' ErrNum (LinkError)
  146. Global Const WRONG_FORMAT = 1
  147. Global Const DDE_SOURCE_CLOSED = 6
  148. Global Const TOO_MANY_LINKS = 7
  149. Global Const DATA_TRANSFER_FAILED = 8
  150.  
  151. ' QueryUnload
  152. Global Const FORM_CONTROLMENU = 0
  153. Global Const FORM_CODE = 1
  154. Global Const APP_WINDOWS = 2
  155. Global Const APP_TASKMANAGER = 3
  156. Global Const FORM_MDIFORM = 4
  157.  
  158. ' Properties
  159.  
  160. ' Colors
  161. Global Const BLACK = &H0&
  162. Global Const RED = &HFF&
  163. Global Const GREEN = &HFF00&
  164. Global Const YELLOW = &HFFFF&
  165. Global Const BLUE = &HFF0000
  166. Global Const MAGENTA = &HFF00FF
  167. Global Const CYAN = &HFFFF00
  168. Global Const WHITE = &HFFFFFF
  169.  
  170. ' System Colors
  171. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  172. Global Const DESKTOP = &H80000001               ' Desktop.
  173. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  174. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  175. Global Const MENU_BAR = &H80000004              ' Menu background.
  176. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  177. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  178. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  179. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  180. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  181. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  182. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  183. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  184. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  185. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  186. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  187. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  188. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  189. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  190.  
  191. ' Enumerated Types
  192.  
  193. ' Align (picture box)
  194. Global Const NONE = 0
  195. Global Const ALIGN_TOP = 1
  196. Global Const ALIGN_BOTTOM = 2
  197.  
  198. ' Alignment
  199. Global Const LEFT_JUSTIFY = 0  ' 0 - Left Justify
  200. Global Const RIGHT_JUSTIFY = 1 ' 1 - Right Justify
  201. Global Const CENTER = 2        ' 2 - Center
  202.  
  203. ' BorderStyle (form)
  204. 'Global Const NONE = 0          ' 0 - None
  205. Global Const FIXED_SINGLE = 1   ' 1 - Fixed Single
  206. Global Const SIZABLE = 2        ' 2 - Sizable (Forms only)
  207. Global Const FIXED_DOUBLE = 3   ' 3 - Fixed Double (Forms only)
  208.  
  209. ' BorderStyle (Shape and Line)
  210. 'Global Const TRANSPARENT = 0    '0 - Transparent
  211. 'Global Const SOLID = 1          '1 - Solid
  212. 'Global Const DASH = 2         ' 2 - Dash
  213. 'Global Const DOT = 3          ' 3 - Dot
  214. 'Global Const DASH_DOT = 4     ' 4 - Dash-Dot
  215. 'Global Const DASH_DOT_DOT = 5 ' 5 - Dash-Dot-Dot
  216. 'Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid
  217.  
  218. ' MousePointer
  219. Global Const DEFAULT = 0        ' 0 - Default
  220. Global Const ARROW = 1          ' 1 - Arrow
  221. Global Const CROSSHAIR = 2      ' 2 - Cross
  222. Global Const IBEAM = 3          ' 3 - I-Beam
  223. Global Const ICON_POINTER = 4   ' 4 - Icon
  224. Global Const SIZE_POINTER = 5   ' 5 - Size
  225. Global Const SIZE_NE_SW = 6     ' 6 - Size NE SW
  226. Global Const SIZE_N_S = 7       ' 7 - Size N S
  227. Global Const SIZE_NW_SE = 8     ' 8 - Size NW SE
  228. Global Const SIZE_W_E = 9       ' 9 - Size W E
  229. Global Const UP_ARROW = 10      ' 10 - Up Arrow
  230. Global Const HOURGLASS = 11     ' 11 - Hourglass
  231. Global Const NO_DROP = 12       ' 12 - No drop
  232.  
  233. ' DragMode
  234. Global Const MANUAL = 0    ' 0 - Manual
  235. Global Const AUTOMATIC = 1 ' 1 - Automatic
  236.  
  237. ' DrawMode
  238. Global Const BLACKNESS = 1      ' 1 - Blackness
  239. Global Const NOT_MERGE_PEN = 2  ' 2 - Not Merge Pen
  240. Global Const MASK_NOT_PEN = 3   ' 3 - Mask Not Pen
  241. Global Const NOT_COPY_PEN = 4   ' 4 - Not Copy Pen
  242. Global Const MASK_PEN_NOT = 5   ' 5 - Mask Pen Not
  243. Global Const INVERT = 6         ' 6 - Invert
  244. Global Const XOR_PEN = 7        ' 7 - Xor Pen
  245. Global Const NOT_MASK_PEN = 8   ' 8 - Not Mask Pen
  246. Global Const MASK_PEN = 9       ' 9 - Mask Pen
  247. Global Const NOT_XOR_PEN = 10   ' 10 - Not Xor Pen
  248. Global Const NOP = 11           ' 11 - Nop
  249. Global Const MERGE_NOT_PEN = 12 ' 12 - Merge Not Pen
  250. Global Const COPY_PEN = 13      ' 13 - Copy Pen
  251. Global Const MERGE_PEN_NOT = 14 ' 14 - Merge Pen Not
  252. Global Const MERGE_PEN = 15     ' 15 - Merge Pen
  253. Global Const WHITENESS = 16     ' 16 - Whiteness
  254.  
  255. ' DrawStyle
  256. Global Const SOLID = 0        ' 0 - Solid
  257. Global Const DASH = 1         ' 1 - Dash
  258. Global Const DOT = 2          ' 2 - Dot
  259. Global Const DASH_DOT = 3     ' 3 - Dash-Dot
  260. Global Const DASH_DOT_DOT = 4 ' 4 - Dash-Dot-Dot
  261. Global Const INVISIBLE = 5    ' 5 - Invisible
  262. Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid
  263.  
  264. ' FillStyle
  265. ' Global Const SOLID = 0           ' 0 - Solid
  266. Global Const TRANSPARENT = 1       ' 1 - Transparent
  267. Global Const HORIZONTAL_LINE = 2   ' 2 - Horizontal Line
  268. Global Const VERTICAL_LINE = 3     ' 3 - Vertical Line
  269. Global Const UPWARD_DIAGONAL = 4   ' 4 - Upward Diagonal
  270. Global Const DOWNWARD_DIAGONAL = 5 ' 5 - Downward Diagonal
  271. Global Const CROSS = 6             ' 6 - Cross
  272. Global Const DIAGONAL_CROSS = 7    ' 7 - Diagonal Cross
  273.  
  274. ' LinkMode (forms and controls)
  275. ' Global Const NONE = 0         ' 0 - None
  276. Global Const LINK_SOURCE = 1    ' 1 - Source (forms only)
  277. Global Const LINK_AUTOMATIC = 1 ' 1 - Automatic (controls only)
  278. Global Const LINK_MANUAL = 2    ' 2 - Manual (controls only)
  279. Global Const LINK_NOTIFY = 3    ' 3 - Notify (controls only)
  280.  
  281. ' LinkMode (kept for VB1.0 compatibility, use new constants instead)
  282. Global Const HOT = 1    ' 1 - Hot (controls only)
  283. Global Const SERVER = 1 ' 1 - Server (forms only)
  284. Global Const COLD = 2   ' 2 - Cold (controls only)
  285.  
  286.  
  287. ' ScaleMode
  288. Global Const USER = 0        ' 0 - User
  289. Global Const TWIPS = 1       ' 1 - Twip
  290. Global Const POINTS = 2      ' 2 - Point
  291. Global Const PIXELS = 3      ' 3 - Pixel
  292. Global Const CHARACTERS = 4  ' 4 - Character
  293. Global Const INCHES = 5      ' 5 - Inch
  294. Global Const MILLIMETERS = 6 ' 6 - Millimeter
  295. Global Const CENTIMETERS = 7 ' 7 - Centimeter
  296.  
  297. ' ScrollBar
  298. ' Global Const NONE     = 0 ' 0 - None
  299. Global Const HORIZONTAL = 1 ' 1 - Horizontal
  300. Global Const VERTICAL = 2   ' 2 - Vertical
  301. Global Const BOTH = 3       ' 3 - Both
  302.  
  303. ' Shape
  304. Global Const SHAPE_RECTANGLE = 0
  305. Global Const SHAPE_SQUARE = 1
  306. Global Const SHAPE_OVAL = 2
  307. Global Const SHAPE_CIRCLE = 3
  308. Global Const SHAPE_ROUNDED_RECTANGLE = 4
  309. Global Const SHAPE_ROUNDED_SQUARE = 5
  310.  
  311. ' WindowState
  312. Global Const NORMAL = 0    ' 0 - Normal
  313. Global Const MINIMIZED = 1 ' 1 - Minimized
  314. Global Const MAXIMIZED = 2 ' 2 - Maximized
  315.  
  316. ' Check Value
  317. Global Const UNCHECKED = 0 ' 0 - Unchecked
  318. Global Const CHECKED = 1   ' 1 - Checked
  319. Global Const GRAYED = 2    ' 2 - Grayed
  320.  
  321. ' Shift parameter masks
  322. Global Const SHIFT_MASK = 1
  323. Global Const CTRL_MASK = 2
  324. Global Const ALT_MASK = 4
  325.  
  326. ' Button parameter masks
  327. Global Const LEFT_BUTTON = 1
  328. Global Const RIGHT_BUTTON = 2
  329. Global Const MIDDLE_BUTTON = 4
  330.  
  331. ' Function Parameters
  332. ' MsgBox parameters
  333. Global Const MB_OK = 0                 ' OK button only
  334. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  335. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  336. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  337. Global Const MB_YESNO = 4              ' Yes and No buttons
  338. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  339.  
  340. Global Const MB_ICONSTOP = 16          ' Critical message
  341. Global Const MB_ICONQUESTION = 32      ' Warning query
  342. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  343. Global Const MB_ICONINFORMATION = 64   ' Information message
  344.  
  345. Global Const MB_APPLMODAL = 0          ' Application Modal Message Box
  346. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  347. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  348. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  349. Global Const MB_SYSTEMMODAL = 4096      'System Modal
  350.  
  351. ' MsgBox return values
  352. Global Const IDOK = 1                  ' OK button pressed
  353. Global Const IDCANCEL = 2              ' Cancel button pressed
  354. Global Const IDABORT = 3               ' Abort button pressed
  355. Global Const IDRETRY = 4               ' Retry button pressed
  356. Global Const IDIGNORE = 5              ' Ignore button pressed
  357. Global Const IDYES = 6                 ' Yes button pressed
  358. Global Const IDNO = 7                  ' No button pressed
  359.  
  360. ' SetAttr, Dir, GetAttr functions
  361. Global Const ATTR_NORMAL = 0
  362. Global Const ATTR_READONLY = 1
  363. Global Const ATTR_HIDDEN = 2
  364. Global Const ATTR_SYSTEM = 4
  365. Global Const ATTR_VOLUME = 8
  366. Global Const ATTR_DIRECTORY = 16
  367. Global Const ATTR_ARCHIVE = 32
  368.  
  369. 'Grid
  370. 'ColAlignment,FixedAlignment Properties
  371. Global Const GRID_ALIGNLEFT = 0
  372. Global Const GRID_ALIGNRIGHT = 1
  373. Global Const GRID_ALIGNCENTER = 2
  374.  
  375. 'Fillstyle Property
  376. Global Const GRID_SINGLE = 0
  377. Global Const GRID_REPEAT = 1
  378.  
  379.  
  380. 'Data control
  381. 'Error event Response arguments
  382. Global Const DATA_ERRCONTINUE = 0
  383. Global Const DATA_ERRDISPLAY = 1
  384.  
  385. 'Editmode property values
  386. Global Const DATA_EDITNONE = 0
  387. Global Const DATA_EDITMODE = 1
  388. Global Const DATA_EDITADD = 2
  389.  
  390. ' Options property values
  391. Global Const DATA_DENYWRITE = &H1
  392. Global Const DATA_DENYREAD = &H2
  393. Global Const DATA_READONLY = &H4
  394. Global Const DATA_APPENDONLY = &H8
  395. Global Const DATA_INCONSISTENT = &H10
  396. Global Const DATA_CONSISTENT = &H20
  397. Global Const DATA_SQLPASSTHROUGH = &H40
  398.  
  399. 'Validate event Action arguments
  400. Global Const DATA_ACTIONCANCEL = 0
  401. Global Const DATA_ACTIONMOVEFIRST = 1
  402. Global Const DATA_ACTIONMOVEPREVIOUS = 2
  403. Global Const DATA_ACTIONMOVENEXT = 3
  404. Global Const DATA_ACTIONMOVELAST = 4
  405. Global Const DATA_ACTIONADDNEW = 5
  406. Global Const DATA_ACTIONUPDATE = 6
  407. Global Const DATA_ACTIONDELETE = 7
  408. Global Const DATA_ACTIONFIND = 8
  409. Global Const DATA_ACTIONBOOKMARK = 9
  410. Global Const DATA_ACTIONCLOSE = 10
  411. Global Const DATA_ACTIONUNLOAD = 11
  412.  
  413.  
  414. 'OLE Client Control
  415. 'Actions
  416. Global Const OLE_CREATE_EMBED = 0
  417. Global Const OLE_CREATE_NEW = 0           'from ole1 control
  418. Global Const OLE_CREATE_LINK = 1
  419. Global Const OLE_CREATE_FROM_FILE = 1     'from ole1 control
  420. Global Const OLE_COPY = 4
  421. Global Const OLE_PASTE = 5
  422. Global Const OLE_UPDATE = 6
  423. Global Const OLE_ACTIVATE = 7
  424. Global Const OLE_CLOSE = 9
  425. Global Const OLE_DELETE = 10
  426. Global Const OLE_SAVE_TO_FILE = 11
  427. Global Const OLE_READ_FROM_FILE = 12
  428. Global Const OLE_INSERT_OBJ_DLG = 14
  429. Global Const OLE_PASTE_SPECIAL_DLG = 15
  430. Global Const OLE_FETCH_VERBS = 17
  431. Global Const OLE_SAVE_TO_OLE1FILE = 18
  432.  
  433. 'OLEType
  434. Global Const OLE_LINKED = 0
  435. Global Const OLE_EMBEDDED = 1
  436. Global Const OLE_NONE = 3
  437.  
  438. 'OLETypeAllowed
  439. Global Const OLE_EITHER = 2
  440.  
  441. 'UpdateOptions
  442. Global Const OLE_AUTOMATIC = 0
  443. Global Const OLE_FROZEN = 1
  444. Global Const OLE_MANUAL = 2
  445.  
  446. 'AutoActivate modes
  447. 'Note that OLE_ACTIVATE_GETFOCUS only applies to objects that
  448. 'support "inside-out" activation.  See related Verb notes below.
  449. Global Const OLE_ACTIVATE_MANUAL = 0
  450. Global Const OLE_ACTIVATE_GETFOCUS = 1
  451. Global Const OLE_ACTIVATE_DOUBLECLICK = 2
  452.  
  453. 'SizeModes
  454. Global Const OLE_SIZE_CLIP = 0
  455. Global Const OLE_SIZE_STRETCH = 1
  456. Global Const OLE_SIZE_AUTOSIZE = 2
  457.  
  458. 'DisplayTypes
  459. Global Const OLE_DISPLAY_CONTENT = 0
  460. Global Const OLE_DISPLAY_ICON = 1
  461.  
  462. 'Update Event Constants
  463. Global Const OLE_CHANGED = 0
  464. Global Const OLE_SAVED = 1
  465. Global Const OLE_CLOSED = 2
  466. Global Const OLE_RENAMED = 3
  467.  
  468. 'Special Verb Values
  469. Global Const VERB_PRIMARY = 0
  470. Global Const VERB_SHOW = -1
  471. Global Const VERB_OPEN = -2
  472. Global Const VERB_HIDE = -3
  473. Global Const VERB_INPLACEUIACTIVATE = -4
  474. Global Const VERB_INPLACEACTIVATE = -5
  475. 'The last two verbs are for objects that support "inside-out" activation,
  476. 'meaning they can be edited in-place, and that they support being left
  477. 'in-place-active even when the input focus moves to another control or form.
  478. 'These objects actually have 2 levels of being active.  "InPlace Active"
  479. 'means that the object is ready for the user to click inside it and start
  480. 'working with it.  "In-Place UI-Active" means that, in addition, if the object
  481. 'has any other UI associated with it, such as floating palette windows,
  482. 'that those windows are visible and ready for use.  Any number of objects
  483. 'can be "In-Place Active" at a time, although only one can be
  484. '"InPlace UI-Active".
  485.  
  486. 'You can cause an object to move to either one of states programmatically by
  487. 'setting the Verb property to the appropriate verb and setting
  488. 'Action=OLE_ACTIVATE.
  489.  
  490. 'Also, if you set AutoActivate = OLE_ACTIVATE_GETFOCUS, the server will
  491. 'automatically be put into "InPlace UI-Active" state when the user clicks
  492. 'on or tabs into the control.
  493.  
  494. 'VerbFlag Bit Masks
  495. Global Const VERBFLAG_GRAYED = &H1
  496. Global Const VERBFLAG_DISABLED = &H2
  497. Global Const VERBFLAG_CHECKED = &H8
  498. Global Const VERBFLAG_SEPARATOR = &H800
  499.  
  500. 'MiscFlag Bits - Or these together as desired for special behaviors
  501.  
  502. 'MEMSTORAGE causes the control to use memory to store the object while
  503. '           it is loaded.  This is faster than the default (disk-tempfile),
  504. '           but can consume a lot of memory for objects whose data takes
  505. '           up a lot of space, such as the bitmap for a paint program.
  506. Global Const OLE_MISCFLAG_MEMSTORAGE = &H1
  507.  
  508. 'DISABLEINPLACE overrides the control's default behavior of allowing
  509. '           in-place activation for objects that support it.  If you
  510. '           are having problems activating an object inplace, you can
  511. '           force it to always activate in a separate window by setting this
  512. '           bit
  513. Global Const OLE_MISCFLAG_DISABLEINPLACE = &H2
  514.  
  515. 'Common Dialog Control
  516. 'Action Property
  517. Global Const DLG_FILE_OPEN = 1
  518. Global Const DLG_FILE_SAVE = 2
  519. Global Const DLG_COLOR = 3
  520. Global Const DLG_FONT = 4
  521. Global Const DLG_PRINT = 5
  522. Global Const DLG_HELP = 6
  523.  
  524. 'File Open/Save Dialog Flags
  525. Global Const OFN_READONLY = &H1&
  526. Global Const OFN_OVERWRITEPROMPT = &H2&
  527. Global Const OFN_HIDEREADONLY = &H4&
  528. Global Const OFN_NOCHANGEDIR = &H8&
  529. Global Const OFN_SHOWHELP = &H10&
  530. Global Const OFN_NOVALIDATE = &H100&
  531. Global Const OFN_ALLOWMULTISELECT = &H200&
  532. Global Const OFN_EXTENSIONDIFFERENT = &H400&
  533. Global Const OFN_PATHMUSTEXIST = &H800&
  534. Global Const OFN_FILEMUSTEXIST = &H1000&
  535. Global Const OFN_CREATEPROMPT = &H2000&
  536. Global Const OFN_SHAREAWARE = &H4000&
  537. Global Const OFN_NOREADONLYRETURN = &H8000&
  538.  
  539. 'Color Dialog Flags
  540. Global Const CC_RGBINIT = &H1&
  541. Global Const CC_FULLOPEN = &H2&
  542. Global Const CC_PREVENTFULLOPEN = &H4&
  543. Global Const CC_SHOWHELP = &H8&
  544.  
  545. 'Fonts Dialog Flags
  546. Global Const CF_SCREENFONTS = &H1&
  547. Global Const CF_PRINTERFONTS = &H2&
  548. Global Const CF_BOTH = &H3&
  549. Global Const CF_SHOWHELP = &H4&
  550. Global Const CF_INITTOLOGFONTSTRUCT = &H40&
  551. Global Const CF_USESTYLE = &H80&
  552. Global Const CF_EFFECTS = &H100&
  553. Global Const CF_APPLY = &H200&
  554. Global Const CF_ANSIONLY = &H400&
  555. Global Const CF_NOVECTORFONTS = &H800&
  556. Global Const CF_NOSIMULATIONS = &H1000&
  557. Global Const CF_LIMITSIZE = &H2000&
  558. Global Const CF_FIXEDPITCHONLY = &H4000&
  559. Global Const CF_WYSIWYG = &H8000&         'must also have CF_SCREENFONTS & CF_PRINTERFONTS
  560. Global Const CF_FORCEFONTEXIST = &H10000
  561. Global Const CF_SCALABLEONLY = &H20000
  562. Global Const CF_TTONLY = &H40000
  563. Global Const CF_NOFACESEL = &H80000
  564. Global Const CF_NOSTYLESEL = &H100000
  565. Global Const CF_NOSIZESEL = &H200000
  566.  
  567. 'Printer Dialog Flags
  568. Global Const PD_ALLPAGES = &H0&
  569. Global Const PD_SELECTION = &H1&
  570. Global Const PD_PAGENUMS = &H2&
  571. Global Const PD_NOSELECTION = &H4&
  572. Global Const PD_NOPAGENUMS = &H8&
  573. Global Const PD_COLLATE = &H10&
  574. Global Const PD_PRINTTOFILE = &H20&
  575. Global Const PD_PRINTSETUP = &H40&
  576. Global Const PD_NOWARNING = &H80&
  577. Global Const PD_RETURNDC = &H100&
  578. Global Const PD_RETURNIC = &H200&
  579. Global Const PD_RETURNDEFAULT = &H400&
  580. Global Const PD_SHOWHELP = &H800&
  581. Global Const PD_USEDEVMODECOPIES = &H40000
  582. Global Const PD_DISABLEPRINTTOFILE = &H80000
  583. Global Const PD_HIDEPRINTTOFILE = &H100000
  584.  
  585. 'Help Constants
  586. Global Const HELP_CONTEXT = &H1           'Display topic in ulTopic
  587. Global Const HELP_QUIT = &H2              'Terminate help
  588. Global Const HELP_INDEX = &H3             'Display index
  589. Global Const HELP_CONTENTS = &H3
  590. Global Const HELP_HELPONHELP = &H4        'Display help on using help
  591. Global Const HELP_SETINDEX = &H5          'Set the current Index for multi index help
  592. Global Const HELP_SETCONTENTS = &H5
  593. Global Const HELP_CONTEXTPOPUP = &H8
  594. Global Const HELP_FORCEFILE = &H9
  595. Global Const HELP_KEY = &H101             'Display topic for keyword in offabData
  596. Global Const HELP_COMMAND = &H102
  597. Global Const HELP_PARTIALKEY = &H105      'call the search engine in winhelp
  598.  
  599. 'Error Constants
  600. Global Const CDERR_DIALOGFAILURE = -32768
  601.  
  602. Global Const CDERR_GENERALCODES = &H7FFF
  603. Global Const CDERR_STRUCTSIZE = &H7FFE
  604. Global Const CDERR_INITIALIZATION = &H7FFD
  605. Global Const CDERR_NOTEMPLATE = &H7FFC
  606. Global Const CDERR_NOHINSTANCE = &H7FFB
  607. Global Const CDERR_LOADSTRFAILURE = &H7FFA
  608. Global Const CDERR_FINDRESFAILURE = &H7FF9
  609. Global Const CDERR_LOADRESFAILURE = &H7FF8
  610. Global Const CDERR_LOCKRESFAILURE = &H7FF7
  611. Global Const CDERR_MEMALLOCFAILURE = &H7FF6
  612. Global Const CDERR_MEMLOCKFAILURE = &H7FF5
  613. Global Const CDERR_NOHOOK = &H7FF4
  614.  
  615. 'Added for CMDIALOG.VBX
  616. Global Const CDERR_CANCEL = &H7FF3
  617. Global Const CDERR_NODLL = &H7FF2
  618. Global Const CDERR_ERRPROC = &H7FF1
  619. Global Const CDERR_ALLOC = &H7FF0
  620. Global Const CDERR_HELP = &H7FEF
  621.  
  622. Global Const PDERR_PRINTERCODES = &H6FFF
  623. Global Const PDERR_SETUPFAILURE = &H6FFE
  624. Global Const PDERR_PARSEFAILURE = &H6FFD
  625. Global Const PDERR_RETDEFFAILURE = &H6FFC
  626. Global Const PDERR_LOADDRVFAILURE = &H6FFB
  627. Global Const PDERR_GETDEVMODEFAIL = &H6FFA
  628. Global Const PDERR_INITFAILURE = &H6FF9
  629. Global Const PDERR_NODEVICES = &H6FF8
  630. Global Const PDERR_NODEFAULTPRN = &H6FF7
  631. Global Const PDERR_DNDMMISMATCH = &H6FF6
  632. Global Const PDERR_CREATEICFAILURE = &H6FF5
  633. Global Const PDERR_PRINTERNOTFOUND = &H6FF4
  634.  
  635. Global Const CFERR_CHOOSEFONTCODES = &H5FFF
  636. Global Const CFERR_NOFONTS = &H5FFE
  637.  
  638. Global Const FNERR_FILENAMECODES = &H4FFF
  639. Global Const FNERR_SUBCLASSFAILURE = &H4FFE
  640. Global Const FNERR_INVALIDFILENAME = &H4FFD
  641. Global Const FNERR_BUFFERTOOSMALL = &H4FFC
  642.  
  643. Global Const FRERR_FINDREPLACECODES = &H3FFF
  644. Global Const CCERR_CHOOSECOLORCODES = &H2FFF
  645.  
  646.  
  647. '---------------------------------------------------------
  648. '      Table of Contents for Visual Basic Professional
  649. '
  650. '       1.  3-D Controls
  651. '           (Frame/Panel/Option/Check/Command/Group Push)
  652. '       2.  Animated Button
  653. '       3.  Gauge Control
  654. '       4.  Graph Control Section
  655. '       5.  Key Status Control
  656. '       6.  Spin Button
  657. '       7.  MCI Control (Multimedia)
  658. '       8.  Masked Edit Control
  659. '       9.  Comm Control
  660. '       10. Outline Control
  661. '---------------------------------------------------------
  662.  
  663.  
  664. '-------------------------------------------------------------------
  665. '3D Controls
  666. '-------------------------------------------------------------------
  667. 'Alignment (Check Box)
  668. Global Const SSCB_TEXT_RIGHT = 0         '0 - Text to the right
  669. Global Const SSCB_TEXT_LEFT = 1          '1 - Text to the left
  670.  
  671. 'Alignment (Option Button)
  672. Global Const SSOB_TEXT_RIGHT = 0         '0 - Text to the right
  673. Global Const SSOB_TEXT_LEFT = 1          '1 - Text to the left
  674.  
  675. 'Alignment (Frame)
  676. Global Const SSFR_LEFT_JUSTIFY = 0       '0 - Left justify text
  677. Global Const SSFR_RIGHT_JUSTIFY = 1      '1 - Right justify text
  678. Global Const SSFR_CENTER = 2             '2 - Center text
  679.  
  680. 'Alignment (Panel)
  681. Global Const SSPN_LEFT_TOP = 0           '0 - Text to left and top
  682. Global Const SSPN_LEFT_MIDDLE = 1        '1 - Text to left and middle
  683. Global Const SSPN_LEFT_BOTTOM = 2        '2 - Text to left and bottom
  684. Global Const SSPN_RIGHT_TOP = 3          '3 - Text to right and top
  685. Global Const SSPN_RIGHT_MIDDLE = 4       '4 - Text to right and middle
  686. Global Const SSPN_RIGHT_BOTTOM = 5       '5 - Text to right and bottom
  687. Global Const SSPN_CENTER_TOP = 6         '6 - Text to center and top
  688. Global Const SSPN_CENTER_MIDDLE = 7      '7 - Text to center and middle
  689. Global Const SSPN_CENTER_BOTTOM = 8      '8 - Text to center and bottom
  690.  
  691. 'Autosize (Command Button)
  692. Global Const SS_AUTOSIZE_NONE = 0        '0 - No Autosizing
  693. Global Const SSPB_AUTOSIZE_PICTOBUT = 1  '0 - Autosize Picture to Button
  694. Global Const SSPB_AUTOSIZE_BUTTOPIC = 2  '0 - Autosize Button to Picture
  695.  
  696. 'Autosize (Ribbon Button)
  697. 'Global Const SS_AUTOSIZE_NONE      = 0  '0 - No Autosizing
  698. Global Const SSRI_AUTOSIZE_PICTOBUT = 1  '0 - Autosize Picture to Button
  699. Global Const SSRI_AUTOSIZE_BUTTOPIC = 2  '0 - Autosize Button to Picture
  700.  
  701. 'Autosize (Panel)
  702. 'Global Const SS_AUTOSIZE_NONE    = 0    '0 - No Autosizing
  703. Global Const SSPN_AUTOSIZE_WIDTH = 1     '1 - Autosize Panel width to Caption
  704. Global Const SSPN_AUTOSIZE_HEIGHT = 2    '2 - Autosize Panel height to Caption
  705. Global Const SSPN_AUTOSIZE_CHILD = 3     '3 - Autosize Child to Panel
  706.  
  707. 'BevelInner (Panel)
  708. Global Const SS_BEVELINNER_NONE = 0      '0 - No Inner Bevel
  709. Global Const SS_BEVELINNER_INSET = 1     '1 - Inset Inner Bevel
  710. Global Const SS_BEVELINNER_RAISED = 2    '2 - Raised Inner Bevel
  711.  
  712. 'BevelOuter (Panel)
  713. Global Const SS_BEVELOUTER_NONE = 0      '0 - No Outer Bevel
  714. Global Const SS_BEVELOUTER_INSET = 1     '1 - Inset Outer Bevel
  715. Global Const SS_BEVELOUTER_RAISED = 2    '2 - Raised Outer Bevel
  716.  
  717. 'FloodType (Panel)
  718. Global Const SS_FLOODTYPE_NONE = 0       '0 - No flood
  719. Global Const SS_FLOODTYPE_L_TO_R = 1     '1 - Left to light
  720. Global Const SS_FLOODTYPE_R_TO_L = 2     '2 - Right to left
  721. Global Const SS_FLOODTYPE_T_TO_B = 3     '3 - Top to bottom
  722. Global Const SS_FLOODTYPE_B_TO_T = 4     '4 - Bottom to top
  723. Global Const SS_FLOODTYPE_CIRCLE = 5     '5 - Widening circle
  724.  
  725. 'Font3D (Panel, Command Button, Option Button, Check Box, Frame)
  726. Global Const SS_FONT3D_NONE = 0          '0 - No 3-D text
  727. Global Const SS_FONT3D_RAISED_LIGHT = 1  '1 - Raised with light shading
  728. Global Const SS_FONT3D_RAISED_HEAVY = 2  '2 - Raised with heavy shading
  729. Global Const SS_FONT3D_INSET_LIGHT = 3   '3 - Inset with light shading
  730. Global Const SS_FONT3D_INSET_HEAVY = 4   '4 - Inset with heavy shading
  731.  
  732. 'PictureDnChange (Ribbon Button)
  733. Global Const SS_PICDN_NOCHANGE = 0       '0 - Use 'Up'bitmap with no change
  734. Global Const SS_PICDN_DITHER = 1         '1 - Dither 'Up'bitmap
  735. Global Const SS_PICDN_INVERT = 2         '2 - Invert 'Up'bitmap
  736.  
  737. 'ShadowColor (Panel, Frame)
  738. Global Const SS_SHADOW_DARKGREY = 0      '0 - Dark grey shadow
  739. Global Const SS_SHADOW_BLACK = 1         '1 - Black shadow
  740.  
  741. 'ShadowStyle (Frame)
  742. Global Const SS_SHADOW_INSET = 0         '0 - Shadow inset
  743. Global Const SS_SHADOW_RAISED = 1        '1 - Shadow raised
  744.  
  745.  
  746. '---------------------------------------
  747. 'Animated Button
  748. '---------------------------------------
  749. 'Cycle property
  750. Global Const ANI_ANIMATED = 0
  751. Global Const ANI_MULTISTATE = 1
  752. Global Const ANI_TWO_STATE = 2
  753.  
  754. 'Click Filter property
  755. Global Const ANI_ANYWHERE = 0
  756. Global Const ANI_IMAGE_AND_TEXT = 1
  757. Global Const ANI_IMAGE = 2
  758. Global Const ANI_TEXT = 3
  759.  
  760. 'PicDrawMode Property
  761. Global Const ANI_XPOS_YPOS = 0
  762. Global Const ANI_AUTOSIZE = 1
  763. Global Const ANI_STRETCH = 2
  764.  
  765. 'SpecialOp Property
  766. Global Const ANI_CLICK = 1
  767.  
  768. 'TextPosition Property
  769. Global Const ANI_CENTER = 0
  770. Global Const ANI_LEFT = 1
  771. Global Const ANI_RIGHT = 2
  772. Global Const ANI_BOTTON = 3
  773. Global Const ANI_TOP = 4
  774.  
  775.  
  776. '---------------------------------------
  777. 'GAUGE
  778. '---------------------------------------
  779. 'Style Property
  780. Global Const GAUGE_HORIZ = 0
  781. Global Const GAUGE_VERT = 1
  782. Global Const GAUGE_SEMI = 2
  783. Global Const GAUGE_FULL = 3
  784.  
  785.  
  786. '----------------------------------------
  787. 'Graph Control
  788. '----------------------------------------
  789. 'General
  790. Global Const G_NONE = 0
  791. Global Const G_DEFAULT = 0
  792.  
  793. Global Const G_OFF = 0
  794. Global Const G_ON = 1
  795.  
  796. Global Const G_MONO = 0
  797. Global Const G_COLOR = 1
  798.  
  799. 'Graph Types
  800. Global Const G_PIE2D = 1
  801. Global Const G_PIE3D = 2
  802. Global Const G_BAR2D = 3
  803. Global Const G_BAR3D = 4
  804. Global Const G_GANTT = 5
  805. Global Const G_LINE = 6
  806. Global Const G_LOGLIN = 7
  807. Global Const G_AREA = 8
  808. Global Const G_SCATTER = 9
  809. Global Const G_POLAR = 10
  810. Global Const G_HLC = 11
  811.  
  812. 'Colors
  813. Global Const G_BLACK = 0
  814. Global Const G_BLUE = 1
  815. Global Const G_GREEN = 2
  816. Global Const G_CYAN = 3
  817. Global Const G_RED = 4
  818. Global Const G_MAGENTA = 5
  819. Global Const G_BROWN = 6
  820. Global Const G_LIGHT_GRAY = 7
  821. Global Const G_DARK_GRAY = 8
  822. Global Const G_LIGHT_BLUE = 9
  823. Global Const G_LIGHT_GREEN = 10
  824. Global Const G_LIGHT_CYAN = 11
  825. Global Const G_LIGHT_RED = 12
  826. Global Const G_LIGHT_MAGENTA = 13
  827. Global Const G_YELLOW = 14
  828. Global Const G_WHITE = 15
  829. Global Const G_AUTOBW = 16
  830.  
  831. 'Patterns
  832. Global Const G_SOLID = 0
  833. Global Const G_HOLLOW = 1
  834. Global Const G_HATCH1 = 2
  835. Global Const G_HATCH2 = 3
  836. Global Const G_HATCH3 = 4
  837. Global Const G_HATCH4 = 5
  838. Global Const G_HATCH5 = 6
  839. Global Const G_HATCH6 = 7
  840. Global Const G_BITMAP1 = 16
  841. Global Const G_BITMAP2 = 17
  842. Global Const G_BITMAP3 = 18
  843. Global Const G_BITMAP4 = 19
  844. Global Const G_BITMAP5 = 20
  845. Global Const G_BITMAP6 = 21
  846. Global Const G_BITMAP7 = 22
  847. Global Const G_BITMAP8 = 23
  848. Global Const G_BITMAP9 = 24
  849. Global Const G_BITMAP10 = 25
  850. Global Const G_BITMAP11 = 26
  851. Global Const G_BITMAP12 = 27
  852. Global Const G_BITMAP13 = 28
  853. Global Const G_BITMAP14 = 29
  854. Global Const G_BITMAP15 = 30
  855. Global Const G_BITMAP16 = 31
  856.  
  857. 'Symbols
  858. Global Const G_CROSS_PLUS = 0
  859. Global Const G_CROSS_TIMES = 1
  860. Global Const G_TRIANGLE_UP = 2
  861. Global Const G_SOLID_TRIANGLE_UP = 3
  862. Global Const G_TRIANGLE_DOWN = 4
  863. Global Const G_SOLID_TRIANGLE_DOWN = 5
  864. Global Const G_SQUARE = 6
  865. Global Const G_SOLID_SQUARE = 7
  866. Global Const G_DIAMOND = 8
  867. Global Const G_SOLID_DIAMOND = 9
  868.  
  869. 'Line Styles
  870. 'Global Const G_SOLID = 0
  871. Global Const G_DASH = 1
  872. Global Const G_DOT = 2
  873. Global Const G_DASHDOT = 3
  874. Global Const G_DASHDOTDOT = 4
  875.  
  876. 'Grids
  877. Global Const G_HORIZONTAL = 1
  878. Global Const G_VERTICAL = 2
  879.  
  880. 'Statistics
  881. Global Const G_MEAN = 1
  882. Global Const G_MIN_MAX = 2
  883. Global Const G_STD_DEV = 4
  884. Global Const G_BEST_FIT = 8
  885.  
  886. 'Data Arrays
  887. Global Const G_GRAPH_DATA = 1
  888. Global Const G_COLOR_DATA = 2
  889. Global Const G_EXTRA_DATA = 3
  890. Global Const G_LABEL_TEXT = 4
  891. Global Const G_LEGEND_TEXT = 5
  892. Global Const G_PATTERN_DATA = 6
  893. Global Const G_SYMBOL_DATA = 7
  894. Global Const G_XPOS_DATA = 8
  895. Global Const G_ALL_DATA = 9
  896.  
  897. 'Draw Mode
  898. Global Const G_NO_ACTION = 0
  899. Global Const G_CLEAR = 1
  900. Global Const G_DRAW = 2
  901. Global Const G_BLIT = 3
  902. Global Const G_COPY = 4
  903. Global Const G_PRINT = 5
  904. Global Const G_WRITE = 6
  905.  
  906. 'Print Options
  907. Global Const G_BORDER = 2
  908.  
  909. 'Pie Chart Options             '
  910. Global Const G_NO_LINES = 1
  911. Global Const G_COLORED = 2
  912. Global Const G_PERCENTS = 4
  913.  
  914. 'Bar Chart Options             '
  915. 'Global Const G_HORIZONTAL = 1
  916. Global Const G_STACKED = 2
  917. Global Const G_PERCENTAGE = 4
  918. Global Const G_Z_CLUSTERED = 6
  919.  
  920. 'Gantt Chart Options           '
  921. Global Const G_SPACED_BARS = 1
  922.  
  923. 'Line/Polar Chart Options      '
  924. Global Const G_SYMBOLS = 1
  925. Global Const G_STICKS = 2
  926. Global Const G_LINES = 4
  927.  
  928. 'Area Chart Options            '
  929. Global Const G_ABSOLUTE = 1
  930. Global Const G_PERCENT = 2
  931.  
  932. 'HLC Chart Options             '
  933. Global Const G_NO_CLOSE = 1
  934. Global Const G_NO_HIGH_LOW = 2
  935.  
  936.  
  937. '---------------------------------------
  938. 'Key Status Control
  939. '---------------------------------------
  940. 'Style
  941. Global Const KEYSTAT_CAPSLOCK = 0
  942. Global Const KEYSTAT_NUMLOCK = 1
  943. Global Const KEYSTAT_INSERT = 2
  944. Global Const KEYSTAT_SCROLLLOCK = 3
  945.  
  946.  
  947. '---------------------------------------
  948. 'MCI Control (Multimedia)
  949. '---------------------------------------
  950. 'NOTE:
  951. 'Please use the updated Multimedia constants
  952. 'in the WINMMSYS.TXT file from the \VB\WINAPI
  953. 'subdirectory.
  954.  
  955. 'Mode Property
  956. 'Global Const MCI_MODE_NOT_OPEN = 11
  957. 'Global Const MCI_MODE_STOP = 12
  958. 'Global Const MCI_MODE_PLAY = 13
  959. 'Global Const MCI_MODE_RECORD = 14
  960. 'Global Const MCI_MODE_SEEK = 15
  961. 'Global Const MCI_MODE_PAUSE = 16
  962. 'Global Const MCI_MODE_READY = 17
  963.  
  964. 'NotifyValue Property
  965. 'Global Const MCI_NOTIFY_SUCCESSFUL = 1
  966. 'Global Const MCI_NOTIFY_SUPERSEDED = 2
  967. 'Global Const MCI_ABORTED = 4
  968. 'Global Const MCI_FAILURE = 8
  969.  
  970. 'Orientation Property
  971. 'Global Const MCI_ORIENT_HORZ = 0
  972. 'Global Const MCI_ORIENT_VERT = 1
  973.  
  974. 'RecordMode Porperty
  975. 'Global Const MCI_RECORD_INSERT = 0
  976. 'Global Const MCI_RECORD_OVERWRITE = 1
  977.  
  978. 'TimeFormat Property
  979. 'Global Const MCI_FORMAT_MILLISECONDS = 0
  980. 'Global Const MCI_FORMAT_HMS = 1
  981. 'Global Const MCI_FORMAT_MSF = 2
  982. 'Global Const MCI_FORMAT_FRAMES = 3
  983. 'Global Const MCI_FORMAT_SMPTE_24 = 4
  984. 'Global Const MCI_FORMAT_SMPTE_25 = 5
  985. 'Global Const MCI_FORMAT_SMPTE_30 = 6
  986. 'Global Const MCI_FORMAT_SMPTE_30DROP = 7
  987. 'Global Const MCI_FORMAT_BYTES = 8
  988. 'Global Const MCI_FORMAT_SAMPLES = 9
  989. 'Global Const MCI_FORMAT_TMSF = 10
  990.  
  991.  
  992. '---------------------------------------
  993. 'Spin Button
  994. '---------------------------------------
  995. 'SpinOrientation
  996. Global Const SPIN_VERTICAL = 0
  997. Global Const SPIN_HORIZONTAL = 1
  998.  
  999.  
  1000. '---------------------------------------
  1001. 'Masked Edit Control
  1002. '---------------------------------------
  1003. 'ClipMode
  1004. Global Const ME_INCLIT = 0
  1005. Global Const ME_EXCLIT = 1
  1006.  
  1007.  
  1008. '---------------------------------------
  1009. 'Comm Control
  1010. '---------------------------------------
  1011. 'Handshaking
  1012. Global Const MSCOMM_HANDSHAKE_NONE = 0
  1013. Global Const MSCOMM_HANDSHAKE_XONXOFF = 1
  1014. Global Const MSCOMM_HANDSHAKE_RTS = 2
  1015. Global Const MSCOMM_HANDSHAKE_RTSXONXOFF = 3
  1016.  
  1017. 'Event constants
  1018. Global Const MSCOMM_EV_SEND = 1
  1019. Global Const MSCOMM_EV_RECEIVE = 2
  1020. Global Const MSCOMM_EV_CTS = 3
  1021. Global Const MSCOMM_EV_DSR = 4
  1022. Global Const MSCOMM_EV_CD = 5
  1023. Global Const MSCOMM_EV_RING = 6
  1024. Global Const MSCOMM_EV_EOF = 7
  1025.  
  1026. 'Error code constants
  1027. Global Const MSCOMM_ER_BREAK = 1001
  1028. Global Const MSCOMM_ER_CTSTO = 1002
  1029. Global Const MSCOMM_ER_DSRTO = 1003
  1030. Global Const MSCOMM_ER_FRAME = 1004
  1031. Global Const MSCOMM_ER_OVERRUN = 1006
  1032. Global Const MSCOMM_ER_CDTO = 1007
  1033. Global Const MSCOMM_ER_RXOVER = 1008
  1034. Global Const MSCOMM_ER_RXPARITY = 1009
  1035. Global Const MSCOMM_ER_TXFULL = 1010
  1036.  
  1037.  
  1038. '---------------------------------------
  1039. ' MAPI SESSION CONTROL CONSTANTS
  1040. '---------------------------------------
  1041. 'Action
  1042. Global Const SESSION_SIGNON = 1
  1043. Global Const SESSION_SIGNOFF = 2
  1044.  
  1045.  
  1046. '---------------------------------------
  1047. ' MAPI MESSAGE CONTROL CONSTANTS
  1048. '---------------------------------------
  1049. 'Action
  1050. Global Const MESSAGE_FETCH = 1             ' Load all messages from message store
  1051. Global Const MESSAGE_SENDDLG = 2           ' Send mail bring up default mapi dialog
  1052. Global Const MESSAGE_SEND = 3              ' Send mail without default mapi dialog
  1053. Global Const MESSAGE_SAVEMSG = 4           ' Save message in the compose buffer
  1054. Global Const MESSAGE_COPY = 5              ' Copy current message to compose buffer
  1055. Global Const MESSAGE_COMPOSE = 6           ' Initialize compose buffer (previous
  1056.                        ' data is lost
  1057. Global Const MESSAGE_REPLY = 7             ' Fill Compose buffer as REPLY
  1058. Global Const MESSAGE_REPLYALL = 8          ' Fill Compose buffer as REPLY ALL
  1059. Global Const MESSAGE_FORWARD = 9           ' Fill Compose buffer as FORWARD
  1060. Global Const MESSAGE_DELETE = 10           ' Delete current message
  1061. Global Const MESSAGE_SHOWADBOOK = 11       ' Show Address book
  1062. Global Const MESSAGE_SHOWDETAILS = 12      ' Show details of the current recipient
  1063. Global Const MESSAGE_RESOLVENAME = 13      ' Resolve the display name of the recipient
  1064. Global Const RECIPIENT_DELETE = 14            ' Fill Compose buffer as FORWARD
  1065. Global Const ATTACHMENT_DELETE = 15          ' Delete current message
  1066.  
  1067.  
  1068. '---------------------------------------
  1069. '  ERROR CONSTANT DECLARATIONS (MAPI CONTROLS)
  1070. '---------------------------------------
  1071. Global Const SUCCESS_SUCCESS = 32000
  1072. Global Const MAPI_USER_ABORT = 32001
  1073. Global Const MAPI_E_FAILURE = 32002
  1074. Global Const MAPI_E_LOGIN_FAILURE = 32003
  1075. Global Const MAPI_E_DISK_FULL = 32004
  1076. Global Const MAPI_E_INSUFFICIENT_MEMORY = 32005
  1077. Global Const MAPI_E_ACCESS_DENIED = 32006
  1078. Global Const MAPI_E_TOO_MANY_SESSIONS = 32008
  1079. Global Const MAPI_E_TOO_MANY_FILES = 32009
  1080. Global Const MAPI_E_TOO_MANY_RECIPIENTS = 32010
  1081. Global Const MAPI_E_ATTACHMENT_NOT_FOUND = 32011
  1082. Global Const MAPI_E_ATTACHMENT_OPEN_FAILURE = 32012
  1083. Global Const MAPI_E_ATTACHMENT_WRITE_FAILURE = 32013
  1084. Global Const MAPI_E_UNKNOWN_RECIPIENT = 32014
  1085. Global Const MAPI_E_BAD_RECIPTYPE = 32015
  1086. Global Const MAPI_E_NO_MESSAGES = 32016
  1087. Global Const MAPI_E_INVALID_MESSAGE = 32017
  1088. Global Const MAPI_E_TEXT_TOO_LARGE = 32018
  1089. Global Const MAPI_E_INVALID_SESSION = 32019
  1090. Global Const MAPI_E_TYPE_NOT_SUPPORTED = 32020
  1091. Global Const MAPI_E_AMBIGUOUS_RECIPIENT = 32021
  1092. Global Const MAPI_E_MESSAGE_IN_USE = 32022
  1093. Global Const MAPI_E_NETWORK_FAILURE = 32023
  1094. Global Const MAPI_E_INVALID_EDITFIELDS = 32024
  1095. Global Const MAPI_E_INVALID_RECIPS = 32025
  1096. Global Const MAPI_E_NOT_SUPPORTED = 32026
  1097.  
  1098. Global Const CONTROL_E_SESSION_EXISTS = 32050
  1099. Global Const CONTROL_E_INVALID_BUFFER = 32051
  1100. Global Const CONTROL_E_INVALID_READ_BUFFER_ACTION = 32052
  1101. Global Const CONTROL_E_NO_SESSION = 32053
  1102. Global Const CONTROL_E_INVALID_RECIPIENT = 32054
  1103. Global Const CONTROL_E_INVALID_COMPOSE_BUFFER_ACTION = 32055
  1104. Global Const CONTROL_E_FAILURE = 32056
  1105. Global Const CONTROL_E_NO_RECIPIENTS = 32057
  1106. Global Const CONTROL_E_NO_ATTACHMENTS = 32058
  1107.  
  1108.  
  1109. '---------------------------------------
  1110. '  MISCELLANEOUS GLOBAL CONSTANT DECLARATIONS (MAPI CONTROLS)
  1111. '---------------------------------------
  1112. Global Const RECIPTYPE_ORIG = 0
  1113. Global Const RECIPTYPE_TO = 1
  1114. Global Const RECIPTYPE_CC = 2
  1115. Global Const RECIPTYPE_BCC = 3
  1116.  
  1117. Global Const ATTACHTYPE_DATA = 0
  1118. Global Const ATTACHTYPE_EOLE = 1
  1119. Global Const ATTACHTYPE_SOLE = 2
  1120.  
  1121.  
  1122. '-------------------------------------------------
  1123. '  Outline
  1124. '-------------------------------------------------
  1125. ' PictureType
  1126. Global Const MSOUTLINE_PICTURE_CLOSED = 0
  1127. Global Const MSOUTLINE_PICTURE_OPEN = 1
  1128. Global Const MSOUTLINE_PICTURE_LEAF = 2
  1129.  
  1130. 'Outline Control Error Constants
  1131. Global Const MSOUTLINE_BADPICFORMAT = 32000
  1132. Global Const MSOUTLINE_BADINDENTATION = 32001
  1133. Global Const MSOUTLINE_MEM = 32002
  1134. Global Const MSOUTLINE_PARENTNOTEXPANDED = 32003
  1135.  
  1136.  
  1137. '
  1138. ' Data Access constants
  1139. '
  1140.  
  1141. ' Option argument values (CreateDynaset, etc)
  1142. Global Const DB_DENYWRITE = &H1
  1143. Global Const DB_DENYREAD = &H2
  1144. Global Const DB_READONLY = &H4
  1145. Global Const DB_APPENDONLY = &H8
  1146. Global Const DB_INCONSISTENT = &H10
  1147. Global Const DB_CONSISTENT = &H20
  1148. Global Const DB_SQLPASSTHROUGH = &H40
  1149.  
  1150. ' SetDataAccessOption
  1151. Global Const DB_OPTIONINIPATH = 1
  1152.  
  1153. ' Field Attributes
  1154. Global Const DB_FIXEDFIELD = &H1
  1155. Global Const DB_VARIABLEFIELD = &H2
  1156. Global Const DB_AUTOINCRFIELD = &H10
  1157. Global Const DB_UPDATABLEFIELD = &H20
  1158.  
  1159. ' Field Data Types
  1160. Global Const DB_BOOLEAN = 1
  1161. Global Const DB_BYTE = 2
  1162. Global Const DB_INTEGER = 3
  1163. Global Const DB_LONG = 4
  1164. Global Const DB_CURRENCY = 5
  1165. Global Const DB_SINGLE = 6
  1166. Global Const DB_DOUBLE = 7
  1167. Global Const DB_DATE = 8
  1168. Global Const DB_TEXT = 10
  1169. Global Const DB_LONGBINARY = 11
  1170. Global Const DB_MEMO = 12
  1171.  
  1172. ' TableDef Attributes
  1173. Global Const DB_ATTACHEXCLUSIVE = &H10000
  1174. Global Const DB_ATTACHSAVEPWD = &H20000
  1175. Global Const DB_SYSTEMOBJECT = &H80000002
  1176. Global Const DB_ATTACHEDTABLE = &H40000000
  1177. Global Const DB_ATTACHEDODBC = &H20000000
  1178.  
  1179. ' ListTables TableType
  1180. Global Const DB_TABLE = 1
  1181. Global Const DB_QUERYDEF = 5
  1182.  
  1183. ' ListTables Attributes (for QueryDefs)
  1184. Global Const DB_QACTION = &HF0
  1185. Global Const DB_QCROSSTAB = &H10
  1186. Global Const DB_QDELETE = &H20
  1187. Global Const DB_QUPDATE = &H30
  1188. Global Const DB_QAPPEND = &H40
  1189. Global Const DB_QMAKETABLE = &H50
  1190.  
  1191. ' ListIndexes IndexAttributes values
  1192. Global Const DB_UNIQUE = 1
  1193. Global Const DB_PRIMARY = 2
  1194. Global Const DB_PROHIBITNULL = 4
  1195. Global Const DB_IGNORENULL = 8
  1196. ' ListIndexes FieldAttributes value
  1197. Global Const DB_DESCENDING = 1  'For each field in Index
  1198.  
  1199. ' CreateDatabase and CompactDatabase Language constants
  1200. Global Const DB_LANG_GENERAL = ";LANGID=0x0809;CP=1252;COUNTRY=0"
  1201. Global Const DB_LANG_SPANISH = ";LANGID=0x040A;CP=1252;COUNTRY=0"
  1202. Global Const DB_LANG_DUTCH = ";LANGID=0x0413;CP=1252;COUNTRY=0"
  1203. Global Const DB_LANG_SWEDFIN = ";LANGID=0x040C;CP=1252;COUNTRY=0"   'VB3 and Access 1.1 Databases
  1204. Global Const DB_LANG_NORWDAN = ";LANGID=0x0414;CP=1252;COUNTRY=0"   'VB3 and Access 1.1 Databases
  1205. Global Const DB_LANG_ICELANDIC = ";LANGID=0x040F;CP=1252;COUNTRY=0" 'VB3 and Access 1.1 Databases
  1206. Global Const DB_LANG_NORDIC = ";LANGID=0x041D;CP=1252;COUNTRY=0"    'Access 1.0 Databases only
  1207.  
  1208. ' CreateDatabase and CompactDatabase options
  1209. Global Const DB_VERSION10 = 1        ' Microsoft Access Version 1.0
  1210. Global Const DB_ENCRYPT = 2          ' Make database encrypted.
  1211. Global Const DB_DECRYPT = 4          ' Decrypt database while compacting.
  1212.  
  1213. 'Collating order values
  1214. Global Const DB_SORTGENERAL = 256    ' Sort by EFGPI rules (English, French, German,Portuguese, Italian)
  1215. Global Const DB_SORTSPANISH = 258    ' Sort by Spanish rules
  1216. Global Const DB_SORTDUTCH = 259      ' Sort by Dutch rules
  1217. Global Const DB_SORTSWEDFIN = 260    ' Sort by Swedish, Finnish rules
  1218. Global Const DB_SORTNORWDAN = 261    ' Sort by Norwegian, Danish rules
  1219. Global Const DB_SORTICELANDIC = 262  ' Sort by Icelandic rules
  1220. Global Const DB_SORTPDXINTL = 4096   ' Sort by Paradox international rules
  1221. Global Const DB_SORTPDXSWE = 4097    ' Sort by Paradox Swedish, Finnish rules
  1222. Global Const DB_SORTPDXNOR = 4098    ' Sort by Paradox Norwegian, Danish rules
  1223. Global Const DB_SORTUNDEFINED = -1   ' Sort rules are undefined or unknown
  1224.  
  1225.