Question

vb listbox 删除

VB窗体form1中添加两个Listbox：List1和List2再加一个Command1按钮，
现在要实现如下功能：
选择List1中某个数据单击Command1按钮能同时删除与之对应的List2中的数据
也就是说：
List1中的数据：
行数 数据内容
1 123456
2 abcdde
3 efgh
4 ijklmn
……
List2中的数据
行数 数据内容
1 abcdde
2 ijklmn6
3 8525411
4 198454521
……
当选择List1中的第三行数据单击Command1按钮能同时删除List1和List2中的第三行数据，做到一一对应的删除！

谢谢大家的帮忙！根据实际情况给分啊！再一次谢谢大家！

Answer 1

Private Sub Command1_Click()
Dim NowIndex As Integer
NowIndex = List1.ListIndex
If NowIndex >= 0 Then
List1.RemoveItem (NowIndex)
On Error Resume Next //如果list1中的项在list2中不存在则忽略
List2.RemoveItem (NowIndex)
End If

End Sub

Answer 2

listbox1(index).clear
listbox2(index).clear