Question

vb中向指定文本框发送字符串的问题？

下面的代码是向窗体中text发送 "测试" 这两个字，可是执行的时候文本框中只有第一个字，并且程序卡死，怎么解决哦：Private Sub Command1_Click()
Dim data() As Byte
Dim i, h1, h2 As Long
i = 0
data = StrConv("测试", vbFromUnicode)
h1 = FindWindow(vbNullString, "form1")
h2 = FindWindowEx(h1, 0, "ThunderTextBox", "")
While i <= UBound(data)
SendMessage h2, WM_CHAR, data(i), 0
DoEvents
i = i + 1
Wend
End Sub

Answer 1

用PostMessage函数来发送消息吧SendMessage函数发送消息的话需要目标进程回复的,很容易卡死