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

2024-07-15 02:01:31

字體：大中小

來源：轉載

供稿：網友

前面我們學了列表框控件（ListBox）與組合框控件（ComboBox），本節將就它們制作一個簡單的應用程序。

一、程序界面：界面如圖一

圖一

二、程序目的：

兩個列表框，左列表框（LstLeft）羅列了一些歌手名字，右列表框（LstRight）初始狀態為空；點擊向右按鈕（CmdRight），可以將左列表框中的指定選項移動到右邊列表框；點擊全部向右按鈕（CmdAllRight），可以將左列表框中所有的內容搬到右列表框中；點擊向左按鈕（CmdLeft），可以將右列表框中選定的表項移動到左列表框中；點擊全部向左按鈕（CmdAllLeft），可以將右列表框中的所有內容移動到左列表框中。

三、屬性設置：

見圖一，注意，列表框的 Style 都為 0 即標準類型。

四、程序代碼：

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_Click）

Private Sub CmdRight_Click()

LstRight.AddItem LstLeft.List(LstLeft.ListIndex)

LstLeft.RemoveItem LstLeft.ListIndex

End Sub

3、全部向右按鈕的點擊事件（CmdAllRight_Click）

Private Sub CmdAllRight_Click()

LstRight.AddItem "劉德華"

LstRight.AddItem "張學友"

LstRight.AddItem "郭富城"

LstRight.AddItem "黎　明"

LstRight.AddItem "譚詠麟"

LstRight.AddItem "梅艷芳"

LstRight.AddItem "張曼玉"

LstLeft.Clear

End Sub

4、向左按鈕的點擊事件（CmdLeft_Click）

Private Sub CmdLeft_Click()

LstLeft.AddItem LstRight.List(LstRight.ListIndex)

LstRight.RemoveItem LstRight.ListIndex

End Sub

5、全部向左按鈕的點擊事件：（CmdAllLeft_Click）

Private Sub CmdAllLeft_Click()

LstLeft.AddItem "劉德華"

LstLeft.AddItem "張學友"

LstLeft.AddItem "郭富城"

LstLeft.AddItem "黎　明"

LstLeft.AddItem "譚詠麟"

LstLeft.AddItem "梅艷芳"

LstLeft.AddItem "張曼玉"

LstRight.Clear

End Sub

五、注意事項

1、窗體載入事件：

就是窗體打開時自動加載的信息，也可以在界面設置時通過左列表框的 List 屬性設定。如圖二：