判断窗体状态的函数(Windowstate)

tmtony

Access的Application没有 Windowstate 这一属性
写了一个, 可以 GetWindowState(me)来获取当前窗体的状态

Option Compare Database
Declare Function apiGetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long
Declare Function apiGetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
                    

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
                    

Private Function IsAccessMaximized(rfrm As Form)
    If apiIsZoomed(rfrm.hwnd) = 0 Then   'GetAccesshWnd()
        IsAccessMaximized = False
    Else
        IsAccessMaximized = True
    End If
End Function
Private Function IsAccessMinimized(rfrm As Form)
    If apiIsIconic(rfrm.hwnd) = 0 Then
        IsAccessMinimized = False
    Else
        IsAccessMinimized = True
    End If
End Function
Private Function IsAccessRestored(rfrm As Form)
    If IsAccessMaximized(rfrm) = False And _
         IsAccessMinimized(rfrm) = False Then
        IsAccessRestored = True
    Else
        IsAccessRestored = False
    End If
End Function

Public Function GetWindowState(rfrm As Form) As Integer
If IsAccessMaximized(rfrm) = True Then
     GetWindowState = 2
     Exit Function
     
End If
If IsAccessMinimized(rfrm) = True Then
     GetWindowState = 0
     Exit Function
Else
    GetWindowState = 1
     Exit Function
End If
  
End Function

chenwm1973

[:50] [:50] [:50]

Grant

谢谢收藏了

andymark

谢谢分享!!

t小宝

收藏了,谢谢[:50]

chaojianan

谢谢，收藏了。