vblistbox(vb列表框ListBox的详细使用方法)
一、VB 中listBox的多列显示用法
问题有点乱啊……小弟认为的话做一个Sub，在每次删除List和添加list过程的后面加上这个Sub
PublicSubList1Change()'先添加两个command，分别为Cmd1，Cmd2和一个Listbox，为List1。当发生删除List或添加List事件之后加上这个事件。
Fori=0ToList1.ListCount-1
IfIsNumeric(CStr(Split(Trim(List1.List(i))&"","")(0)))=TrueThen
List1.List(i)=i+1&""&Split(List1.List(i)&"","")(1)
'如果已有标记，更新标记
Else
List1.List(i)=i+1&""&Trim(List1.List(i))
'如果没有标记则添加标记
EndIf
Next
EndSub
PrivateSubcmd1_Click()
List1.AddItem"今天的天气是:"&cmd1.Caption
CallList1Change
EndSub
PrivateSubCmd2_Click()
List1.AddItem"今天的天气是:"&Cmd2.Caption
CallList1Change
EndSub
完成的效果：
否则的话建议你用ListView，我比较擅长ListView，功能多，而且ListView控件在每个List前加序号是不用建一个Sub。反正就是功能比较全→_→。
二、VB里面的listBox控件怎么用啊
listBox是用来显示列表数据的控件
他的主要属性如下:
设已知控件为list1
list1.list为列表中显示的相关数据
list1.Backcolor为列表的背景颜色
list1.Forecolor为他的字体颜色
list1.front为他的字体
list1.style为控件的选中格式(0为默认，1为可以在其上打对号)
当要向其中加入字符窜时可以用这个命令
List1.AddItem
"xxx",
index
xxx为欲加入的字符,index为加入字符的位置(第几行）
删除其中的字符窜命令为：
list1.RemoveItem
index
index为已知欲删除行数。
基本的就这些了。。。。。。。。
三、VB中如何对listbox的每个列表项绑定一个数值
Private Sub Command1_Click()
Print List1.ItemData(List1.ListIndex)
End Sub
Private Sub Form_Load()
List1.AddItem"A"
List1.AddItem"B"
List1.AddItem"C"
List1.AddItem"D"
List1.ItemData(0)= 1
List1.ItemData(1)= 2
List1.ItemData(2)= 3
List1.ItemData(3)= 4
End Sub
可以利用itemdata属性来来为每个列表项绑定一个数值
以下来源于网络：
ItemData属性
示例�应用于
返回或设置 ComboBox或 ListBox控件中每个项目具体的编号。
语法
object.ItemData(index) [= number]
ItemData属性语法包含下面部分：
部分描述
Object对象表达式，其值是“应用于”列表中的一个对象。
Index对象中指定项目的编号。
Number与指定项目相关联的数。
说明
ItemData属性是一个长整型数的数组，它有与控件的 List属性相同数目的项目。可以用与每一项相关的数来标识它们。例如，在 ListBox控件中，可以用雇员身份号来标识每一个雇员的名字。填 ListBox时，也要将雇员号填入 ItemData相应的元素中。
ItemData常常用做与 ListBox控件中项目相关的数据结构数组的索引。
注意利用 AddItem方法在列表中插入一个项目时，在 ItemData数组中也会自动插入一项。但是其值不会重新初始化为 0；它保持列表在插入项目之前该位置的值。用 ItemData属性时，一定要在向列表中加入新项时，设置它的值。
ItemData属性示例
这个例子用员工的名字填充 ListBox控件，并用员工的代号填充 ItemData属性数组，并用 NewIndex属性使代号与排序列表同步。当用户做选择时，Label控件显示选项的名字和代号。要试用此例，r把代码粘贴到包含 ListBox和 Label的窗体的声明部分。设置 ListBox的 Sorted属性为 True，然后按 F5键，并单击 ListBox。
Private Sub Form_Load()
'以排序顺序将相应的项目填充t List1和 ItemData数组.
List1.AddItem"Judy Phelps"
List1.ItemData(List1.NewIndex)= 42310
List1.AddItem"Chien Lieu"
List1.ItemData(List1.NewIndex)= 52855
List1.AddItem"Mauro Sorrento"
List1.ItemData(List1.NewIndex)= 64932
List1.AddItem"Cynthia Bennet"
List1.ItemData(List1.NewIndex)= 39227
End SubPrivate Sub List1_Click()
'追加员工数字和员工名字.
Msg= List1.ItemData(List1.ListIndex)&""
Msg= Msg& List1.List(List1.ListIndex)
Label1.Caption= Msg
End Sub
应用于：
ComboBox控件
ListBox控件