VB.NETの異なるボタンで異なるフォームを開く

Question

noobクエリー私は、異なるボタンクリックイベントで異なるフォームを開くために単一のコマンドを使用する方法はありますか？ 1つのフォームに24個のボタンがあり、これらのボタンを使用して24個の異なるフォームを開きます。

Private Sub BtnCh1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCh1.Click 
    FormCh1.Show() 
End Sub 
Private Sub BtnCh2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCh2.Click 
    FormCh2.Show() 
End Sub 
Private Sub BtnCh3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCh3.Click 
    FormCh3.Show() 
End Sub 
Private Sub BtnCh4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCh4.Click 
    FormCh4.Show() 
End Sub 

は、それが単一のコマンドで行うことができます。

はので、代わりのように24回のためにそれをやって？

Answer 1

フォームのLoadイベントで、あなたのボタンのTagを設定しList(Of Form)

Private list As List(Of Form) 
Private Sub Me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load 
    list = New List(Of Form) 
    list.Add(New Form1()) 
    ' 
    ' 
    ' 
    list.Add(New Form24()) 
End Sub 

にフォームを追加プロパティをフォームのインデックスに追加し、すべて同じクリックイベントを使用するように設定します。

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click 
    list(CType(sender, Button).Tag).Show() 
End Sub 

Answer 2

は、あなたの方法にすべてのハンドラをアタッチし、その後のSelect Caseをもとに、分岐行動：

Private Sub Button_Click_Handler(sender As Object, e As EventArgs) Handles Button66.Click, Button67.Click, Button68.Click 

    Dim btn As Button = DirectCast(sender, Button) 

    Select Case btn.Name 
     Case Button66.Name 
      Dim f1 As New Form1 
      f1.Show() 
     Case Button67.Name 
      Dim f2 As New Form2 
      f2.Show() 
     Case Button68.Name 
      Dim f3 As New Form3 
      f3.Show() 
    End Select 

End Sub