'缩放状态
Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
'是否最小化
Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
'是否可见
Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command0_Click()
MsgBox "ACCESS主窗体隐藏：" & 模块2.IsWindowVisible(Application.hWndAccessApp)
MsgBox "ACCESS主窗体缩放：" & IsZoomed(Application.hWndAccessApp)
MsgBox "ACCESS主窗体最小化：" & IsIconic(Application.hWndAccessApp)
End Sub
Private Sub Form_Resize()
MsgBox "最小化：" & IsIconic(Me.hwnd)
MsgBox "缩放：" & IsZoomed(Me.hwnd)
End Sub
|
