ContextMenuStrip 中添加子菜单

来源:互联网 发布:电影源码是什么 编辑:程序博客网 时间:2024/05/16 16:14

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