Question

用VB程序，列表框操作的题目

运行时在文本框中输入新表项，单击“添加”按钮后将文本框中的内容追加到列表框的末尾；单击“删除”按钮可将所选表项删除；单击“上移”或“下移”可以调整所选表项的位置

Answer 1

Private Sub Command1_Click() '添加
    List1.AddItem Text1.Text
End Sub

Private Sub Command2_Click() '删除
    For i = List1.ListCount - 1 To 0 Step -1
        If List1.Selected(i) Then
            List1.RemoveItem i
        End If
    Next i
End Sub

Private Sub Command3_Click() '上移
    For i = List1.ListCount - 1 To 1 Step -1
        If List1.Selected(i) Then
            k = List1.List(i)
            List1.List(i) = List1.List(i - 1)
            List1.List(i - 1) = k
            List1.Selected(i - 1) = True
            Exit For
        End If
    Next i
End Sub

Private Sub Command4_Click() '下移
    For i = List1.ListCount - 2 To 0 Step -1
        If List1.Selected(i) Then
            k = List1.List(i)
            List1.List(i) = List1.List(i + 1)
            List1.List(i + 1) = k
            List1.Selected(i + 1) = True
            Exit For
        End If
    Next i
End Sub