List1.RemoveItem List1.ListIndex

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/19 17:37:28
List1.RemoveItemList1.ListIndexList1.RemoveItemList1.ListIndexList1.RemoveItemList1.ListIndex写好的程序来了

List1.RemoveItem List1.ListIndex
List1.RemoveItem List1.ListIndex

List1.RemoveItem List1.ListIndex
写好的程序来了,我自己已经验证过了,程序不会出错,只要你选择好要添加或删除的行后,单击按钮就会OK了!
Private Sub Command1_Click()
If List1.ListCount > 0 And List1.Text "" Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub
Private Sub Command2_Click()
If List2.ListCount > 0 And List2.Text "" Then
for i=0 to list2.listcount
if list2.selected(i)=true then
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
next
End If
End Sub
你试试吧,以后互相学习了!
这样应该可以了吧,你试试!
找别人复制的,别介意!