如果按鈕在vb.net中單擊，如何獲取觸發器？

Question

這裏是我的情況（註釋行）：

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button7.Click 



    'If button1 is Click Then 
    ' form1.Show 
    ' Panel2.Hide() 
    'elseif button2 is click then 
    ' form2.show 
    ' Panel2.Hide() 
    'elseif button 7 is click then 
    ' form3.show 
    '  Panel2.Hide() 
    'else 
    ' msgbox("nothing have clicked") 
    'End If 


End Sub 

而且我想，這樣的我的條件應該工作，我如何才能觸發如果按鈕是點擊在vb.net？

Answer 1

這應該適合你。

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button7.Click 

    Dim BT As Button = CType(sender, Button) 

    Select Case BT.Name 
     Case Button1.Name 
      form1.Show 
      Panel2.Hide() 

     Case Button2.Name 
      ...whatever 

     Case Button7.Name 
      ...whatever 

    End Select  
End Sub 

或

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button7.Click 

    If Sender Is Button1 
      form1.Show 
      Panel2.Hide() 

    ElseIf Sender Is Button2 
      ...whatever 

    ElseIf Sender Is Button7 
      ...whatever 

    End if 
End Sub 

但你通常最好有單獨的處理程序爲每個。如果他們有一個非常共同的主題，他們只能將它們結合起來