VB listbox 添加数据问题

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后面的数据往下移，我以前也碰到过，所以努力找过办法
不过像这样的问题只要第一次写一个通用函数，以后调用就行了。
建立自己的小函数库还是很有必要的。

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

本节视频我们来聊一聊如何添加数据表的行与列。Treelab 官网：www.treelab.com.cn

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