【listbox控件】...左右两边各放置一个列表框ListBox的控件List1和...

答案:2 悬赏:0 手机版

解决时间 2021-02-08 14:41

提问者网友：练爱
2021-02-08 10:38

最佳答案

五星知识达人网友：空山清雨
2021-02-08 11:54

【答案】 '将 list2 中选中的项目移动到 list1 中Private Sub Command2_Click() moveSelItem List2, List1End Sub'将 list1 中选中的项目移动到 list2 中Private Sub Command3_Click() moveSelItem List1, List2End Sub'将 source 中选中的项目移动到 target 中（支持多选功能）。Private Sub moveSelItem(source As ListBox, target As ListBox) Dim i As Integer i = 0 While i < source.ListCount If source.Selected(i) Then target.AddItem source.List(i) source.RemoveItem (i) Else i = i + 1 End If WendEnd Sub'将 list2 中所有的项目移动到 list1 中Private Sub Command4_Click() moveAllItem List2, List1End Sub'将 list1 中所有的项目移动到 list2 中Private Sub Command5_Click() moveAllItem List1, List2End Sub'将 source 中所有的项目移动到 target 中。Private Sub moveAllItem(source As ListBox, target As ListBox) Dim i As Integer i = 0 For i = 0 To source.ListCount - 1 target.AddItem source.List(i) Next source.ClearEnd Sub

全部回答

1楼网友：神也偏爱
2021-02-08 13:29

哦，回答的不错

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！