vba - 列表框：添加一个组合框作为项目？

Question

是否可以将列表框的每个项目都设为组合框？我需要这个，因为我将列表框设置为可检查，然后我需要让用户为列表的每个元素从不同的选项中进行选择。

谢谢！

Answer 1

如果您不打算分发您的应用程序，那么您还可以查看 TreeView 控件。请参阅此示例。

代码

Private Sub CommandButton1_Click()
    With TreeView1.Nodes
        .Add , , "R1", "Root 1"
        .Add "R1", tvwChild, , "Test 1"
        .Add "R1", tvwChild, , "Test 2"
        .Add "R1", tvwChild, , "Test 3"
        .Add "R1", tvwChild, , "Test 4"
        .Add "R1", tvwChild, , "Test 5"

        .Add , , "R2", "Root 2"
        .Add "R2", tvwChild, , "Test 11"
        .Add "R2", tvwChild, , "Test 22"
        .Add "R2", tvwChild, , "Test 33"
        .Add "R2", tvwChild, , "Test 44"
        .Add "R2", tvwChild, , "Test 55"
    End With
End Sub

快照

使用控件

为了能够使用 Treeview 控件，您的系统必须已经MSCOMCTL.OCX注册。然后，您可以通过右键单击添加控件

快照

设计时间快照

下载 OCX

如果您没有 OCX，则可以从此处下载

Answer 2

您可以通过将列表框替换为数据表视图中的子表单来实现这种效果。
您将通过提供一个复选框来模拟多选，并且您可以将第二列作为列表框。