l将文件添加到两列列表框中

Question

我尝试将文件添加到列表框中的方式与将文件附加到电子邮件时添加的方式相同，只有两列但能够唯一地处理每个文件。 我正在使用Access VBA，不知道是否可能。 任何帮助，将不胜感激。 感谢

Answer 1

尝试使用单独的数组/集合/字典将listBox中项目的索引映射到文件。然后，当选择某个项目时，您可以使用该项目的索引来获取链接

我刚试过这个，效果很好。
用户形式代码：

Private d As Dictionary

Private Sub userform_initialize()
    Set d = New Dictionary

    'populate list box, and add items to dictionary
    For i = 1 To 3
        With ListBox1
            d.Add .ListCount, "Link" & i
            .AddItem 0
            .List(.ListCount - 1) = "Hello World"
        End With
    Next
End Sub

'update label1's value based of listbox's selected item
Private Sub ListBox1_Change()
    With ListBox1
        If .ListIndex <> -1 Then
            Label1.Caption = d.Item(.ListIndex)
        End If
    End With
End Sub

用户窗体如下所示:(名为ListBox1的列表框，名为Label1的标签）：

例：

如果您在使用字典对象时遇到问题，则需要添加对＆＃34; Microsoft Scripting Runtime＆＃34;的引用。但实际上任何集合类型都可以替换这种情况下的字典（数组/集合）