Question

我正在尝试在可视化基本应用程序表单上创建一个计算器，并且我对大部分代码进行了排序。当我按下数字按钮时，如何将其设置在文本框中。它也需要能够工作，所以如果我按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

如何使用Visual Basic应用程序表单中的按钮将数字放在文本框中

1 个答案: