vb listbox 字符截取

来源：百度知道 编辑：UC知道 时间：2024/05/30 03:50:09
在list1里面内容如下:

123；哈哈
321；嘿嘿
456；稳定
654；加快

如何把list1中“；”左边的添加到list2，把“；”右边对应于左边的添加到list3？

请高手帮我....

我用split...做不来.....
谢谢~

Dim str() As String
Dim n As Integer
Dim i As Integer
str=Split("123;哈哈",";")
n=Ubound(str)
For i=0 to n-1
MsgBox(str(i))
Next

你说“我用split...做不来.....”，我还以为你用不来 split

Dim str() As String
Dim i As Integer
For i=0 to List1.ListCount-1
str=Split(List1.List(i),";")
List2.AddItem(str(0))
List3.AddItem(str(1))
Next

得到第i行不知道是不是 List属性，很久没用VB了，机器上也没有VB。