VB6.0动态菜单的实现

1、打开VB6.0，新建一个工程，将窗体Form1的caption属性改为“动态菜单的实现”，将界面设置成下图：

3、在打开的“菜单编辑器”中按照如图所示创建菜单。注意：“窗口”菜单下的“文件信息“菜单项是样板菜单，去除”可见“复选框中的勾，并将其索引设为0，将其变为菜单数组。

5、双击窗体进入代码编辑窗口，在通用段进行变量定义：

8、关闭代码窗口，按下F5运行程序，分别使用”打开“菜单项打开若干文件，并尝试用”关闭“菜单项从”窗口“菜单下中将已关闭文件的文件信息移除。得到的效果如图所示：