VB.NET两个LISTBOX进行交换数据
2011-10-10 21:29
393 查看
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
相关文章推荐
- 两个VB程序之交换数据的DDE工程
- asp.net中XML文件作为中间件进行数据交换功能的实现(c#,sql2000)
- Java 将任意数组的任意两个位置的数据进行交换
- VB.NET数据源与ListBox,ComboBox,TextBox的数据绑定
- 让人泪奔的方法:两个变量在不使用其他变量的情况下进行数据交换
- asp.net中XML文件作为中间件进行数据交换功能的实现(c#,sql2000)
- asp.net中XML文件作为中间件进行数据交换功能的实现(c#,sql2000)
- 让人泪奔的方法:两个变量在不使用其他变量的情况下进行数据交换
- JavaScript控制两个列表框listbox左右交换数据的方法
- 两个线程进行数据交换的Exchanger
- [原创]两个listbox之间操作数据交换的问题!
- 两个ListBox数据交换
- [VB.NET]求问高手 进程间大数据的交换 最好方法!
- Asp.net中XML文件作为中间件进行数据交换功能的实现(c#,sql2000)
- 将数组A中的内容与数组B中的内容进行交换(两个数组一样大)
- [VB.NET]long高字节和低字节数据的读取
- [VB.NET]关于数据接口咨询
- 将两个值进行交换的方法
- 用VS2017进行移动开发(C#、VB.NET)——OfflineCameraButton控件
- [VB.NET]用ADO读EXCEL第256列有数据时失败,如何解决?