ACCESS TIPS ウィンドウが最大化されているかどうか調べる

ウィンドウが最大化されているかどうか調べる

スポンサードリンク

'最大化されているかどうかを調べる
Private Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long

'最大化されていればTrueを返す
Public Function MyAccIsZoom(lhWnd As Long) As Boolean
　　MyAccIsZoom = IsZoomed(lhWnd)
End Function

Private Sub コマンド0_Click()
　　Dim ln As Long

　　If MyAccIsZoom(Me.hWnd) Then
　　　　Caption = "MAX"
　　Else
　　　　Caption = "not Max"
　　End If
End Sub

Access-Access!