×

findwindowexa

调用FindWindowEx老是出问题?VB:FindWindowEx 用途,参数

admin admin 发表于2022-05-19 10:29:12 浏览156 评论0

抢沙发发表评论

调用FindWindowEx老是出问题


HWND hwnd2=0; 
HWND hwnd2=FindWindowEx(HWND hwnd,HWND hwnd2,0,0);
//第二个参数使用寻找到的窗口句柄
// 如果父窗口下不止一个子窗口,就需要判断循环,直到返回0,寻找失败,

VB:FindWindowEx 用途,参数


  在窗口列表中寻找与指定条件相符的第一个子窗口 。
  该函数获得一个窗口的句柄,该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口,从排在给定的子窗口后面的下一个子窗口开始。在查找时不区分大小写。
  VB 声明
  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
  参数;
  (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,则为所有窗口全匹配。

VB中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 声明
  《DllImport(“user32.dll“, SetLastError:=True, CharSet:=CharSet.Auto)》 _
  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.
-findwindowexa