home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Fancy_Tool1843921252005.psc / code.bas < prev    next >
BASIC Source File  |  2005-01-25  |  2KB  |  79 lines
  1. Attribute VB_Name = "code"
  2. Option Explicit
  3.  
  4.  
  5. Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  6. Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  7. Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  8. Public Declare Function GetCursorPos Lib "user32" (lpPoint As Pointapi) As Long
  9. Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As enHwnd, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal Flags As enSWP) As Long
  10. Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As enSw) As Long
  11. Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  12.  
  13. Public Type Pointapi
  14.    x As Long
  15.    Y As Long
  16. End Type
  17.  
  18. Public Enum enSWP
  19.     SWP_NOACTIVATE = &H10
  20.     SWP_NOMOVE = &H2
  21.     SWP_NOSIZE = &H1
  22. End Enum
  23.  
  24. Public Enum enHwnd
  25.     HWND_TOPMOST = -1
  26.     HWND_TOP = 0
  27.     HWND_BOTTOM = 1
  28.     HWND_NOTOPMOST = -2
  29. End Enum
  30.  
  31.  
  32. Public Enum enSw
  33.    SW_ERASE = &H4
  34.    SW_FORCEMINIMIZE = 11
  35.    SW_HIDE = 0
  36.    SW_INVALIDATE = &H2
  37.    SW_MAX = 10
  38.    SW_MAXIMIZE = 3
  39.    SW_MINIMIZE = 6
  40.    SW_NORMAL = 1
  41.    SW_RESTORE = 9
  42.    SW_SHOW = 5
  43.    SW_SHOWMINNOACTIVE = 7
  44.    SW_SHOWNA = 8
  45.    SW_SHOWNOACTIVATE = 4
  46.    SW_SHOWNORMAL = 1
  47.    SW_SMOOTHSCROLL = &H10
  48.    SW_SHOWMAXIMIZED = 3
  49.    SW_SHOWMINIMIZED = 2
  50.    SW_SHOWDEFAULT = 10
  51.    SW_SCROLLCHILDREN = &H1
  52.    SW_PARENTOPENING = 3
  53.    SW_PARENTCLOSING = 1
  54.    SW_OTHERZOOM = 2
  55.    SW_OTHERUNZOOM = 4
  56. End Enum
  57.  
  58. Public hwnd_old                 As Long
  59. Public m_arr_ctrls()            As Variant
  60. Public m_arr_pallette()         As Object
  61. Public wind_pt                  As Pointapi
  62. Public mod_hide_tooltips        As Boolean
  63. Public mod_m_hide_on_mouseover  As Boolean
  64. '
  65. 'returns the hwnd of the window under the mouse
  66. '
  67. Function hwnd_under_mouse() As Long
  68.  
  69.   Dim x As Long
  70.   
  71.   GetCursorPos wind_pt
  72.   x = WindowFromPoint(wind_pt.x, wind_pt.Y)
  73.   hwnd_under_mouse = x
  74.  
  75. End Function
  76.  
  77.  
  78.  
  79.