VB神童教程第二章第九節(jié)——綜合示例三

前面我們學(xué)了列表框控件（ListBox）與組合框控件（ComboBox），本節(jié)將就它們制作一個(gè)簡單的應(yīng)用程序。
     一、程序界面：
     二、程序目的：
     兩個(gè)列表框，左列表框（LstLeft）羅列了一些歌手名字，右列表框（LstRight）初始狀態(tài)為空；點(diǎn)擊向右按鈕（CmdRight），可以將左列表框中的指定選項(xiàng)移動(dòng)到右邊列表框；點(diǎn)擊全部向右按鈕（CmdAllRight），可以將左列表框中所有的內(nèi)容搬到右列表框中；點(diǎn)擊向左按鈕（CmdLeft），可以將右列表框中選定的表項(xiàng)移動(dòng)到左列表框中；點(diǎn)擊全部向左按鈕（CmdAllLeft），可以將右列表框中的所有內(nèi)容移動(dòng)到左列表框中。
     三、屬性設(shè)置：
     見圖一，注意，列表框的 Style 都為 0 即標(biāo)準(zhǔn)類型。
     四、程序代碼：
     1、窗體的載入事件（Form_Load）
     Private Sub Form_Load()
     LstLeft.AddItem "劉德華"
     LstLeft.AddItem "張學(xué)友"
     LstLeft.AddItem "郭富城"
     LstLeft.AddItem "黎　明"
     LstLeft.AddItem "譚詠麟"
     LstLeft.AddItem "梅艷芳"
     LstLeft.AddItem "張曼玉"
     End Sub
     2、向右按鈕的點(diǎn)擊事件（CmdRight_Click）
     Private Sub CmdRight_Click()
     LstRight.AddItem LstLeft.List(LstLeft.ListIndex)
     LstLeft.RemoveItem LstLeft.ListIndex
     End Sub