home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / articles / vbdev / source / pindrag2.bas < prev    next >
Encoding:
BASIC Source File  |  1995-01-20  |  2.9 KB  |  73 lines
  1. Option Explicit
  2.  
  3. Type Rect   '8 Bytes
  4.     left As Integer
  5.     top As Integer
  6.     right As Integer
  7.     bottom As Integer
  8. End Type
  9.  
  10.  
  11. Global Const GWL_WNDPROC = (-4)
  12. Global Const GWW_HINSTANCE = (-6)
  13. Global Const GWW_HWNDPARENT = (-8)
  14. Global Const GWW_ID = (-12)
  15. Global Const GWL_STYLE = (-16)
  16. Global Const GWL_EXSTYLE = (-20)
  17.  
  18. Global Const WS_EX_TRANSPARENT = &H20&
  19.  
  20. Global Const PS_SOLID = 0
  21. Global Const PS_DASH = 1    '  -------
  22. Global Const PS_DOT = 2 '  .......
  23. Global Const PS_DASHDOT = 3 '  _._._._
  24. Global Const PS_DASHDOTDOT = 4  '  _.._.._
  25. Global Const PS_NULL = 5
  26. Global Const PS_INSIDEFRAME = 6
  27.  
  28. ''  Raster-ops (Binary)
  29. Global Const R2_BLACK = 1   '   0
  30. Global Const R2_NOTMERGEPEN = 2 '  DPon
  31. Global Const R2_MASKNOTPEN = 3  '  DPna
  32. Global Const R2_NOTCOPYPEN = 4  '  PN
  33. Global Const R2_MASKPENNOT = 5  '  PDna
  34. Global Const R2_NOT = 6 '  Dn
  35. Global Const R2_XORPEN = 7  '  DPx
  36. Global Const R2_NOTMASKPEN = 8  '  DPan
  37. Global Const R2_MASKPEN = 9 '  DPa
  38. Global Const R2_NOTXORPEN = 10  '  DPxn
  39. Global Const R2_NOP = 11    '  D
  40. Global Const R2_MERGENOTPEN = 12    '  DPno
  41. Global Const R2_COPYPEN = 13    '  P
  42. Global Const R2_MERGEPENNOT = 14    '  PDno
  43. Global Const R2_MERGEPEN = 15   '  DPo
  44. Global Const R2_WHITE = 16  '   1
  45.  
  46. Global Const NULL_BRUSH = 5
  47.  
  48.  
  49. Declare Sub ClientToScreen Lib "User" (ByVal hwnd%, lpPoint As Integer)
  50. Declare Function CreatePen% Lib "GDI" (ByVal nPenStyle%, ByVal nWidth%, ByVal crColor&)
  51. Declare Function DeleteDC% Lib "GDI" (ByVal hDC%)
  52. Declare Function DeleteObject% Lib "GDI" (ByVal hObject%)
  53. Declare Function GetDC% Lib "User" (ByVal hwnd%)
  54. Declare Function GetWindowLong& Lib "User" (ByVal hwnd%, ByVal nIndex%)
  55. Declare Sub GetClientRect Lib "User" (ByVal hwnd%, lpRect As Rect)
  56. Declare Function GetDesktopWindow% Lib "User" ()
  57. Declare Function GetStockObject% Lib "GDI" (ByVal nIndex%)
  58. Declare Sub OffsetRect Lib "User" (lpRect As Rect, ByVal x%, ByVal y%)
  59. Declare Function SelectObject% Lib "GDI" (ByVal hDC%, ByVal hObject%)
  60. Declare Function SetWindowLong& Lib "User" (ByVal hwnd%, ByVal nIndex%, ByVal dwNewLong&)
  61. Declare Sub InvalidateRectBynum Lib "User" Alias "InvalidateRect" (ByVal hwnd%, ByVal lpRect&, ByVal bErase%)
  62. Declare Function PtInRect% Lib "User" (lpRect As Rect, ByVal Pnt As Any)
  63. Declare Sub ClipCursorRect Lib "User" Alias "ClipCursor" (lpRect As Rect)
  64. Declare Sub ClipCursorClear Lib "User" Alias "ClipCursor" (ByVal lpRect&)
  65. Declare Sub Rectangle Lib "GDI" (ByVal hDC%, ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%)
  66. Declare Sub ReleaseCapture Lib "User" ()
  67. Declare Function ReleaseDC% Lib "User" (ByVal hwnd%, ByVal hDC%)
  68. Declare Sub ScreenToClient Lib "User" (ByVal hwnd%, lpPoint As Integer)
  69. Declare Function SetCapture% Lib "User" (ByVal hwnd%)
  70. Declare Function SetROP2% Lib "GDI" (ByVal hDC%, ByVal nDrawMode%)
  71. Declare Function CreateDC% Lib "GDI" (ByVal lpDriverName$, ByVal lpDeviceName&, ByVal lpOutput&, ByVal lpInitData&)
  72.  
  73.