home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / swanson / types.bas < prev   
Encoding:
BASIC Source File  |  1995-01-06  |  3.2 KB  |  79 lines
  1. ' Windows API calls for creating Topmost window
  2. Declare Function SetWindowPos Lib "User" (ByVal h%, ByVal hb%, ByVal x%, ByVal y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
  3. Global Const SWP_NOMOVE = 2
  4. Global Const SWP_NOSIZE = 1
  5. Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  6. Global Const HWND_TOPMOST = -1
  7. Global Const HWND_NOTOPMOST = -2
  8.  
  9. Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
  10. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  11.  
  12. Global Const WM_SYSCOMMAND = &H112
  13. Global Const SC_RESTORE = &HF120
  14.  
  15. Global Const AppVersion = "1.4"
  16. Global Const VBVer = "3.0"
  17. Global Const LastAppUpdate = "1/6/95"
  18.  
  19. Type BookAuthor
  20.     ID As Integer
  21.     Name As String * 25
  22. End Type
  23.  
  24.  
  25. ' MousePointer
  26. Global Const DEFAULT = 0        ' 0 - Default
  27. Global Const ARROW = 1          ' 1 - Arrow
  28. Global Const CROSSHAIR = 2      ' 2 - Cross
  29. Global Const IBEAM = 3          ' 3 - I-Beam
  30. Global Const ICON_POINTER = 4   ' 4 - Icon
  31. Global Const SIZE_POINTER = 5   ' 5 - Size
  32. Global Const SIZE_NE_SW = 6     ' 6 - Size NE SW
  33. Global Const SIZE_N_S = 7       ' 7 - Size N S
  34. Global Const SIZE_NW_SE = 8     ' 8 - Size NW SE
  35. Global Const SIZE_W_E = 9       ' 9 - Size W E
  36. Global Const UP_ARROW = 10      ' 10 - Up Arrow
  37. Global Const HOURGLASS = 11     ' 11 - Hourglass
  38. Global Const NO_DROP = 12       ' 12 - No drop
  39.  
  40. ' WindowState
  41. Global Const NORMAL = 0    ' 0 - Normal
  42. Global Const MINIMIZED = 1 ' 1 - Minimized
  43. Global Const MAXIMIZED = 2 ' 2 - Maximized
  44.  
  45. ' Check Value
  46. Global Const UNCHECKED = 0 ' 0 - Unchecked
  47. Global Const CHECKED = 1   ' 1 - Checked
  48. Global Const GRAYED = 2    ' 2 - Grayed
  49.  
  50. ' Function Parameters
  51. ' MsgBox parameters
  52. Global Const MB_OK = 0                 ' OK button only
  53. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  54. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  55. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  56. Global Const MB_YESNO = 4              ' Yes and No buttons
  57. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  58.  
  59. Global Const MB_ICONSTOP = 16          ' Critical message
  60. Global Const MB_ICONQUESTION = 32      ' Warning query
  61. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  62. Global Const MB_ICONINFORMATION = 64   ' Information message
  63.  
  64. Global Const MB_APPLMODAL = 0          ' Application Modal Message Box
  65. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  66. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  67. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  68. Global Const MB_SYSTEMMODAL = 4096      'System Modal
  69.  
  70. ' MsgBox return values
  71. Global Const IDOK = 1                  ' OK button pressed
  72. Global Const IDCANCEL = 2              ' Cancel button pressed
  73. Global Const IDABORT = 3               ' Abort button pressed
  74. Global Const IDRETRY = 4               ' Retry button pressed
  75. Global Const IDIGNORE = 5              ' Ignore button pressed
  76. Global Const IDYES = 6                 ' Yes button pressed
  77. Global Const IDNO = 7                  ' No button pressed
  78.  
  79.