帮我看看这段代码错在哪里，点击命令按钮的时候文本框出现的字符串第一个字怎么才能改正呢Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_CHAR = &H102Dim strsend As StringPrivate Sub Command1_Click() For i = 1 To Len(strsend) PostMessage Text1.hwnd, WM_CHAR, Asc(Mid(strsend, i, 1)), 0 NextEnd SubPrivate Sub Form_Load()strsend = "中华人民共和国"End Sub

我想输出"中华人民共和国" ，结果输出的是"歇人民共和国"高手们帮忙改一下吧，我想不到怎么改了

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SETTEXT = &HCDim strsend As StringPrivate Sub Command1_Click() For i = 1 To Len(strsend) SendMessage Text1.hwnd, WM_SETTEXT, 0&, ByVal strsend NextEnd SubPrivate Sub Form_Load()strsend = "中华人民共和国"End Sub

晕，中间那块我没在意看，按你那样写太繁了，不用循环Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SETTEXT = &HCDim strsend As StringPrivate Sub Command1_Click() SendMessage Text1.hwnd, WM_SETTEXT, 0&, ByVal strsendEnd SubPrivate Sub Form_Load()strsend = "中华人民共和国"End Sub

多谢指教，改的太严重了，呵呵。

哦，目的不同了是吧，好，我改Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_CHAR = &H102Dim strsend As StringPrivate Sub Command1_Click() Dim arr() As Byte arr = StrConv(strsend, vbFromUnicode) For i& = 0 To UBound(arr) PostMessage Text1.hwnd, WM_CHAR, arr(i), 0 NextEnd SubPrivate Sub Form_Load() strsend = "中华人民共和国"End Sub

这次是期望的结果，谢谢

不好意思，第一次是在崩溃边缘回答的，难免头昏眼花。。。。