vb6使用2文本框上的相同按钮

嗨，我们的老师让我们创建一个只使用按钮的计算器 对于中输入的值，应在vb6的第一个文本框中输入值1，然后在下一个文本框中输入另一个值

是否有方法使用相同的按钮在下一个文本框中输入值

比如说，按下按钮3后，它将显示在textbox1上

Text1.Text = "3"

我的问题是它在显示数字3后不会转到下一个文本框 我已经试过了

    If Text2.Setfoucs = True Then
    Text2.Text = "3"
    Else
    Text1.Text = "3"
    End If

这给了我错误

我只想在第二个文本框上使用相同的按钮 在第一个文本框上使用后

我考虑使用另一组按钮，并在 按下第一个按钮，下一个按钮将被打开

Text2.Text = "3"

我只是VB6的初学者，如有任何建议，将不胜感激

下面是这个项目的样子

是一个函数，不是变量，并且它不返回值，因此不能在if子句中使用它

以下是我的建议，以完成您试图做的事情：

在每个文本框中添加一个设置变量的GotFocus事件。像这样：

Private selectedTxtBox As Integer

Private Sub Text1_GotFocus()
    selectedTxtBox = 1
End Sub

Private Sub Text2_GotFocus()
    selectedTxtBox = 2
End Sub

然后按按钮，您可以执行以下操作：

If selectedTxtBox = 1 Then
    Text1.Text = "3"
ElseIf selectedTxtBox = 2 Then
    Text2.Text = "3"
End If

---

您要求提供建议…使用有意义的名称命名每个控件。它将帮助您编码和调试，当然也会帮助其他任何人（如我们）阅读您的代码并知道哪个控件是哪个控件。其次，“它给了我错误。”是没有帮助的。对错误的描述，以及应该是哪一行。谢谢，这真的很有帮助