vb6.0中listbox怎样添加列序号，需要详细的代码？

vb6.0中listbox怎样添加列序号，需要详细的代码？

由于list是但列数据表格，所以你的要求其实用grid之类的是最容易实现的。用list也可以实现，但需要用代码软实现。 在窗体上添加1个ListBox，1个TextBOX,3个CommandButton控件。把ListBox的Sorted属性改为True。该属性为让ListBox控件可以自动按字母排序。由于Sorted属性，所以要把序号用00占位，否则排序结果将为 1、10、100、11、12…… 然后粘贴如下代码： Private Sub Command1_Click() On Error Resume Next '添加一个新信息 Me.List1.AddItem Right("00" &

Dim a() Private Sub Command1_Click() ReDim a(List1.ListCount - 1) For i = 0 To List1.ListCount - 1 a(i) = List1.List(i) List1.List(i) = i + 1 & "号 " & a(i) Next i End Sub 我也是很笨的哦 我想了很久才想出来 嘻嘻

Dim i As Integer For i = 1 To dataCount 'dataCount为数据总个数 listbox.AddItem i Next i