VB6 -以编程方式创建subMenuItems

Question

我正在一个VB6项目中工作，有一个现有的菜单，它是由菜单创建者创建的。我很难以编程的方式将subMenu插入到MenuItem中。

第一个菜单是文件。它包含两个菜单项：选择和Exit。

我希望在“选择”中的运行时插入查询的每一行(仅是第一列)。

我的记录集运行良好，但在下面的代码中需要一些帮助：

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