急!!VB listbox(明中午11點前)

Question

我設計兩個listbox,list1&list2,還有ㄧ個command1,Command1.Caption = \"->\"
現在我已在list1輸入七筆資料
Public Sub Command1_Click() 以及 Private Sub List1_DblClick()都是以下程式
Select Case List1.ListIndex
Case 0
List2.AddItem \"A\"
Case 1
List2.AddItem \"B\"
Case 2
List2.AddItem \"C\"
End Select
End Sub
我的問題:我要如何設計才不會在list2出現重複的A或是B等
希望能設計出假設list1重覆點選了,能出現msgbox警告,並且list2不會有additem的動作

請各位強手指導!
很抱歉這麼趕時間
謝謝你們的包容

請問$和%是代表什麼意思?
老師所交的是 Dim S As Integer這樣的語法
另外,第一種方法產生到List2,會出現
A
(空格)
B
(空格)
的狀況,請問能將空格消除嗎?
第二種方法會在每次點選List1後出現msgbox,但list2會重複出現唷!
無論如何,謝謝你的回答^^

Answer 1

'利用變數陣列來做旗標,看看是否要加進去'先宣告一個全域變數陣列BDim B(6) As BooleanPrivate Sub Command1_Click()        Dim S$        If B(List1.ListIndex) Then           MsgBox "List2已有此項目!!"           Exit Sub        End If        Select Case List1.ListIndex               Case 0: S = "A"               Case 1: S = "B"               Case 2: S = "C"        End Select        List2.AddItem S        B(List1.ListIndex) = TrueEnd Sub'或者可先檢查List2裡面是否有相同的值,沒有時再加進企Private Sub Command1_Click()        Dim I%, S$                Select Case List1.ListIndex               Case 0: S = "A"               Case 1: S = "B"               Case 2: S = "C"        End Select                For I = 0 To List2.ListCount - 1            If List2.List(I) = S Then               MsgBox "List2已有此項目!!"               Exit Sub            End If        Next        List2.AddItem SEnd Sub

2006-05-24 10:30:56 補充：
應該不會吧XD,我跑起來沒問題ㄋㄟ?
頂多在前面加個If List1.ListIndex < 0 Then Exit Sub 來防止尚未選擇List1就執行.

Answer 2

I% = Dim I As Integer
S$ = Dim S As String