能力值:
( LV2,RANK:10 )
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
能力值:
( LV13,RANK:260 )
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
能力值:
( LV13,RANK:260 )
4 楼
运行没问题 获取的是 command1上面的 字符 在text1 中显示。。。注意对字符的处理。。。
能力值:
( LV2,RANK:10 )
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
先获取长度,然后再获取内容,这样就可以了