VB中listview控件使用

最佳答案

Private Sub Command1_Click()
    If List1.List(List1.ListIndex) <> "" Then
        List2.AddItem (List1.List(List1.ListIndex))
        List1.RemoveItem (List1.ListIndex)
    End If
End Sub

Private Sub Command2_Click()
    If List2.List(List2.ListIndex) <> "" Then
        List1.AddItem (List2.List(List2.ListIndex))
        List2.RemoveItem (List2.ListIndex)
    End If
End Sub

Private Sub Form_Load()
    List1.AddItem "A"
    List1.AddItem "B"
    List1.AddItem "C"
    List1.AddItem "D"
    List1.AddItem "E"
    Command1.Caption = "添加"
    Command2.Caption = "删除"
End Sub

完整代码如上,你只需在窗体上添加四个控件:
两个ListBox和两个CommandBox
无须修改代码,直接运行即可.

分享给你的朋友吧：