# 高手帮我忙，这是一个LISTBOX的程式

Posted by 小ＥＺ on October 15, 1998 at 02:48:50:

删除钮
Private Sub Command1_Click()
For i = List3.ListCount - 1 To 0 Step -1
If List3.Selected(i) Then
List3.RemoveItem i
End If
Next i
End Sub
-----------------------------------------------------------------
新增钮
Private Sub Command2_Click()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
List3.AddItem List1.List(i) & "*" & List2
End If
Next i
End Sub
-------------------------------------------------------------
Private Sub Form_Load()
List1.AddItem "土司"
List1.AddItem "牛肉"
List1.AddItem "猪肉"
List1.AddItem "火腿"
List1.AddItem "青瓜"
List1.AddItem "青丝"
List2.AddItem "1"
List2.AddItem "2"
List2.AddItem "3"
List2.AddItem "4"
List2.AddItem "5"
List2.AddItem "6"
End Sub
......................................
以上是我的程式码内容，我做了三个LISTBOX，而我在LIST1和LIST3BOX内，我将MultSelect
设成１的简易多重选取，因此我在点选许多List1Box和一个的List2box，就产生在List3box内，
可是我在List1box点选的顺序跟在list3box的不一样，不知程式内还少了些什么，可以改善，谢
谢高手出面解围．．．．

Follow Ups:

- Sorted 设为 True 小吴 07:27:17 10/15/98 (0)