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

页面导航:首页 > 软件编程 > vb.net > VB.NET两个LISTBOX进行交换数据

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

来源: 作者: 时间:2016-01-18 16:54 【

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRightMove.Click, LstAll.DoubleClick #39;右移数据 If LstAll.SelectedItems.Count ...

 

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 

 

  摘自:wl58796351的专栏

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<