| |
|
|
| | ОЧень надо сделать так, что бы при нажатии на системную кнопку "Свернуть" Access выполнилось событие. Как можно перехватить это событие???
Заранее очень благодарен! | |
| |
| |
| |
|
|
| | в модуль
Public Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
|
сделать скрытую форму
в ней по таймеру проверять
If IsIconic(Access.hWndAccessApp) Then .....
|
как только окно ACCESS будет свернуто IsIconic(Access.hWndAccessApp) начнет возвращать истину, до тех пор пока не развенут | |
| |
| |
| |
|
|
| | дополню  в плане Zoomed :)
http://support.microsoft.com/kb/210118
Declare Function apiIsIconic Lib "user32" Alias "IsIconic" (ByVal hWnd As Long) As Long
Declare Function apiIsZoomed Lib "user32" Alias "IsZoomed" (ByVal hWnd As Long) As Long
Function IsAccessMaximized(hWnd&) As Boolean
IsAccessMaximized = apiIsZoomed(hWnd)
End Function
Function IsAccessMinimized(hWnd&) As Boolean
IsAccessMinimized = apiIsIconic(hWnd)
End Function
Function IsAccessRestored(hWnd&) As Boolean
IsAccessRestored = (IsAccessMaximized(hWnd) + IsAccessMinimized(hWnd) = 0)
End Function
'в форме, например
Private Sub Form_Resize()
Debug.Print IsAccessMinimized(Me.hWnd)
End Sub
|
| |
| |
| |
| |
|
|
| | Огромное Вам спасибо. Это то что надо!!!  | |
| |
| |
| |
|
|
| |
Private Sub Form_Resize()
Debug.Print Me.WindowHeight
End Sub
|
| |
| |
| |
