求助，VB2012 中实现 ListBox 通过“插入”、“删除”实现左右窗口切换 - 编程论坛

#2

圣能自动化2014-07-24 12:48

大神门都在吃午饭？？

#3

apull2014-07-24 14:22

回复楼主 hustwfl

程序代码：

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim item As Object
        Dim iItem As Integer

        iItem = lstLeft.SelectedIndex
        If iItem < 0 Then Return
        item = lstLeft.Items(iItem)

        lstRight.Items.Add(item)
        lstLeft.Items.RemoveAt(iItem)

    End Sub

remove代码类似

#4

jun201312042014-07-25 09:41

Private Sub add_Click()        '此命令实现列表框1里被选中的表项移动到列表框2里
i = 0
Do While i < List1.ListCount        ' 对列表框1依次进行判断
If List1.Selected(i) = True Then   '如果此表项被选中
   List2.AddItem List1.List(i)      '那么列表框2在相应位置添加此表项
   List1.RemoveItem i               '列表框1中删除此表项
Else
   i = i + 1
End If
Loop
End Sub
(remove代码类似)

[ 本帖最后由 jun20131204 于 2014-7-25 09:43 编辑 ]