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




BackHome BackTipsへ Backメニューへ

■ Access VBA 実行コード

'最大化されているかどうかを調べる
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



BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft