VB6 - 以编程方式创建子菜单项

Question

我在一个 VB6 项目中工作，并且有一个现有的菜单，由菜单创建器创建。我无法以编程方式在 MenuItem 中插入 subMenu。

第一个菜单是文件。它包含两个菜单项：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 定义了索引。

有人可以帮我吗？

Answer 1

使用设计器给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