Question

vb 6.0中listbox 怎样添加列序号，需要详细的代码

vb 6.0中listbox 怎样添加列序号，需要详细的代码
如从1--- i+1
两位的方法都试了，不行

Answer 1

ListBox本身有内部的列序号啊，那就是ListIndex属性，如果你的意思是想把这个序号显示到每行，可以这样：

Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount - 1
List1.List(i) = i+1 & "." & List1.List(i)
Next
End Sub

补充：你又没有说明你的程序的具体情况，怎么给你说？总之我的代码在我这里是测试通过的
如果你是想在新增数据时添加序号，可以这样：
List1.AddItem List1.ListCount + 1 & "." & "要添加的行内容"

Answer 2

listbox只是列表框
条目都是字符串,如果需要序号,你添加的时候需要计算当前的条目数listcount
例如:

listbox1.add cstr(listbox1.listcount) & "第" & cstr(listbox1.listcount) & "个条目"