指定のウィンドウがアイコン化状態かどうか調べる
Declare Function IsIconic Lib "user32.dll" _
(ByVal hWnd As Long) As Long
Declare Function IsIconic Lib "user32.dll" _
(ByVal hWnd As Integer) As Integer
BOOL IsIconic(
HWND hWnd
);
引数
hWnd
対象のウィンドウのハンドル戻り値
アイコン化状態のとき 0以外サンプル
アイコン化状態でないときとき 0
ダウンロード(IsIconic.lzh 1.10KB)'指定のウィンドウがアイコン化状態か調べる Private Declare Function IsIconic Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Sub Command1_Click() Dim rc As Long rc = IsIconic(Me.hWnd) If rc = 0 Then Me.Text1.Text = "違うらしい...。" Else Me.Text1.Text = "アイコン化状態だったよ!" End If End Sub