关于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