Option Explicit
' 获得 List1 中列出的字符串
Public Sub GetItems(ByRef Data() As String)
' 变量声明
Dim i As Long
Dim Length As Long
' 获得数据数量
Length = List1.ListCount
ReDim Data(Length - 1)
' 获取数据
For i = 0 To ListCount - 1
Data(i) = List1.List(i)
Next
End Sub
' 设置 List1 中列出的字符串
Public Sub SetItems(ByRef Data() As String)
' 变量声明
Dim item As String
Dim SelectedIndex As Long
' 保存显示条目
SelectedIndex = List1.ListIndex
' 刷新显示数据
List1.Clear
For Each item In Data
Call List1.AddItem(item)
Next
' 恢复选中条目
If SelectedIndex < List1.ListCount Then
List1.ListIndex = SelectedIndex
End If
End Sub
List1.List(序号)可以获得列表对应项的文字
List1的List包含了List1的所有项
List1.AddItem(string) '//添加项
List1.RemoveItem(string) '//删除项
List1.List(integer) '//表示获取List中某项
List1.List(integer) = string '//表示修改某项
'//列出数据到数组ss
Dim ss As String()
For i As Integer = 1 To List1.ListCount'List.ListCount //表示项的数量
ss(i-1) = List1.List(i - 1) & vbcrlf
Next