song_0814
2009-4-1 10:49 AM
1）、窗体的载入事件（Form_Load）跟上一节一样：
Private Sub Form_Load()
LstLeft.AddItem "刘德华"
LstLeft.AddItem "张学友"
LstLeft.AddItem "郭富城"
LstLeft.AddItem "黎 明"
LstLeft.AddItem "谭咏麟"
LstLeft.AddItem "梅艳芳"
LstLeft.AddItem "张曼玉"
End Sub
（2）、向右按钮的点击事件（CmdRight）：
Private Sub CmdRight_Click()
Dim X As Integer
While LstLeft.SelCount > 0
For X = 0 to LstLeft.LstCount - 1
If LstLeft.Selected(X) = True Then
LstRight.AddItem LstLeft.List(X)
LstLeft.RemoveItem X
Exit For
End If
Next X
Wend
End Sub
（3）、全部向右按钮的点击事件（CmdAllRight）
Private Sub CmdAllRight_Click()
Dim X As Integer
For X = 0 to LstLeft.ListCount - 1
LstRight.AddItem LstLeft.List(X)
Next X
LstLeft.Clear
End Sub
（4）、以此类推，输入向左按钮（CmdLeft）与全部向左按钮（CmdAllLeft）的点击事件，最后按 F5 键运行程序。
For X = 0 to LstLeft.LstCount - 1 是什么东西 谁能帮我解答?
