ThinkChat🤖让你学习和工作更高效,注册即送10W Token,即刻开启你的AI之旅 广告
## **描述** 判断窗口是否有效,是否存在。适用于一些检查指定句柄的窗口是否关闭。 ## **语法** CheckWindow(*[lngHwnd]*) **该语法中有下列命名参数:** | 参数 | 描述 | | --- | --- | | lngHwnd | 可选的。Long类型,表示判断指定句柄的窗口是否置顶。如果忽略,则使用类内部句柄。 | ## **返回值** | Boolean | | --- | | True表示窗口有效或存在,False表示窗口不存在或无效 | ## **示例** > **示例1** > 说明:检测某个指定句柄的窗口是否存在。打开一个记事本,用spy++等工具查看窗口句柄值,例如123456,编写下面代码运行。 ``` Dim w As New clsWindow Msgbox w.CheckWindow(123456) ``` > **示例2** > 说明:检测某个已打开的窗口何时关闭。请打开系统自带的计算器程序然后运行下面代码,然后再关闭计算器看看程序反应。 ``` Dim w As New clsWindow If w.GetWindowByTitle("计算器", 0).hwnd <> 0 Then '注意这里的第2个参数0表示只尝试获取标题1次,默认是10秒超时 Do If Not w.CheckWindow Then MsgBox "计算器已关闭" Exit Do End If DoEvents Loop Else MsgBox "计算器未运行" End If ```