vb listbox题创建一个应用程序，界面如图所示，要求：设计窗体含两个列表框List1和List2，其中列表框1代表

很简单,因为你每单击一次左边的就执行此过程,而左列表框是每次都更新的.

这里是表示什么也没有选中,如果选中的话selectedindex就是选中的index,就是序号数字1,2,3...等,你可以在selectindexchanging事件中测试一下,response.write(listBox.selectedindex)下,看看就知道了

'一般是这样：
for i = list.count-1 to 0 step -1
if list.list(i) = XXX then
list.removeitem(i)
end if
next

lb_1.DirList：以满足指定条件的文件名填充列表框的项目列表
lb_1.TotalItems()：返回列表框中列表项总数
lb_1.Text:返回列表框中指定列表项的文本

listbox1.items(listbox1.selectedindex) ：取listbox1所选中的选项.listbox1.items.add(listbox1.selectedindex)：将listbox1所选中的选项,再次增加到listbox1中.

'将 list2 中选中的项目移动到 list1 中
Private Sub Command2_Click()
moveSelItem List2, List1
End Sub

'将 list1 中选中的项目移动到 list2 中
Private Sub Command3_Click()
moveSelItem List1, List2
End 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
Wend
End Sub

'将 list2 中所有的项目移动到 list1 中
Private Sub Command4_Click()
moveAllItem List2, List1
End Sub

'将 list1 中所有的项目移动到 list2 中
Private Sub Command5_Click()
moveAllItem List1, List2
End 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.Clear
End Su