VB.net多个按钮使用一个功能

时间:2015-12-14 19:36:10

标签: vb.net button ctype directcast

我动态重命名按钮,我需要根据按钮文本执行一个功能。我有工作代码(每个按钮5个部分)。有没有很好的方法只使用DirectCast或CType的所有5个按钮的单个功能或任何其他功能,所以我不必有多个功能做同样的事情?

我的代码示例为5个按钮中的两个:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If Button1.Text = "GO" Then
      MsgBox("GO")
    ElseIf Button1.Text = "STOP" Then
      MsgBox("STOP")
    End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    If Button2.Text = "GO" Then
      MsgBox("GO")
    ElseIf Button2.Text = "STOP" Then
      MsgBox("STOP")
    End If
End Sub

提前致谢!

1 个答案:

答案 0 :(得分:0)

而不是直接引用Buton1,你可以尝试这个(不确定VB.NET sintax):

Dim myButton as Button
myButton=(button)sender
If myButton.Text = "GO" Then...