VB程序设计课件.ppt

例1：有如下介面，在Text1中輸入字元時，單擊添加，則會加到組合框的最後一項；當單擊刪除時，組合框中選定的項的內容會被刪除；單擊修改時，組合框中選擇的內容會賦給文本框；單擊修改確認，文本框中修改好的內容會添加到原來的位置上。 END 首頁 上頁 下頁 目錄 程式如下： Private Sub Form_Load() Combo1.AddItem "張立" Combo1.AddItem "李曉勇" Combo1.AddItem "王小丫" Combo1.AddItem "陳玲玲" Combo1.AddItem "李紅" End Sub Private Sub Command1_Click() Combo1.AddItem Text1.Text Text1.Text = "" End Sub END 首頁 上頁 下頁 目錄 Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndex End Sub Private Sub Command3_Click() Text1.Text = Combo1.Text Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True End Sub END 首頁 上頁 下頁 目錄 Private Sub Command4_Click() Combo1.List(Combo1.ListIndex) = Text1.Text Command4.Enabled = False Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Text1.text= "" End Sub 運行結果如下： END 首頁 上頁 下頁 目錄 例2：有如下介面，實現多項的添加等 單擊添加，會把左邊列表框中選定的幾項添加到右邊的列表框中 單擊清除，會清除右邊列表框中所有的內容 創建介面時，要在List1的List屬性中添加上述幾項內容； 同時把MultiSelect屬性設置為True END 首頁 上頁 下頁 目錄 程式如下： For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i) End If Next End Sub Private Sub Command2_Click() List2.Clear End Sub 添加所選內容 清除所有內容 END 首頁 上頁 下頁 目錄 例3：判斷下列程式的運行結果： Private Sub Form_Click() For I=1 To 6 List1.AddItem I Next I For I=1 To 3 List1.RemoveItem I Next I End Sub A)1,5,6 B)2,4,6 C)4,5,6 D)1,3,5 答案：D 此迴圈為list1添加了6項內容，分別是 List(0)=1,List(1)=2,List(2)=3,List(3)=4, List(4)=5,List(5)=6 當I=1時，移除第一項的內容，即2， 此時List1中後面的內容會自動往前移 動，所以此時list1中的內容是： List(0)=1,List(1)=3,List(2)=4,List1(3)=5 List(4)=6,以此類推 運行結果如下 END 首頁 上頁 下頁 目錄 六、 滾動條 1、用途 滾動條控件（ScrollBar）分為水準滾動條 （HScrollBar）和垂直滾動條（VscrollBar）二 種，通常附在窗體上協助觀察數據或確定位置，也 可用作數據輸入工具，用來提供某一範圍內的數值 供用戶選擇。 END 首頁 上頁 下頁 目錄 2、常用屬性 1）Value：滑塊所處位置所代表的值。 2）Max：最大值：-32,768-32,767 3）Min：最小值：-32,768-32,767 4）SmallChange：最小變動值，單擊箭頭時移動的增量值。 5）LargeChange：最大變動值，單擊空白處時移動的增量值。 END 首頁 上頁 下頁 目錄 3 、事件 1）Change事件：