VB 如何将ListBox1 中选中的项目移动到 ListBox2中?

ListBox1 可以选中多个 项目,我需要点一个键,就把ListBox1 中选中的项目移动到 ListBox2中
这样的代码怎么写?

List1.SelCount 返回在 ListBox 控件中被选中项的数量
List1.Selected(index) [= boolean] 返回或设置在 ListBox 控件中的一个项的选择状态

用循环遍历所有项目,判断Selected状态。给你个小例子变量定义我就省了:
For i = 0 To List1.ListCount
If List1.Selected(i) Then
List2.AddItem List1.List(i)
End If
End
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-04-24
jschh:

For i = 0 To List1.ListCount '这里是List1.ListCount-1吧!
If List1.Selected(i) Then
List2.AddItem List1.List(i)
End If
End
第2个回答  2009-04-24
楼主没有要求listbox1中的项目移动到listbox2中还保持之前的顺序是不是,如果是的话,我就提供以下代码,但是要加一个按纽,2个列表框
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To List1.SelCount
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
Next i
End Sub

VB 如何将ListBox1 中选中的项目移动到 ListBox2中?
List1.SelCount 返回在 ListBox 控件中被选中项的数量 List1.Selected(index) [= boolean] 返回或设置在 ListBox 控件中的一个项的选择状态 用循环遍历所有项目,判断Selected状态。给你个小例子变量定义我就省了:For i = 0 To List1.ListCount If List1.Selected(i) Then List2.AddItem List1...

如何用VB做到把一个listbox里的所有选项移动到另一个listbox
ListBox2.Items.Clear()For i = 0 To ListBox1.Items.Count - 1 ListBox2.Items.Add(ListBox1.Items(i))Next 这样就将ListBox1的列表项移动到另一个ListBox2中了 这是利用For循环;提取第一个列表框ListBox1中的所有列表项,再全部加载到另一个listbox2 ...

关于vb Listbox控件,怎样编写代码才能把List1中的内容复制到List2中...
可以用循环的方法,通过List控件的listCount,获得LIST1的行数,然后一行行地添加到LIST2中:Private Sub Command1_Click()For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i)Next End Sub

vb中 怎样使列表框1的项目添加到列表框2中
Private Sub Command2_Click()For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i)Next End Sub 全部添加 Private Sub Command1_Click() 只添加选定的 For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then List2.AddItem List1.List(i)Next End Sub Privat...

求指导,VB列表框1的内容按照 成绩 排序 后显示在列表框2
输入成绩的时候,将成绩存在数组里面,点排序时,用任一一种排序法(如选择排序,冒泡排序),对成绩数组进行排序,然后将排序后的数组值添加的列表框二当中就可以。对数字的排序你已经会,也会添加到第二个列表框,关键的问题就是你初始化第一个列表框的时候,将产生的成绩(仅数字)存放起来就OK了。

VB,如何将Checkedlistbox1中的项目添加入Checkedlistbox2?如何将Textbo...
好多时间不弄编程了,软件都删掉了,囧~~~应该在button1.click事件里,看看Checkedlistbox2好像有个add方法吧 Checkedlistbox2.add.text=Checkedlistbox1.checked();...不记得了,软件都删了,随手写的,没测试过,表在意 囧~~~去 点点 看,方法啊,类啊都能点出来的 .

VBA中有2个Listbox,所需功能是通过按键把listbox1里面的所有数据导入...
Private Sub Command1_Click()For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i)Next i End Sub

...如何把listBox1中选择的多项传到listBox2中或点击按钮全部传到listBo...
private void listBox1_SelectedIndexChanged(object sender, EventArgs e) { listBox2.Items.Add(listBox1.SelectedItem); } private void button1_Click(object sender, EventArgs e) { listBox2.Items.Clear(); foreach (object o in listBox1.Items) { listBox2.I...

vb listbox 内容更改
List1.List(i) = Replace(List1.List(i), "xxxxxx", "")Next i End Sub 如果有更复杂或者太多的数据要这样做,推荐先把数据放到数组里操作完 再放回listbox里,否则速度会很慢的。步骤如下:步骤1:把list1里的东西移到一个临时数组里ls()步骤2:用replace把ls()字串里的xxxxx替换为空...

VB:关于checkedlistbox1项目添加到checkedlistbox2以及将textbox中文 ...
Me.CheckedListBox1.Items.Add(Me.TextBox1.Text)End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '这里在单击>按钮时将checkedlistbox1中选中项添加入checkedlistbox2 For i As Integer = 0 To Me.CheckedList...

相似回答