VB.Net程序设计：动态添加右键菜单和子菜单

VB.Net程序设计：动态添加右键菜单和子菜单

具体分5步

1：定义一个ContextMenuStrip对象。

2：用withevents关键字声明一个ContextMenu对象Private WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu。

3：对ContextMenu对象进行初始化。

4：将ContextMenu对象加入ContextMenu对象。

5：将ContextMenu对象与form对象绑定。

例子：‘添加三个右键菜单，并每个菜单都添加两个子菜单，把右键菜单绑定到当前窗体

Private cms As ContextMenuStrip =  New ContextMenuStrip()
Dim i As Integer

For  i = 1 To  3
Dim tsm As ToolStripMenuItem =  New ToolStripMenuItem(i.ToString())
Dim j As Integer
For  j = 1 To  2
Dim tsmz As ToolStripMenuItem =  New ToolStripMenuItem(j.ToString())
tsm.DropDown.Items.Add(tsmz)
Next
cms.Items.Add(tsm)
Next

Me.ContextMenuStrip = cms

例子：http://bbs.csdn.net/topics/350192775

Dim cm As New ContextMenu
Dim m As New MenuItem("菜单项1")
AddHandler m.Click, AddressOf MenuItemClicked
cm.MenuItems.Add(m)
Dim m2 As New MenuItem("菜单项2")
AddHandler m2.Click, AddressOf MenuItemClicked
cm.MenuItems.Add(m2)
Me.ContextMenu = cm '设置窗体右键菜单

绑定事件：

Public Sub MenuItemClicked(ByVal sender As Object, ByVal e As EventArgs)
Dim m As MenuItem = DirectCast(sender, MenuItem)
MessageBox.Show(m.Text)
End Sub

读取菜单值：

建议把sender 对象强制转换为菜单，你就可以任意访问该菜单对象的属性了。例如Text,例如Tag属性等。

Dim menuItem As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)

Dim temp As String = menuItem.Text

Dim  tag as object  = menuItem.tag

'详细一点的：仅供参考！http://s.yanghao.org/program/viewdetail.php?i=51247 

设置菜单的图标，是否合并，等。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace ContextMenuStripDemo
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();

}
private void InitListBox()
{//添加ListBox的项
for (int i = 0; i < 11; i++)
{
this.listBox1.Items.Add(i);
this.listBox2.Items.Add(i);
}
}
private void InitContextMenuStrip()
{
ContextMenuStrip contextMenuStrip = new ContextMenuStrip();//构造一个ContextMenuStrip
contextMenuStrip.AllowMerge = false;//设置不能跟其他菜单合并
ImageList imagelist = new ImageList();//设置图像集合
imagelist.Images.Add(new Icon("delete.ico"));
contextMenuStrip.ImageList = imagelist;
contextMenuStrip.ShowCheckMargin = false;
contextMenuStrip.ShowImageMargin = true;//显示图标在左边
contextMenuStrip.ShowItemToolTips = true;//显示工具提示
contextMenuStrip.TextDirection = ToolStripTextDirection.Horizontal;//水平显示文本
contextMenuStrip.Opening += new CancelEventHandler(contextMenuStrip_Opening);
this.listBox1.ContextMenuStrip = contextMenuStrip;//绑定到ListBox1控件
this.listBox2.ContextMenuStrip = contextMenuStrip;//绑定到ListBox2控件
}

void contextMenuStrip_Opening(object sender, CancelEventArgs e)
{
ContextMenuStrip contextMenuStrip = sender as ContextMenuStrip;
if (contextMenuStrip != null)
{//第一次点击右键时,如果没有菜单项就添加
if (contextMenuStrip.Items.Count == 0)
{
ToolStripMenuItem itemDelete = new ToolStripMenuItem();
itemDelete.Text = "删除";
itemDelete.ImageIndex = 0;
itemDelete.Click += new EventHandler(itemDelete_Click);
contextMenuStrip.Items.Add(itemDelete);//增加菜单项
}
}

}

void itemDelete_Click(object sender, EventArgs e)
{
ToolStripMenuItem Menuitem = sender as ToolStripMenuItem;
ContextMenuStrip contextMenuStrip =  Menuitem.Owner as ContextMenuStrip;//获取父菜单对象
if (contextMenuStrip != null)
{//通过SourceControl获取目标控件
ListBox listBox = contextMenuStrip.SourceControl as ListBox;
if (listBox != null && listBox.SelectedIndex>-1)
{
listBox.Items.RemoveAt(listBox.SelectedIndex);
}
}
}

private void Form1_Load(object sender, EventArgs e)
{
InitContextMenuStrip();
InitListBox();
}
}
}