在VB中使用FindWindowEx函数需要导入Windows API的相关函数声明,并且需要使用Declare语句将函数声明为外部函数。
以下是一个使用FindWindowEx函数的示例代码:
```vb
Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Submand1_Click()
Dim hWndParent As Long
Dim hWndChild As Long
Dim className As String
Dim windowName As String
' 设置父窗口句柄
hWndParent = 0 ' 0表示桌面窗口
' 设置子窗口类名和窗口名称
className = "Notepad"
windowName = "新建文本文档.txt - 记事本"
' 使用FindWindowEx函数查找子窗口
hWndChild = FindWindowEx(hWndParent, 0, className, windowName)
' 检查查找结果
If hWndChild <> 0 Then
' 找到了子窗口
MsgBox "找到了子窗口!句柄为:" & hWndChild
Else
' 没有找到子窗口
MsgBox "未找到子窗口!"
End If
End Sub
```
在上面的示例代码中,我们使用了FindWindowEx函数来查找一个名为"新建文本文档.txt - 记事本"的记事本子窗口。首先,我们需要设置父窗口句柄,这里我们设置为0,表示桌面窗口。然后,我们设置了子窗口的类名为"Notepad",窗口名称为"新建文本文档.txt - 记事本"。最后,我们调用FindWindowEx函数来查找子窗口,并根据返回的句柄进行处理。
请注意,在使用FindWindowEx函数时,需要确保传递给函数的字符串参数正确、区分大小写,并且窗口名称必须完全匹配才能找到正确的窗口。









