如何实现ToolStripMenuItem下拉项单选？点击后自动取消其他选中项

很遗憾，ToolStripMenuItem本身并没有内置属性能直接帮你实现单选效果——它的CheckOnClick属性只是让单个菜单项支持勾选/取消，但不会自动管理同组其他项的状态。所以你得手动写点代码来实现这个逻辑，不过操作起来很简单。

方法一：在点击事件中手动取消其他项的勾选 #

你可以在SecondaryLCIDClick事件处理方法里，遍历mnuExtrasSecondaryLCID的所有下拉项，把除了当前点击项之外的所有项的Checked属性设为False：

Private Sub SecondaryLCIDClick(sender As Object, e As EventArgs)
    ' 获取当前触发点击事件的菜单项
    Dim clickedItem As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)
    
    ' 遍历所有下拉菜单项，取消非当前项的勾选状态
    For Each item As ToolStripMenuItem In Me.mnuExtrasSecondaryLCID.DropDownItems
        If item IsNot clickedItem Then
            item.Checked = False
        End If
    Next
End Sub

这样每次点击某个项时，就会自动取消其他所有项的勾选，确保只有最后点击的项处于选中状态。

方法二：改用ToolStripRadioButtonMenuItem（更省心的替代方案） #

如果你不想写遍历逻辑，也可以直接用ToolStripRadioButtonMenuItem控件替换ToolStripMenuItem。这个控件天生就支持单选组行为——同一下拉菜单里的ToolStripRadioButtonMenuItem会自动维护单选状态，不需要额外代码。

修改你创建菜单项的代码即可：

Me.mnuExtrasSecondaryLCID.DropDownItems.Clear()
Dim iCount As Integer = -1
For Each nLang As clsLanguage In g_LCIDs
    If nLang.IsLeader Then
        iCount += 1
        ' 替换成ToolStripRadioButtonMenuItem
        Dim n As New ToolStripRadioButtonMenuItem
        n.Name = "mnuSecondaryLCID" & iCount.ToString()
        n.Text = nLang.Title
        n.Tag = nLang.LCID
        n.Available = True
        Me.mnuExtrasSecondaryLCID.DropDownItems.Add(n)
        AddHandler n.Click, AddressOf Me.SecondaryLCIDClick
    End If
Next

这样控件会自动处理单选逻辑，你只需要在点击事件里获取选中的项就行，省去了手动管理其他项的麻烦。

内容的提问来源于stack exchange，提问作者tmighty