关于VB.NET的 FindWindowEx函数

FindWindowEx函数

　　函数功能：在窗口列表中寻找与指定条件相符的第一个子窗口 。
　　该函数获得一个窗口的句柄，该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口，从排在给定的子窗口后面的下一个子窗口开始。在查找时不区分大小写。
　　参数：（1）hwndParent：要查找的子窗口所在的父窗口的句柄（如果设置了hwndParent，则表示从这个hwndParent指向的父窗口中搜索子窗口）。
　　如果hwndParent为 0 ，则函数以桌面窗口为父窗口，查找桌面窗口的所有子窗口。
　　Windows NT5.0 and later：如果hwndParent是HWND_MESSAGE，函数仅查找所有消息窗口。
　　（2）hwndChildAfter ：子窗口句柄。查找从在Z序中的下一个子窗口开始。子窗口必须为hwndParent窗口的直接子窗口而非后代窗口。如果HwndChildAfter为NULL，查找从hwndParent的第一个子窗口开始。如果hwndParent 和 hwndChildAfter同时为NULL，则函数查找所有的顶层窗口及消息窗口。
　　（3）lpszClass：指向一个指定了类名的空结束字符串，或一个标识类名字符串的成员的指针。如果该参数为一个成员，则它必须为前次调用theGlobaIAddAtom函数产生的全局成员。该成员为16位，必须位于lpClassName的低16位，高位必须为0。
　　（4）lpszWindow：指向一个指定了窗口名（窗口标题）的空结束字符串。如果该参数为 NULL，则为所有窗口全匹配。
　　返回值：Long，找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
　　如果函数成功，返回值为具有指定类名和窗口名的窗口句柄。如果函数失败，返回值为NULL。
　　若想获得更多错误信息，请调用GetLastError函数。
　　声明：1.VB 声明
　　Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
　　2.C# 声明
　　[DllImport("user32.dll", SetLastError = true)]
　　public static extern IntPtr FindWindowEx(IntPtr parentHandle, IntPtr childAfter, string className, string windowTitle);
　　3.VB .NET 声明
　　 _
　　Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
　　ByVal childAfter As IntPtr, _
　　ByVal lclassName As String, _
　　ByVal windowTitle As String) As IntPtr
　　End Function

　　相关例子：
　　'Example Name: Changing a VB Toolbar to a Rebar-Style Toolbar
　　BAS Moduel Code
　　Option Explicit
　　Public Const WM_USER= &H400
　　Public Const TB_SETSTYLE = WM_USER + 56
　　Public Const TB_GETSTYLE = WM_USER + 57
　　Public Const TBSTYLE_FLAT = &H800
　　Public Declare Function SendMessage Lib "user32" _
　　Alias "SendMessageA" _
　　(ByVal hwnd As Long, _
　　ByVal wMsg As Long, _
　　ByVal wParam As Long, _
　　lParam As Any) As Long
　　Public Declare Function FindWindowEx Lib "user32" _
　　Alias "FindWindowExA" _
　　(ByVal hWnd1 As Long, _
　　ByVal hWnd2 As Long, _
　　ByVal lpsz1 As String, _
　　ByVal lpsz2 As String) As Long
　　'--end block--'
　　' Form Code
　　Option Explicit
　　Private Sub Form_Load()
　　With Combo1
　　.Width = Toolbar1.Buttons("combo1").Width
　　.Top = (Toolbar1.Height - Combo1.Height) \ 2
　　.Left = Toolbar1.Buttons("combo1").Left
　　.AddItem "Black" ' Add colours for text.