ContextMenuStrip 中添加二级菜单
代码如下:
Dim
AAA
As
Windows.Forms.ContextMenuStrip
=
New
Windows.Forms.ContextMenuStrip()
Dim BBB As ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Dim CCC As ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
CCC.Name = " CCC "
CCC.Text = " CCC "
BBB.Name = " BBB "
BBB.Text = " BBB "
BBB.DropDownItems.AddRange( New ToolStripItem() {CCC})
AAA.Items.Add(BBB)
Me .ContextMenuStrip = AAA
Dim BBB As ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Dim CCC As ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
CCC.Name = " CCC "
CCC.Text = " CCC "
BBB.Name = " BBB "
BBB.Text = " BBB "
BBB.DropDownItems.AddRange( New ToolStripItem() {CCC})
AAA.Items.Add(BBB)
Me .ContextMenuStrip = AAA