如何通过WM_GETTEXT消息来获取按钮上面的文字，怎么弄？-付费问答-看雪-安全社区|安全招聘|kanxue.com

最新回复 (4)
cursed 雪币： 32 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 7 粉丝 0 关注私信	cursed 2 楼 SendMessage Command1.hwnd, WM_GETTEXT, 0, a wParam The maximum number of characters to be copied, including the terminating null character. wParam 是要拷贝的的长度 0当然什么都没有了呵呵试试 SendMessage Command1.hwnd, WM_GETTEXT, 255, a 2010-11-10 12:42 0
ycmint 雪币： 1149 活跃值： (833) 能力值： ( LV13，RANK：260 ) 在线值：发帖 28 回帖 893 粉丝 10 关注私信	ycmint 5 3 楼 Private Const WM_SETTEXT = &HC Private Const WM_GETTEXT = &HD Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Dim s As String Private Sub Command1_Click() s = String(80, Chr(0)) SendMessage Command1.hwnd, WM_GETTEXT, Len(s), ByVal s s = Left(s, InStr(s, Chr(0)) - 1) Text1.Text = s End Sub 2010-11-10 13:30 0
ycmint 雪币： 1149 活跃值： (833) 能力值： ( LV13，RANK：260 ) 在线值：发帖 28 回帖 893 粉丝 10 关注私信	ycmint 5 4 楼运行没问题获取的是 command1上面的字符在text1 中显示。。。注意对字符的处理。。。 2010-11-10 13:31 0
soarsoar 雪币： 4 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 18 粉丝 0 关注私信	soarsoar 5 楼 Function GetText1(iHwnd As Long) As String Dim Textlen As Long Dim Text As String Textlen = SendMessage(iHwnd, WM_GETTEXTLENGTH, 0, 0) If Textlen = 0 Then GetText1 = "" Exit Function End If Textlen = Textlen + 1 Text = Space(Textlen) Textlen = SendMessage(iHwnd, WM_GETTEXT, Textlen, ByVal Text) GetText1 = Left(Text, Textlen) End Function 先获取长度，然后再获取内容，这样就可以了 2010-11-10 14:18 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (4)
cursed 雪币： 32 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 7 粉丝 0 关注私信	cursed 2 楼 SendMessage Command1.hwnd, WM_GETTEXT, 0, a wParam The maximum number of characters to be copied, including the terminating null character. wParam 是要拷贝的的长度 0当然什么都没有了呵呵试试 SendMessage Command1.hwnd, WM_GETTEXT, 255, a 2010-11-10 12:42 0
ycmint 雪币： 1149 活跃值： (833) 能力值： ( LV13，RANK：260 ) 在线值：发帖 28 回帖 893 粉丝 10 关注私信	ycmint 5 3 楼 Private Const WM_SETTEXT = &HC Private Const WM_GETTEXT = &HD Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Dim s As String Private Sub Command1_Click() s = String(80, Chr(0)) SendMessage Command1.hwnd, WM_GETTEXT, Len(s), ByVal s s = Left(s, InStr(s, Chr(0)) - 1) Text1.Text = s End Sub 2010-11-10 13:30 0
ycmint 雪币： 1149 活跃值： (833) 能力值： ( LV13，RANK：260 ) 在线值：发帖 28 回帖 893 粉丝 10 关注私信	ycmint 5 4 楼运行没问题获取的是 command1上面的字符在text1 中显示。。。注意对字符的处理。。。 2010-11-10 13:31 0
soarsoar 雪币： 4 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 18 粉丝 0 关注私信	soarsoar 5 楼 Function GetText1(iHwnd As Long) As String Dim Textlen As Long Dim Text As String Textlen = SendMessage(iHwnd, WM_GETTEXTLENGTH, 0, 0) If Textlen = 0 Then GetText1 = "" Exit Function End If Textlen = Textlen + 1 Text = Space(Textlen) Textlen = SendMessage(iHwnd, WM_GETTEXT, Textlen, ByVal Text) GetText1 = Left(Text, Textlen) End Function 先获取长度，然后再获取内容，这样就可以了 2010-11-10 14:18 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

[旧帖] 如何通过WM_GETTEXT消息来获取按钮上面的文字，怎么弄？ 0.00雪花