我在一个VB6项目中工作，并且有一个现有的菜单，是使用菜单创建器创建的。我无法以编程方式在菜单项中插入subMenu。
第一个菜单是File。它包含两个菜单项：Choice和Exit。
我想在运行时在Choice中插入查询的每一行（仅第一列）。
我的记录集运行良好，但是我需要以下代码中的一些帮助：
Do While rs_choice.EOF = False
'add column1 in Choice
'~Something~ = rs_choice.Fields("column1").Value
rs_choice.MoveNext
Loop
PS：没有一个MenuItems定义索引。
有人能帮我吗 ？
使用设计器给出Choice一个名为的子项目mnuDynamic，并为其指定索引0。
循环记录集加载新项目：
Dim i as long
Do While rs_choice.EOF = False
If (i > 0) Then Load mnuDynamic(i)
mnuDynamic(i).Caption = rs_choice.Fields("column1").Value
rs_choice.MoveNext
i = (i + 1)
Loop
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句