ウインドウハンドルの取得方法
VBでは、ウィンドウハンドルを取得するためにFindWindow関数が使用できます。FindWindow関数はウィンドウのクラス名とウィンドウのタイトルを引き数として渡す必要があります。関数は見つかったウィンドウのハンドルを返します。
ネイティブの日本語で言い換えられた文:以下にサンプルコードを示します。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Sub GetWindowHandle()
Dim hwnd As Integer
hwnd = FindWindow(vbNullString, "窗口标题") ' 将"窗口标题"替换为要查找的窗口的标题
If hwnd <> 0 Then
MsgBox "找到窗口,句柄为:" & hwnd
Else
MsgBox "未找到窗口"
End If
End Sub
ウィンドウのハンドルを取得するには、”ウィンドウタイトル”に検索するウィンドウのタイトルを入れてください。ウィンドウが見つかれば、FindWindow関数はそのウィンドウのハンドルを返します。ウィンドウが見つからない場合は、0を返します。上のサンプルでは、MsgBox関数を使って、ウィンドウが見つかった場合と見つからなかった場合のメッセージボックスを表示しました。