Question

VB中listbox如何用添加删除

VB中listbox如何用添加删除

(1)
选择1,单击增加,listbox显示1
选择2,单击增加,listbox显示2
相同数字只添加一次进listobx

(2)
选中listbox中2,单击删除,那么listbox中2被删除

(3)
单击清除,将listbox全部清除

请问VB如何实现(1)至(3)功能

附件http://pan.baidu.com/s/1c08iEJI

Answer 1

Dim yi As Boolean, er As Boolean

Private Sub Command1_Click()
Dim i As Integer
If List1.ListCount = 0 Then
    If yi = True Then List1.AddItem 1
    If er = True Then List1.AddItem 2
Else
    If yi = True Then Call pd(1)
    If er = True Then Call pd(2)
End If
End Sub
Function pd(a As Integer) As Boolean
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If List1.List(i) = a Then pd = True
    Next
        If pd = False Then List1.AddItem a
        
End Function

Private Sub Command2_Click()
On Error Resume Next
List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command3_Click()
List1.Clear
End Sub

Private Sub Label1_Click()
yi = True
er = False
End Sub

Private Sub Label2_Click()
yi = False
er = True
End Sub

追问

好高手再加伍零