クリックされたボタンのテキストを取得する方法

Question

プログラミングにはまったく新しいものです。私は一度それが押されたボタンの色を変更するためにこれを思いついた。文字列ChosenRoomを使用してクリックされたボタンのテキストを取得しようとしていますが、一度保存すると文字列の値は何もないため、何か間違っている必要があります。

Private Sub ChangeColor(Sender As Object, e As EventArgs) 
      Dim SenderButton As Button = Sender 
      If YellowButton IsNot Nothing Then 
       YellowButton.BackColor = Me.BackColor 
      End If 
      If SenderButton IsNot YellowButton Then 
       SenderButton.BackColor = Color.Yellow 
       ChosenRoom = SenderButton.Text 
      End If 

      YellowButton = Sender 
     End If 
    End If 

これは私が多分このコードで何かが役立つ文字列

cmd1.Parameters.Add(New OleDbParameter("Room Number", CType(ChosenRoom, String))) 

Answer 1

を保存するために使用していますものです。私はフォーム上にボタンを置いて...

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click 
     For Each ctr As Control In Controls 
      If TypeOf sender Is Button Then 
       Dim MyButton As Button = CType(sender, Button) 
       If MyButton.Text = "Button2" Then 
        MyButton.BackColor = Color.Red 
        MyButton.Enabled = False 
        Exit For 
       End If 

      End If 
     Next 

    End Sub 

Handles句に注目してください。 イベントに応答していないのに独自のSubを作成している場合は、送信者を引数として渡すことができますが、イベントに応答しているように見える場合は、Handles句を使用する必要があります。 男の子、それはうまくいきませんでした。もう一度やり直してみます

オプションをオンにして、TypeOfで確認したにもかかわらず、送信者がボタンであると仮定していないと思われませんでした。それをMyButtonにCTypeする必要がありました。