visual-studio-2010 - 如何使用 Visual Basic 应用程序表单中的按钮将数字放入文本框中

Question

我正在尝试在 Visual Basic 应用程序表单上制作一个计算器，并且我已经对大部分代码进行了排序。如何做到这一点，当我按下数字按钮时，它会将数字放在文本框中。它还需要能够工作，所以如果我按 1 再按 2 再按 3，它会显示为 123。

Answer 1

只需将 TextBox 的 SelectedText() 属性设置为按钮的 Text() 属性即可。

例如：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    TextBox1.SelectedText = Button1.Text
    TextBox1.Focus()
End Sub

如果您让所有按钮触发相同的处理程序，则它变为：

Private Sub AllButtons_Click(sender As System.Object, e As System.EventArgs) _
    Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, _
    Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button0.Click

    Dim btn As Button = DirectCast(sender, Button)
    TextBox1.SelectedText = btn.Text
    TextBox1.Focus()
End Sub