为了账号安全,请及时绑定邮箱和手机立即绑定

我这样来,hwnd这句话就有问题,这是为什么啊?

我这样来,hwnd这句话就有问题,这是为什么啊?

UYOU 2023-01-12 19:15:35

Private Sub Command1_Click()
hWnd2 = FindWindow(vbNullString, "计算器")
MsgBox hWnd2, , " 。"
hwnd = FindWindowEx(vbNullString, hWnd2, "edit", vbNullString)
MsgBox hwnd, , " "

End Sub
说什么函数或接口标记为限制或VB使用了不支持的自动类型 类型错应该不会,我定义过也是这样错的。 

查看完整描述

2 回答

?
12345678_0001

TA贡献1540条经验 获得超5个赞

寻找窗口列表中第一个符合指定条件的顶级窗口(在vb里使用:FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄;该类是所有运行中vb执行程序的一部分。获得句柄后,可用api函数GetWindowText取得这个窗口的名称;该名也是应用程序的标题)

返回值:Long,找到窗口的句柄。如未找到相符窗口,则返回零。会设置GetLastError

参数:lpClassName ---- String,指向包含了窗口类名的空中止(C语言)字串的指针;或设为vbNullString,表示接收任何类

lpWindowName --- String,指向包含了窗口文本(或标签)的空中止(C语言)字串的指针;或设为零,表示接收任何窗口标题

很少要求同时按类与窗口名搜索。为向自己不准备参数传递一个零,最简便的办法是传递vbNullString常数
示例
Dim hw& , cnt&
Dim rttitle As String * 256
hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4
cnt = GetWindowText(hw& , rttitle, 255)
MsgBox Left$(rttitle, cnt), 0, "RTMain title"

查看完整回答
反对 回复 2023-01-15
?
侃侃无极

TA贡献1765条经验 获得超10个赞

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.

查看完整回答
反对 回复 2023-01-15
  • 2 回答
  • 0 关注
  • 4 浏览

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信