用API FINDWINDOW函数取得控件的句柄HANDLE?

WHYFUN · 发表于 2004-3-13 09:22

各位,请问在EXCEL的VBA中,如何用API 函数FINDWINDOW取得控件(如TEXTBOX,LISTBOX等)的句柄HANDLE? FINDWINDOW的语法如下: Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 请教其中的lpClassName和lpWindowName该如何取值,自带的说明文件实在不懂啊:
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"

中國龍 · 发表于 2004-3-13 09:49

以下是引用WHYFUN在2004-3-13 9:22:00的发言：
各位,请问在EXCEL的VBA中,如何用API 函数FINDWINDOW取得控件(如TEXTBOX,LISTBOX等)的句柄HANDLE? FINDWINDOW的语法如下: Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 请教其中的lpClassName和lpWindowName该如何取值,自带的说明文件实在不懂啊:
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"

WHYFUN 你好: 配合GetFocus API函数,就能取得Control的 Hwnd 请在窗体建立一个 CommandButton,及 Listbox 请参考 Private Declare Function GetFocus Lib "user32" () As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Property Get GetTextbox_hWnd() As Long
ListBox1.SetFocus
GetTextbox_hWnd = GetFocus()
End Property
Private Sub CommandButton1_Click()
MsgBox GetTextbox_hWnd
End Sub

WHYFUN · 发表于 2004-3-13 12:29

很感谢各位的迅速回复... 妙极已得GETFOCUS其法也. 试过以上的参考代码,但发现出错"OBJECT DOESN'T SUPPORT THIS PROPERTY OR METHOD"(停在GetTextbox_hWnd() 里的ListBox1.SetFocus), 请问哪里有问题呢? (若注释掉ListBox1.SetFocus则OK)

中國龍 · 发表于 2004-3-13 14:13

以下是引用WHYFUN在2004-3-13 12:29:00的发言：
很感谢各位的迅速回复... 妙极已得GETFOCUS其法也. 试过以上的参考代码,但发现出错"OBJECT DOESN'T SUPPORT THIS PROPERTY OR METHOD"(停在GetTextbox_hWnd() 里的ListBox1.SetFocus), 请问哪里有问题呢? (若注释掉ListBox1.SetFocus则OK)

WHYFUN 您好: 我測試時沒問題請您參考附件

Dtx05TKC.rar (6.22 KB, 下载次数: 429)

WHYFUN · 发表于 2004-3-13 17:32

谢谢,但附件中的EXCEL文件jan_03132里并无宏代码???

taller · 发表于 2004-3-13 22:28

中国龙的代码和文件都没有问题,楼主再仔细试试,代码在窗体中.楼主打开文件后,可以在立即窗口中运行userform1.Show

WHYFUN · 发表于 2004-3-15 09:03

明解,谢啦!

qinan1475 · 发表于 2012-12-14 14:14

都是看不懂的语言

set2get · 发表于 2018-11-13 19:48

中國龍发表于 2004-3-13 09:49
以下是引用WHYFUN在2004-3-13 9:22:00的发言：各位,请问在EXCEL的VBA中,如何用API 函数FINDWINDOW取得控件( ...

妙妙妙，查了好几天百度，头都想烂了，就是要在vba中遍历查找控件句柄，因为要用GDI+进行绘图，谢谢，前几天看到你这个答案的，没细看，错过了，真是遗憾啊。

set2get · 发表于 2018-11-13 19:49

中國龍发表于 2004-3-13 09:49
以下是引用WHYFUN在2004-3-13 9:22:00的发言：各位,请问在EXCEL的VBA中,如何用API 函数FINDWINDOW取得控件( ...

应该是大牛了，最后登录时间居然是2004年，14年前的id了，不知现在何处呢？

		自动登录	找回密码
密码			免费注册

用API FINDWINDOW函数取得控件的句柄HANDLE?

评分