1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
| Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function FindWindow& Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName$, ByVal lpWindowName$)
Private Declare PtrSafe Function ScreenToClient& Lib "user32" _
(ByVal hwnd&, ByRef lpPoint As POINTAPI)
Private Declare PtrSafe Function GetWindowRect& Lib "user32" _
(ByVal hwnd&, lpRect As RECT)
Private Declare PtrSafe Function CreateWindowEx& Lib "user32" _
Alias "CreateWindowExA" _
(ByVal dwExStyle&, ByVal lpClassName$, ByVal lpWindowName$, _
ByVal dwStyle&, ByVal x&, ByVal y&, ByVal nWidth&, _
ByVal nHeight&, ByVal hWndParent&, ByVal hMenu&, _
ByVal hInstance&, ByRef lpParam As Any)
Private Declare PtrSafe Function InitCommonControlsEx& Lib "comctl32" _
(ByRef INITCOMMONCONTROLSEXData As InitCommonControlsExType)
Private Declare PtrSafe Function DestroyWindow& Lib "user32" _
(ByVal hwnd&)
Private Declare PtrSafe Function SendMessage& Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd&, ByVal wMsg&, ByVal wParam&, ByRef lParam As Any)
Private Declare PtrSafe Function SetWindowPos& Lib "user32" _
(ByVal hwnd&, ByVal hWndInsertAfter&, ByVal x&, _
ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&)
#Else
Private Declare Function FindWindow& Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function ScreenToClient& Lib "user32" _
(ByVal hwnd&, ByRef lpPoint As POINTAPI)
Private Declare Function GetWindowRect& Lib "user32" _
(ByVal hwnd&, lpRect As RECT)
Private Declare Function CreateWindowEx& Lib "user32" _
Alias "CreateWindowExA" _
(ByVal dwExStyle&, ByVal lpClassName$, ByVal lpWindowName$, _
ByVal dwStyle&, ByVal x&, ByVal y&, ByVal nWidth&, _
ByVal nHeight&, ByVal hWndParent&, ByVal hMenu&, _
ByVal hInstance&, ByRef lpParam As Any)
Private Declare Function InitCommonControlsEx& Lib "comctl32" _
(ByRef INITCOMMONCONTROLSEXData As InitCommonControlsExType)
Private Declare Function DestroyWindow& Lib "user32" _
(ByVal hwnd&)
Private Declare Function SendMessage& Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd&, ByVal wMsg&, ByVal wParam&, ByRef lParam As Any)
Private Declare Function SetWindowPos& Lib "user32" _
(ByVal hwnd&, ByVal hWndInsertAfter&, ByVal x&, _
ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&)
#End If |
Partager