如何获取单击按钮的文本

Question

编程很新。一旦按下按钮，我就设法改变按钮的颜色。我试图通过使用字符串ChosenRoom获取单击按钮的文本，但是一旦我来保存，字符串的值就没有了，所以我必须做错了。< / p>

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

此代码中的某些内容可能对您有所帮助。我把按钮放在表格上......

tk.OptionMenu(container, targetVar, *list(accountMap if accountMap else default))

注意Handles子句。 如果您没有响应事件但是编写自己的Sub然后您可以将发送者作为参数传递，但看起来您正在响应事件，在这种情况下您需要使用Handles子句。 男孩，那没用。我会再试一次

打开Option Strict并且它不喜欢我假设发件人是一个按钮，即使我刚用TypeOf检查过。不得不将它改为MyButton。