Question

vb中我设计了一个给我程序用的面板键盘，怎么样实现鼠标点击一个文本框就在那个框里输入呢？我只能写出

vb中我设计了一个给我程序用的面板键盘，怎么样实现鼠标点击一个文本框就在那个框里输入呢？我只能写出在text1中显示我按的数字，鼠标点击text2则还是在text1中输入，怎么解决？？

Answer 1

可以使用控件数组实现。我写了个例子，你看下就懂了：

（先在窗体上放置一个按钮，一个文本框，然后复制文本框并粘贴，在弹出的提示中选是）

Dim focus As Integer

Private Sub Command1_Click()
    Text1(focus).Text = Text1(focus).Text & "1"
End Sub

Private Sub Text1_GotFocus(Index As Integer)
    focus = Index
End Sub

追问

能稍微来点注释吗……？

追答

= = 这几行代码还需要注释吗

本例中你创建了一个控件数组，即Text10)和Text1(1)两个文本框，实现的功能是当你点按钮时，如果之前的鼠标是点在Text1(0)的，那么Text1(0)文本框里会追加数字1，如果是点在Text1(1)的，那么Text1(1)里会追加数字1。

Dim focus As Integer '定义focus变量用来存储用户点击的是哪个文本框
Private Sub Text1_GotFocus(Index As Integer) '当文本框获得焦点时
    focus = Index '记录是哪个文本框获得了焦点
End Sub
Private Sub Command1_Click() '当按钮被点击时
    Text1(focus).Text = Text1(focus).Text & "1" '在有焦点的文本框里输入“1”
End Sub

追问

问题是我不懂vb。。

我先研究研究哈

文本框获得焦点那个代码写到哪？文本框里？

追答

代码全都写在代码框里。。

追问

全写到按键的代码框？

追答

。。。这样吧，帮你写了个完整版的，你先把你的程序里存放加数的文本框的名称改为Text1，然后把被加数的文本框的名称也改为Text1（这样VB会自动把他们变成控件数组），然后显示结果的文本框的名称改为Text2。接下来把软键盘上的按钮0的名称改为Command1，再把按钮1的名称改为Command1，依此类推直到把按钮9的名称改为Command1（注意顺序，不能颠倒）。然后按顺序分别把清空按钮、小数点按钮、计算按钮的名称改为Command1。
然后在代码框里删掉你之前写的全部代码，把下面的代码粘贴进去：
Dim focus As Integer

Private Sub Command1_Click(Index As Integer)
If Index = 10 Then '清空
Text1(focus).Text = ""
ElseIf Index = 11 Then '小数点
Text1(focus).Text = Text1(focus).Text & "."
ElseIf Index = 12 Then '计算
Text2.Text = Val(Text1(0).Text) + Val(Text1(1).Text)
Else
Text1(focus).Text = Text1(focus).Text & Index
End If
End Sub

Private Sub Text1_GotFocus(Index As Integer)
focus = Index
End Sub

Answer 2

需要认证是在哪个文本框输入，可能还需要一个按钮或其他控件来认证。例如：输入被加数按钮等。

追问

能在清楚点吗？我不太懂vb。

追答

你下载文件“加法计算器.rar”，包括源文件代码、界面，代码中有解释，非常容易看懂。

追问

我主要是想要我的那个屏幕键盘的代码，加法计算器里有么

Answer 3

没看明白的说

追问

我的那个小键盘懂吧？按一下屏幕就出现相应数字。我想实现我的鼠标点击哪个文本框就在哪个文本框里输入