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