楼上的注意要求:“要求:选择列表框里N项再单击删除按钮能删除”所以你们的都不对,你们的只能删除一项,而不是“N项”。Private Sub Command1_Click()Dim i As IntegerDo While i <= List1.ListCount - 1
If List1.Selected(i) = True Then List1.RemoveItem i Else i = i + 1LoopEnd Sub...
Private Sub Command1_Click()MsgBox "你确定要删除:" & List1.Text, 48, "提示"List1.RemoveItem (List1.ListIndex)End SubPrivate Sub Form_Load()For i = 1 To 10List1.AddItem iNex...