选中的ToolStrip子菜单项

时间:2011-06-16 21:30:24

标签: vb.net winforms

我正在尝试在VB.Net中创建一个菜单,其中菜单中的一个项目有一个子菜单,当用户将鼠标悬停在它上面时,它会发芽到一边。换句话说,一个完全普通的子菜单,每个人都使用了一百万次。

我的主菜单项是ToolStripMenuItem类。通过使用项目的“DropDown”成员,我可以接近我想要的行为。这会正确创建子菜单行为,但我还需要能够检查和取消选中子菜单中的项目。我已将子菜单项的“CheckOnClick”属性设置为True,但在运行程序时仍未显示复选框。

是否有可能获得此行为?是否可以使用ToolStripMenuItem?

这是我目前拥有的代码,它已经接近,但没有给我复选框:

Dim mainItem As ToolStripMenuItem = New ToolStripMenuItem()
mainItem.Text = "Click For Submenu"

Dim subMenu As ToolStripDropDown = New ToolStripDropDown()
For Each item As ToolStripMenuItem In listOfItems
  item.CheckOnClick = True
  subMenu.Items.Add(item)
Next

mainItem.DropDown = subMenu

1 个答案:

答案 0 :(得分:-1)

尝试删除该subMenu变量并以这种方式更改代码:

For Each mi As ToolStripMenuItem In listOfItems
  mi.CheckOnClick = True
  mainItem.DropDownItems.Add(mi)
Next