Question

vb点击form中按钮（模拟键盘数字键），实现在不同文本框中输入数字。不能只在一个文本框中输入，要能切换

就像键盘输入一样，只不过是用鼠标点击按钮来模拟。例如点击command1，可以在选定文本框中输入1.要按钮的详细代码，谢谢

我现在只要一点击按钮，文本框就会失去焦点，除非我在按钮代码里指定文本框。总之我希望我设置的按钮可以不获得焦点，或者使用其他方法解决我的问题。可以说我就是想在界面上弄一个数字软件盘，希望我说的有人明白！！！！！！

Answer 1

大神何在？！我想编这样的程序。有3文本框，还有一组数字软键盘0-9。先点击任意的文本框后，再点击数字软键盘，就能将数字输入到指定的文本框内。该如何写？我知道要设置文本焦点，但是还是不知具体用法。
比如点击text1，键盘激活，数值可以输入进去，其它文本框没响应，再点击text2，输入数据

Answer 2

用checkbox
Private Sub Command1_Click()
If Check1.Value = 1 Then
Text1.Text = 1
ElseIf Check2.Value = 1 Then
Text2.Text = 1
End If
End Sub

追问

文本框前面加个checkbox虽然可以实现，不过系统中感觉不是很实用，或被人接受。不知可否实现类似搜狗的那种用鼠标点击的软键盘?????

追答

用label的click事件，然后用keybd_event发送按键
点击label不会获得焦点
模块中
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
窗体
Private Sub Label1_Click()
Call keybd_event(49, 0, 0, 0)
End Sub
点击label1，你焦点在哪个文本框，就想它发送1

追问

缺少变量或过程

追答

在模块中声明
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
或者在窗体放这些代码
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Label1_Click()
Call keybd_event(49, 0, 0, 0)
End Sub