VB 动态菜单的设计

来源：百度知道编辑：UC知道时间：2024/06/07 03:33:32

题为：菜单可以实现菜单项的增减操作。单击“添加菜单项”按钮，在文件菜单下增加标题为“文件1”的菜单项。再次单击“添加菜单项”按钮，则在文件菜单下增加标题为“文件2”的菜单项，以此类推。若单击“删除菜单项”按钮，则删除与输入的菜单项编号对应的菜单项。添加菜单项后的运行结果如图二。
答案给出的步骤：在菜单编辑器中建立如图一的菜单，在“新建”子菜单后再创建一个分隔线，并将其命名为mcfile(0)，实际上这就是建立了菜单控件数组的第一个元素。然后编写程序代码如下：
Private Sub Command1_Click()
Dim mcont As Integer
mcont = 0
mcont = mcont + 1
mcfile(0).Visible = True
Load mcfile(mcont)
mcfile(mcont).Caption = "文件" & Str(mcont)
End Sub
...
问题：不能把在菜单中，把分隔线命名为mcfile(0)，每次都说命名有错，只有命名为mcfile，才行，但是这样命名后，点击“添加菜单项”无法达到题目给出的效果，菜单不能显示“文件1”，...
这道题要怎样做~\(≥▽≤)/~啦啦啦，大侠们帮帮忙( ⊙ o ⊙ )啊~~~~

不能把在菜单中，把分隔线命名为mcfile(0)，每次都说命名有错，只有命名为mcfile，才行，但是这样命名后，点击“添加菜单项”无法达到题目给出的效果，菜单不能显示“文件1”，...

－－－－－－－－－

菜单编辑器中输入名字中是不能带括号的

像这种名字中带括号的，表示它是一个控件数组，那么可以直接输入名字 mcfile ，索引处填写 0 即可（如图）

另外你给出的代码有点小问题， Dim mcont As Integer 放在过程中，表示这个变量是普通变量，当这次点击事件结束后不保存，这样下次再执行这个事件时又归零了，就无法达到逐步增加菜单的作用。可以把 Dim mcont As Integer 改为 Static mcont As Integer，这里的 Static 表示 mcont 是一个静态变量，作用就是再次执行的时候该变量的值保持为上次退出时的值，即：

Private Sub Command1_Click()

Static mcont As Integer

mcont = mcont + 1

mcfile(0).Visible = True

Load mcfile(mcont)

mcfile(mcont).Caption = "文件" & Str(mcont)

End Sub

vb弹出菜单设计 vb菜单设计帮忙设计一个VB的简单程序(动态数组合并) VB下拉菜单的问题 vb中设计菜单时怎么把字体设大些 VB设计的问题动态级联菜单怎么实现的? VC关于动态添加菜单的问题谁有好的动态的,网页设计代码! VB编程：色彩的动态渐变