home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / vb_msg / ncdecls.bas < prev    next >
BASIC Source File  |  1993-07-19  |  5KB  |  139 lines
  1. Option Explicit
  2.  
  3. Global Const WM_MOVE = &H3
  4. Global Const WM_CLOSE = &H10
  5. Global Const WM_ACTIVATE = &H6
  6.  
  7. Global Const WM_NCCREATE = &H81
  8. Global Const WM_NCDESTROY = &H82
  9. Global Const WM_NCCALCSIZE = &H83
  10. Global Const WM_NCHITTEST = &H84
  11. Global Const WM_NCPAINT = &H85
  12. Global Const WM_NCACTIVATE = &H86
  13. Global Const WM_GETDLGCODE = &H87
  14. Global Const WM_NCMOUSEMOVE = &HA0
  15. Global Const WM_NCLBUTTONDOWN = &HA1
  16. Global Const WM_NCLBUTTONUP = &HA2
  17. Global Const WM_NCLBUTTONDBLCLK = &HA3
  18. Global Const WM_NCRBUTTONDOWN = &HA4
  19. Global Const WM_NCRBUTTONUP = &HA5
  20. Global Const WM_NCRBUTTONDBLCLK = &HA6
  21. Global Const WM_NCMBUTTONDOWN = &HA7
  22. Global Const WM_NCMBUTTONUP = &HA8
  23. Global Const WM_NCMBUTTONDBLCLK = &HA9
  24.  
  25. '  GetSystemMetrics() codes
  26. Global Const SM_CXSCREEN = 0
  27. Global Const SM_CYSCREEN = 1
  28. Global Const SM_CXVSCROLL = 2
  29. Global Const SM_CYHSCROLL = 3
  30. Global Const SM_CYCAPTION = 4
  31. Global Const SM_CXBORDER = 5
  32. Global Const SM_CYBORDER = 6
  33. Global Const SM_CXDLGFRAME = 7
  34. Global Const SM_CYDLGFRAME = 8
  35. Global Const SM_CYVTHUMB = 9
  36. Global Const SM_CXHTHUMB = 10
  37. Global Const SM_CXICON = 11
  38. Global Const SM_CYICON = 12
  39. Global Const SM_CXCURSOR = 13
  40. Global Const SM_CYCURSOR = 14
  41. Global Const SM_CYMENU = 15
  42. Global Const SM_CXFULLSCREEN = 16
  43. Global Const SM_CYFULLSCREEN = 17
  44. Global Const SM_CYKANJIWINDOW = 18
  45. Global Const SM_MOUSEPRESENT = 19
  46. Global Const SM_CYVSCROLL = 20
  47. Global Const SM_CXHSCROLL = 21
  48. Global Const SM_DEBUG = 22
  49. Global Const SM_SWAPBUTTON = 23
  50. Global Const SM_RESERVED1 = 24
  51. Global Const SM_RESERVED2 = 25
  52. Global Const SM_RESERVED3 = 26
  53. Global Const SM_RESERVED4 = 27
  54. Global Const SM_CXMIN = 28
  55. Global Const SM_CYMIN = 29
  56. Global Const SM_CXSIZE = 30
  57. Global Const SM_CYSIZE = 31
  58. Global Const SM_CXFRAME = 32
  59. Global Const SM_CYFRAME = 33
  60. Global Const SM_CXMINTRACK = 34
  61. Global Const SM_CYMINTRACK = 35
  62. Global Const SM_CMETRICS = 36
  63.  
  64. 'Windows 3.1 additions
  65. Global Const SM_CXDOUBLECLK = 36
  66. Global Const SM_CYDOUBLECLK = 37
  67. Global Const SM_CXICONSPACING = 38
  68. Global Const SM_CYICONSPACING = 39
  69. Global Const SM_MENUDROPALIGNMENT = 40
  70. Global Const SM_PENWINDOWS = 41
  71. Global Const SM_DBCSENABLED = 42
  72.  
  73. '  Window field offsets for GetWindowLong() and GetWindowWord()
  74. Global Const GWL_WNDPROC = (-4)
  75. Global Const GWW_HINSTANCE = (-6)
  76. Global Const GWW_HWNDPARENT = (-8)
  77. Global Const GWW_ID = (-12)
  78. Global Const GWL_STYLE = (-16)
  79. Global Const GWL_EXSTYLE = (-20)
  80.  
  81. Global Const SRCCOPY = &HCC0020
  82.  
  83. 'WM_NCHITTEST return codes
  84. Global Const HTERROR = (-2)
  85. Global Const HTTRANSPARENT = (-1)
  86. Global Const HTNOWHERE = 0
  87. Global Const HTCLIENT = 1
  88. Global Const HTCAPTION = 2
  89. Global Const HTSYSMENU = 3
  90. Global Const HTSIZE = 4
  91. Global Const HTMENU = 5
  92. Global Const HTHSCROLL = 6
  93. Global Const HTVSCROLL = 7
  94. Global Const HTMINBUTTON = 8
  95. Global Const HTMAXBUTTON = 9
  96. Global Const HTLEFT = 10
  97. Global Const HTRIGHT = 11
  98. Global Const HTTOP = 12
  99. Global Const HTTOPLEFT = 13
  100. Global Const HTTOPRIGHT = 14
  101. Global Const HTBOTTOM = 15
  102. Global Const HTBOTTOMLEFT = 16
  103. Global Const HTBOTTOMRIGHT = 17
  104. Global Const HTBORDER = 18
  105. Global Const HTGROWBOX = HTSIZE
  106. Global Const HTREDUCE = HTMINBUTTON
  107. Global Const HTZOOM = HTMAXBUTTON
  108.  
  109. Type RECT
  110.     left As Integer
  111.     top As Integer
  112.     right As Integer
  113.     bottom As Integer
  114. End Type
  115.  
  116. Type BITMAP '14 bytes
  117.     bmType As Integer
  118.     bmWidth As Integer
  119.     bmHeight As Integer
  120.     bmWidthBytes As Integer
  121.     bmPlanes As String * 1
  122.     bmBitsPixel As String * 1
  123.     bmBits As Long
  124. End Type
  125.  
  126. Declare Function DefWindowProc Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  127. Declare Function CreateCompatibleDC Lib "GDI" (ByVal hDC As Integer) As Integer
  128. Declare Function GetWindowDC Lib "User" (ByVal hWnd As Integer) As Integer
  129. Declare Function DeleteDC Lib "GDI" (ByVal hDC As Integer) As Integer
  130. Declare Function ReleaseDC Lib "User" (ByVal hWnd As Integer, ByVal hDC As Integer) As Integer
  131. Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
  132. Declare Function LoadBitmap Lib "User" (ByVal hInstance As Integer, ByVal lpBitmapName As Any) As Integer
  133. Declare Function APIGetObject Lib "GDI" Alias "GetObject" (ByVal hObject As Integer, ByVal nCount As Integer, lpObject As Any) As Integer
  134. Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
  135. Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) As Integer
  136. Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  137. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As Any)
  138.  
  139.