在VB中,可以使用以下方法来获取窗体的句柄:
Dim hWnd As IntPtr = Me.Handle
Imports System.Runtime.InteropServices
然后使用以下代码来调用FindWindow函数:
Dim windowTitle As String = "窗体标题" '替换为实际窗体的标题
Dim hWnd As IntPtr = FindWindow(Nothing, windowTitle)
<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
End Function
在上面的代码中,通过传递窗体的标题给FindWindow函数,可以获取指定窗体的句柄。
请注意,第二种方法需要导入Win32 API函数声明,并且只适用于在当前应用程序之外的其他窗体。如果是在同一个应用程序中获取窗体的句柄,建议使用第一种方法。