VB.NET两个LISTBOX进行交换数据

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRightMove.Click, LstAll.DoubleClick      '右移数据        If LstAll.SelectedItems.Count > 0 Then            If LstPart.Items.Contains(LstAll.SelectedItem) Then Exit Sub            LstPart.Items.Add(LstAll.SelectedItem)            LstAll.Items.Remove(LstAll.SelectedItem)        End If    End Sub    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLeftMove.Click, LstPart.DoubleClick         '左移数据        If LstPart.SelectedItems.Count > 0 Then            If LstAll.Items.Contains(LstPart.SelectedItem) Then Exit Sub            LstAll.Items.Add(LstPart.SelectedItem)            LstPart.Items.Remove(LstPart.SelectedItem)        End If    End Sub    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRightAll.Click        '右移全部数据        If LstAll.Items.Count < 1 Then Exit Sub        ' Dim LstItem As Object        'For Each LstItem In LstAll.Items        '    If Not LstPart.Items.Contains(LstItem) Then        '        LstPart.Items.Add(LstItem)        '    End If        'Next        'Dim i As Integer, nCount As Integer        'nCount = LstAll.Items.Count        ''For i = 1 To nCount        ''    LstAll.Items.AddRange(LstAll.Items)        ''Next        '  LstAll.Items.Remov        LstPart.Items.AddRange(LstAll.Items)        LstAll.Items.Clear()    End Sub    Private Sub BtnLeftAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLeftAll.Click       '左移全部数据        If LstPart.Items.Count < 1 Then Exit Sub        'Dim LstItem As Object        'For Each LstItem In LstPart.SelectedItems        '    If Not LstAll.Items.Contains(LstItem) Then        '        LstAll.Items.Add(LstItem)        '    End If        '    'LstPart.Items.Remove(LstItem)        '    'Me.ListBox2.Items.AddRange(Me.ListBox1.Items)        '    'Me.ListBox1.Items.Clear()        'Next        'Dim i As Integer, nCount As Integer        'nCount = LstPart.SelectedItems.Count        'For i = 1 To nCount        '    LstPart.Items.Remove(LstPart.SelectedItem)        'Next        LstAll.Items.AddRange(LstPart.Items)        LstPart.Items.Clear()    End Sub