作业帮List1.RemoveItem List1.ListIndex
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/09 04:04:56
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
你试试吧,以后互相学习了!
这样应该可以了吧,你试试!
找别人复制的,别介意!
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
你试试吧,以后互相学习了!
这样应该可以了吧,你试试!
找别人复制的,别介意!