VB6

Question

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

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

我想在运行时间在 Choice 中插入查询的每一行（仅第一列）。

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

Do While rs_choice.EOF = False
    'add column1 in Choice
    '~Something~ = rs_choice.Fields("column1").Value
    rs_choice.MoveNext
Loop

PS : 没有一个菜单项定义了索引。

有人可以帮助我吗？

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

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

VB6 - Create subMenuItems programmatically

submenu

programmatically-created