关于VB中的列表框的问题
一道VB小程序
有两个列表框list1、 list2 。list1中初始化有15个不同的字母，而list2中是空白的 还有一个按钮command1,选中list1中的任意多个项目 然后点击按钮command1,则在list2中显示list1中被选中的项目。当多次选中list1中的同个项目时候，比如list1中的a被选中了3次 那么在list2中就有3个a.
我想问：怎样编写代码实现当list1中的项目不管被选中多少次，在list2中相同的只出现一次，即在list2中不要出现重复的字母。怎样实现呢？
思路：在command1中，被选中的项目存入数组变量sDate，循环该数组变量，里边嵌套list2的项目做循环，如果有相同的就不再往list2插入
dim b as boolean
for i =0 to ubound(sDate)
for j =1 to list2.ListCount
if sDate(i)= list2.list(j) then b=true
next j
if b=false then
list2.AddItem =sDate(i)
else
b=false
end if
next i
VB code:
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim b As Boolean
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
b = True
For j = 0 To List2.ListCount - 1
If List1.List(i) = List2.List(j) Then
b = False
Exit For
End If
Next j
If b Then List2.AddItem (List1.List(i))
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
用vb做好的软件，想要加入自动隐藏的功能，在那添加啊，还有隐藏的代码那有啊 借用一下 谢了
方法1
Private Sub Form_Load()
Me.Height = 1 * Screen.TwipsPerPixelY
Me ......
VB中callbacke function 如下：
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim slength As Long, WndTitle As String ' title bar text length an ......
保存出的Excel数据文件，想在程序中就转化成数值类型
能够在打开Excel文件后，
能够直接利用数据画图，而不需要再次转化数据类型
程序中的数据是存放在二维数组里的，然后再保存在Excel中
请教大侠们，� ......
