1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
With List1
.AddItem "qqqqq"
.AddItem "fdfs"
.AddItem "tttt"
.AddItem "2222"
.AddItem "yy"
.AddItem "7777777777"
.AddItem "jjj"
End With
End Sub
Private Sub List1_DblClick()
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List1.RemoveItem i
End If
Next i
End Sub