VB 神童教程第二章第十节——综合示例四

VB 神童教程第二章第十节——综合示例四(3)
    3、程序代码：

    （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 键运行程序。