VB listbox 添加数据问题

来源：百度知道 编辑：UC知道 时间：2024/06/01 16:54:57
现在 list1中有几个数据例如：
d
fs
gss
gs

list1.AddItem 只能在最后增加，那如果我想选中了 fs 然后就在 fs 下增加一个数据 abc 怎样做呢？

Private Sub Command1_Click()
'代码中Text1.Text是一个文本框用以输入要添加的数据
Dim mIndex As Integer
If List1.ListCount = 0 Then
List1.AddItem Text1.Text
Else
If List1.ListIndex >= 0 Then
mIndex = List1.ListIndex
List1.AddItem Text1.Text, mIndex + 1
Else
List1.AddItem Text1.Text
End If
End If
End Sub

本答案可以直接运行

如果是vb6的话只能把fs后面的数据往下移，我以前也碰到过，所以努力找过办法
不过像这样的问题只要第一次写一个通用函数，以后调用就行了。
建立自己的小函数库还是很有必要的。

list有个什么index()的属性 近编辑器试试看就知道了

Private Sub Form_Load()
For i = 1 To 3
List1.AddItem i
Next
End Sub

Private Sub List1_DblClick()
List1.AddItem "wo", List1.ListIndex + 1
End Sub

'正确解答
Private Sub Command2_Click()
If List1.ListIndex >= 0 Then
List1.AddItem Text1.Text, List1.ListIndex + 1
End If
End Sub