同様のツールストリップボタンの手順をVB.NETの単一のものに分解する方法

このコードをはるかに単純にするための2つのトリックがあります。1つ目Handlesは、イベントメソッド宣言の句に複数の項目を含めることができることを知っていることです。（その句を省略して、AddHandler1つのメソッドに多くのコントロールのイベントハンドラーを設定するために使用することもできます。）もう1つのトリックは、sender引数を使用して、このメソッドに接続されている複数のコントロールのどれが使用されたかを判断する方法を知ることです。

それらを組み合わせると、任意のビューに変更するために機能する1つの方法が得られます。

Private Sub NavigationMenuItem_Click(sender As Object, e As EventArgs) Handles tsbHome.Click, tsbTools.Click, tsbReport.Click, tsbAnalyzer.Click
    'First Suspend Layout, to avoid extra screen re-draws
     Me.SuspendLayout()

     'Set your checkboxes
     tsbHome.Checked = sender Is tsbHome
     tsbTools.Checked = sender Is tsbTools
     tsbReport.Checked = sender Is tsbReport
     tsbAnalyze.Checked = sender Is tsbAnalyze

     'Then De-select EVERYTHING
     pnlHome.Visible = sender Is tsbHome
     pnlTools.Visible = sender Is tsbTools
     pnlReport.Visible = sender Is tsbReport
     pnlAnalyze.Visible = sender Is tsbAnalyze
      ' ... lists continues...

    'Finally, resume layout so all changes draw to the screen at once
    Me.ResumeLayout()
End Sub

Form LoadまたはInitializeComponent（）メソッドにコードを追加して、パネルとツールストリップボタンをリストに追加すると、これを簡単に行うことができます。

Private ViewButtons As List(Of ToolStripButton)
Private ViewPanels As List(Of Panel)

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ViewButtons = New List(Of ToolStripButton) From {tsbHome, tsbTools, tsbReport, tsbAnalyze}
    ViewPanels = New List(Of Panel) From {pnlHome, pnlTools, pnlReport, pnlAnalyze}

    For Each b In ViewButtons
       AddHandler b.Click, AddressOf NavigationMenuItem_Click
    Next

End Sub

Private Sub NavigationMenuItem_Click(sender As Object, e As EventArgs) 
     Me.SuspendLayout()

     For i As Integer = 0 To ViewButtons.Length - 1
         Dim selected As Boolean = ViewButtons(i) Is sender
         ViewButtons(i).Checked = selected
         ViewPanels(i).Visible = selected
    Next

    Me.ResumeLayout()
End Sub