Question

怎么通过句柄获取控件信息

Answer 1

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一样