vb FindwindowEx的用法實(shí)例

vb
小億
133
2023-12-20 14:18:07

下面是一個(gè)使用FindWindowEx函數(shù)的示例，該函數(shù)是在Visual Basic中找到指定窗口的子窗口的一種方法。

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long

Private Sub FindChildWindow()
    Dim parentHwnd As Long
    Dim childHwnd As Long
    Dim className As String
    Dim windowName As String
    
    parentHwnd = FindWindow(vbNullString, "Parent Window Title") ' 根據(jù)父窗口標(biāo)題找到父窗口的句柄
    
    If parentHwnd <> 0 Then
        className = "ChildWindowClass" ' 子窗口的類(lèi)名
        windowName = "Child Window Title" ' 子窗口的標(biāo)題
        
        childHwnd = FindWindowEx(parentHwnd, 0, className, windowName) ' 根據(jù)父窗口的句柄、子窗口的類(lèi)名和標(biāo)題找到子窗口的句柄
        
        If childHwnd <> 0 Then
            MsgBox "找到子窗口！"
        Else
            MsgBox "未找到子窗口。"
        End If
    Else
        MsgBox "未找到父窗口。"
    End If
End Sub

在上面的示例中，首先使用FindWindow函數(shù)根據(jù)父窗口的標(biāo)題找到父窗口的句柄。然后使用FindWindowEx函數(shù)根據(jù)父窗口的句柄、子窗口的類(lèi)名和標(biāo)題找到子窗口的句柄。如果找到了子窗口，則顯示一個(gè)消息框提示找到子窗口；否則，顯示一個(gè)消息框提示未找到子窗口。

0 踩