验证 VB 中打开的窗口

引言

验证窗口或表单是否已加载。

声明函数 FindWindow

Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" _
(ByVal lpszClassName As String, ByVal lpszWindow As String) As Long

调用该函数

If FindWindow(vbNullString, Caption) Then
   msgbox "Yes"
Else
   msgbox "No"
End If

您可以验证窗口或表单是否打开，不仅来自 Visual Basic，还来自 Windows 本身。例如，您可以验证应用程序 CALC.EXE 是否已加载。

您不仅可以验证 Visual Basic 内部打开的表单，还可以验证 Windows 中打开的任何窗口。