关于VB.NET 菜单栏ToolStripMenu 下拉菜单单选功能的实现

最新推荐文章于 2024-02-06 12:00:53 发布

aqtyet4049

最新推荐文章于 2024-02-06 12:00:53 发布

阅读量1k

点赞数

原文链接：http://www.cnblogs.com/Juli/p/11535307.html

版权

首先定义一个方法：

1    Private Sub SingleCheck(ByVal sender As Object)
2         RawDataToolStripMenuItem.Checked = False
3         TransToolStripMenuItem.Checked = False
4         SmoothToolStripMenuItem.Checked = False
5         LineFitToolStripMenuItem1.Checked = False
6         sender.Checked = True
7     End Sub

然后在所有菜单栏的点击事件里面调用该方法，例如：

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

转载于:https://www.cnblogs.com/Juli/p/11535307.html