home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD8751882000.psc / modGeneral.bas < prev    next >
Encoding:
BASIC Source File  |  2000-08-08  |  1.2 KB  |  31 lines
  1. Attribute VB_Name = "modGeneral"
  2. Option Explicit
  3. Public Const SWP_NOMOVE = 2
  4. Public Const SWP_NOSIZE = 1
  5. Public Const flags = SWP_NOMOVE Or SWP_NOSIZE
  6. Public Const HWND_TOPMOST = -1
  7. Public Const HWND_NOTOPMOST = -2
  8.  
  9. Declare Function SetWindowPos Lib "user32" _
  10.             (ByVal hwnd As Long, _
  11.             ByVal hWndInsertAfter As Long, _
  12.             ByVal x As Long, _
  13.             ByVal y As Long, _
  14.             ByVal cx As Long, _
  15.             ByVal cy As Long, _
  16.             ByVal wFlags As Long) As Long
  17.  
  18. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  19.  
  20. Public Const GWL_STYLE = (-16)
  21. Public Const GWL_EXSTYLE = (-20)
  22. Public Const WS_EX_TOPMOST = &H8&
  23.  
  24. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  25.  
  26.  
  27. Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  28. Public Declare Function GetDCEx Lib "user32" (ByVal hwnd As Long, ByVal hrgnclip As Long, ByVal fdwOptions As Long) As Long
  29. Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
  30.  
  31.