Question

怎么样使用控件句柄获取控件名称?

Answer 1

Int GetWindowText（HWND hWnd，LPTSTR lpString，Int nMaxCount）；
　　hWnd：带文本的窗口或控件的句柄。 　
　IpString：指向接收文本的缓冲区的指针。 　
　nMaxCount：指定要保存在缓冲区内的字符的最大个数，其中包含NULL字符。如果文本超过界限，它就被截断。 　
　
　　如果函数成功，返回值是拷贝的字符串的字符个数，不包括中断的空字符；如果窗口无标题栏或文本，或标题栏为空，或窗口或控制的句柄无效，则返回值为零。若想获得更多错误信息，请调用GetLastError函数。 　　函数不能返回在其他应用程序中的编辑控件的文本。

Answer 2

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Dim s As String
Dim hwnd As Long '定义控件句柄

Private Sub Command1_Click()
s = Space(256) '缓冲区长度
GetWindowText hwnd, s, 255 '获得控件名称储存在字符变量s 中
Text1.Text = s
End Sub

以下是关于GetWindowText这个API函数的说明
-----------------------------------------------------------------------------------------------------------------------
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
说明
取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）
返回值 ：Long，复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
参数表 ：
参数 类型及说明
hwnd Long，欲获取文字的那个窗口的句柄
lpString String，预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
cch Long，lpString缓冲区的长度

如果不是VB控件,那么你可以试一试GetClassName这个函数,用法和GetWindowText一样