Question

VB 如何判断一个窗口是否已最小化？IsIconic函数的使用问题？给个例子

'判断窗口是否已最小化
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim a As Long

a = FindWindow(vbNullString, "未命名 - 画图")

MsgBox IsIconic(a)

End Sub

试了好几次 无论窗口最大化，还是最小化 都返回0 都不成功？ 不知错在哪儿/?

Answer 1

Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim a As Long
a = FindWindow(vbNullString, "VB98")
MsgBox IsIconic(a)
End Sub
'我测试了一下，可以正常捕获窗口的状态！ 返回值为 1
返回值
Long，非零表示成功，零表示失败 ！
你可以打开一个文件夹，按最小化按钮！ 然后启动程序捕获该窗体！

Answer 2

返回值是0表示不是最小化，否则是最小化。

Answer 3

本人Win7+VB6上测试成功，最小化时显示1，其他情况显示0
注：win7画图标题为： "无标题 - 画图"

Answer 4

这个函数是可以用的.只是初次调用的时候不能成功返回