關於VB.NET 菜單欄ToolStripMenu 下拉菜單單選功能的實現

首先定義一個方法：

   Private Sub SingleCheck(ByVal sender As Object)
        RawDataToolStripMenuItem.Checked = False
        TransToolStripMenuItem.Checked = False
        SmoothToolStripMenuItem.Checked = False
        LineFitToolStripMenuItem1.Checked = False
        sender.Checked = True
    End Sub

然后在所有菜單欄的點擊事件里面調用該方法，例如：

Private Sub LineFitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineFitToolStripMenuItem1.Click
        SingleCheck(sender)
    End Sub