建立菜单如下
文件
...............变化 （不可见）
............................................显示
...............退出
下面通过弹出“变化”菜单，触发"显示"事件，使得上一级菜单”变化“可以显示出来
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu menuchange End If End Sub Private Sub menuDisplay_Click() menuchange.Visible = True End Sub
可以看到，没有效果，”变化“菜单仍然处于不可见，为什么呢？代码没有错啊。
把点击事件的代码去掉，跟踪发现
尽管”变化“是不可见的，当弹出菜单时，会发现可见为真，当弹出菜单完成后会发现，可见为假。
那么，我们把弹出菜单时置为假时，最后再置真时，就会发现它就会始终保持最后一句的状态。
于是改为下面
Private Sub menuDisplay_Click() menuchange.Visible = False menuchange.Visible = True End Sub
这样，就可以激活上一级可见菜单。
首先定义一个方法：
1 Private Sub SingleCheck(ByVal sender As Object) 2 RawDataToolStripMenuItem.Checked = False 3 TransToolStripMenuItem.Checked = False 4 SmoothToolStripMenuItem.Checked = False 5 LineFitToolStripMenuItem1.Checked = False 6 sender.Checked = True 7 End Sub然后在所有菜单栏的点击事件里面调用该方法，例如：
Private Sub LineFitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineFitToolStripMenuItem1.Click SingleCheck(sender) End Sub
转载于:https://www.cnblogs.com/Juli/p/11535307.html
VB6 设置子窗口
VB6建立主窗体的子窗体有两种方法：
第一种方法是建立一个MDI窗体，然后把普通的Form窗体设置成它的子窗体。
第二种方法是使用Windows API设置一个普通form窗体为另外一普通窗体的子窗体。方法1操作
1.首先打开VB6，新建一个“标准 EXE”工程。
2.新建一个MDI窗体。
3.设置主窗体的"MDIChild"属性为True
可以看到，主窗体的图标已经变成了子窗体的图标
按F5运行，可以看到，MDIForm1里出现了Form1的窗口，这就说明子窗口创建成功。
方法2操作
1.首先打开VB6，新建一个“标准 EXE”工程。
2.新建一个窗体
3.在Form1的代码框里输入以下代码Private Declare Function SetParent Lib "user32.dll" ( _ ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long注：要写在"(通用)-(声明)"过程里
4.在Form1的Private Sub Form_Load()过程里加入以下代码
Form2.Show SetParent Form2.hWnd, Form1.hWnd Form2.Move 0, 0
运行一下，可以看到Form2已经是Form1的子窗体了。
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(); } } }
