Question

vb SendMessage 如何模拟键盘填写?

Answer 1

Private Const WM_SETTEXT = &HC
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
Private Sub Command1_Click()
Dim w As Long
w = SendMessage(Text1.hwnd, WM_SETTEXT, ByVal 0&, ByVal "王小明")
If w = 0 Then
MsgBox "失败"
Else
MsgBox "成功"
End If
End Sub

追问

你这好像不是模拟解盘的。。 因为发送到里的和用解盘输入的不能激活某一项

追答

那是你的要求没说明白，算我没说

追问

如何才能模拟键盘输入呢，用键盘输入能激活其中的一项，用这个不能激活，怎么办呢？

追答

“用键盘输入能激活其中的一项，用这个不能激活”这句话俺看不懂。不再回复。

追问

就是这样的，用解盘输入数字，其它几个文本能够按输入的自动显示数字，发送的这个不能，虽然也填进去了