关于LISTBOX一个问题,我如何写入数据时记录一共有多少条记录?

Question

关于LISTBOX一个问题,我如何写入数据时记录一共有多少条记录?
一个空白的列表框中,我有5个文件路径的字符串,我想把它的内容一条一条的添加数据,我如何添加,并且记下来??

Answer 1

Private Sub Command2_Click()
Dim sfile As String
Dim a() As String
Dim i As Integer
sfile = "a.bmp,b.bmp,c.bmp,d.bmp"
a = Split(sfile, ",")
For i = 0 To UBound(a)
List1.AddItem a(i)
Next
MsgBox List1.ListCount & "条记录"
End Sub

Answer 2

如果你捨得輸代碼的話，可以這樣做：
List1.AddItem path1
List1.AddItem path2
List1.AddItem path3
List1.AddItem path4
List1.AddItem path5
msgbox "共" & cstr(List1.ListCount) & "條記錄"