listbox详解

Dim i As Integer

Private Sub Command1_Click() If Text1.Text = \"\" Then MsgBox \"请输入信息\" Else

List1.AddItem Text1.Text End If End Sub

Private Sub Command2_Click() If List1.ListIndex >= 0 Then

List1.RemoveItem List1.ListIndex Else

MsgBox \"请选择\" End If End Sub

Private Sub Command3_Click() If List1.ListIndex >= 0 Then List2.AddItem List1.Text Else

MsgBox \"请选择数据\" End If End Sub

Private Sub Command4_Click() List2.Clear List1.Clear List3.Clear End Sub

Private Sub Command5_Click() If List2.SelCount = 1 Then

List3.AddItem List2.Text

ElseIf List2.SelCount > 1 Then

For i = List2.SelCount - 1 To 0 Step -1 If List2.Selected(i) Then List3.AddItem List2.List(i) End If Next End If End Sub