VB 中如何点一下按钮,让listbox中选中的某一列复制到另外的listbox中,不是vb.net

Posted 2023-03-11

类似这样，选中左边，然后点按钮，到右边

你说的一列是指一行（或者说一项）吗？

Private Sub Command1_Click()
If List1.ListIndex > -1 Then List2.AddItem List1.Text
End Sub

以上是把List1选中的一项复制到List2中追问

为什么我试了下，list2中不显示呢

追答

首先，窗体中List1、List2、Command1这三个控件缺一不可，而且List1必须有选项，List2可以空白。

其次，要先在List1用鼠标左键点中一项（蓝底白字），再点Command1。
如果这样List2还没有显示，我删帐号……

参考技术A listbox中可以选中一列？追问

为什么不能，就是用鼠标选中啊，

就是把1，复制到右边

追答

你怎么列与行都分不清？

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List2.AddItem List1.List(i)
Exit For
End If
Next i
End Sub

追问

为什么list2中不显示，我就纳闷了