关于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))
相关问答：
为什么C写的DLL文件C、PB能调用VB不能调用？
VB里为什么有的DLL直接通过引用可以使用？有的需要通过declare申明外部函数？这些DLL有什么差别？
1、为什么PB能通过DECLARE声明而VB不行？
2、如果这个dll中的 ......
用VB中的Timer控件 可以获得时间
但是如果电脑上的时间显示不正确 那岂不是获得的时间也是不正确的
怎么获得正确的时间
连网，从别的地方获得
引用
用VB中的Timer控件 可以获得时间
但是如果电� ......
怎么点击form2上的按钮 可以结束form1上正在进行的循环
form1里面添加一个变量：
Public bEnd As Boolean
循环代码添加：
bEnd = False
Do
...
If ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
Open App.Path & "\tu\hb.bmp" For Binary As #100
用open语句打开文件,我想用if语句判断这个文件是否打开,就是说如果没打开,就打开,请问各位朋友怎么写?
是否打开是指是否已经用画笔打开了么?还� ......
