我正在尝试在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
答案 0 :(得分:-1)
尝试删除该subMenu变量并以这种方式更改代码:
For Each mi As ToolStripMenuItem In listOfItems
mi.CheckOnClick = True
mainItem.DropDownItems.Add(mi)
Next