【文章內容簡介】 (IBM) 將刪除列表框中的“ IBM‖項。 （ 4） 該方法用來刪除列表框中指定的項目，其格式為： 列表框名 .(索引值 ) “索引值”為地址的項目，該方法每次只能刪除一個項目。 在窗體上建立一個列表框 ListBox1，編寫下面的過程： Private Sub ListBox1_SelectedIndexChanged( _ ByVal sender As Object, _ ByVal e As ) _ Handles () End Sub 程序運行后，如果在列表框中選擇某個項目，則可把該項目刪除。 【 例 】 交換兩個列表框中的項目。其中一個列表框中的項目按字母升序排列，另一個列表框中的項目按加入的先后順序排列。當雙擊某個項目時，該項目從本列表框中消失，并出現在另一個列表框中。 Private Sub Form1_Load(ByVal sender As , _ ByVal e As ) Handles Dim a As Integer (IBM) (Compaq) (HP) (FUJI) (Digital) (長城 ) (聯(lián)想 ) (Canon) (四通 ) (Acer) (Nec) (NCR) End Sub Private Sub ListBox1_DoubleClick(ByVal sender As Object, _ ByVal e As ) Handles () () End Sub Private Sub ListBox2_DoubleClick(ByVal sender As Object, _ ByVal e As ) Handles () () End Sub 復選列表框 ? 復選列表框是對標準列表框的擴展，其功能和用法基本相同，主要有以下兩點區(qū)別： ? （ 1）在表項的左側顯示復選框標記。 ? （ 2）在復選列表框中不能使用多選方式，即只能選擇一項或沒有任何選擇。只有加了選擇標記的才是被選中的項 組合框 ? 組合框（ Combo Box）是組合列表框和文本框的特性而成的控件。也就是說，組合框是一種獨立的控件，但它兼有列表框和文本框的功能。它可以像列表框一樣，讓用戶通過鼠標選擇所需要的項目，也可以像文本框一樣，用鍵入的方式選擇項目。組合框和列表框功能類似，在某些情況下可以互相代替，但在具體應用中有一定的差別。一般來說，組合框適用于在一組選項中反復選擇的情況，而列表框適用于將輸入限制為列表中內容的情況；組合框包含文本框字段，可以鍵入列表中沒有的選項。此外，組合框可節(jié)約屏幕空間。 組合框屬性 ? （ 1） DropDownStyle ? （ 2） Text 組合框事件 ? 前面在介紹屬性時，已談到部分組合框事件。實際上，組合框所響應的事件依賴于其 DropDownStyle屬性。例如，只有簡單組合框（ DropDownStyle屬性值為Simple）才能接收 DblClick事件，其他兩種組合框可以接收 CLick事件和 Dropdown事件。對于下拉式組合框（屬性 DropDownStyle的值為 DropDown）和簡單組合框，可以在編輯區(qū)輸入文本，當輸入文本或從列表中選擇項目時可以接收 TextChanged事件。一般情況下，用戶選擇項目之后，只需要讀取組合框的 Text屬性。 ? 當用戶單擊組合框中向下的箭頭時，將觸發(fā)Dropdown事件，該事件實際上對應于向下箭頭的單擊（ Click）事件。 組合框方法 ? 前面介紹的 、 、 于組合框，其用法與在列表框中相同。 【 例 】 從屏幕上選擇微機的配置，并顯示出來。 微機的配置有很多種，這里只給出機型、 CPU主頻、內存和硬盤容量。用戶可以選擇自己所需要的配置，然后輸出這些配置。 表 對象屬性設置 ━━━━━━━━━━━━━━━━━━━━━ 對象 屬性 設置值 ───────────────────── 窗體 Text 微機主要配置 標簽 1 Text 機型 標簽 2 Text CPU主頻 標簽 3 Text 內存 標簽 4 Text 硬盤 組合框 1 DropDownStyle Simple 組合框 2 DropDownStyle DropDownList 組合框 3 DropDownStyle DropDownList 組合框 4 DropDownStyle DropDown 按鈕 1 Text 確定 按鈕 2 Text 取消 ━━━━━━━━━━━━━━━━━━━━━━ 編寫如下的事件過程： Private Sub Form1_Load(ByVal sender _ , ByVal e As _ ) Handles (IBM) (Compaq) (方正 ) (聯(lián)想 ) (HP) (Acer) (DEC) (奔騰 4 ) (奔騰 4 ) (奔騰 4 ) (奔騰 4 ) (奔騰 4 ) (奔騰 4 ) (奔騰 4 ) (128MB SDRAM) (256MB DDR) (256MB DDR 333) (512MB SDRAM) (20GB) (32GB) (40GB) (60GB) (80GB) End Sub Private Sub Button1_Click(ByVal sender As _ , ByVal e As ) _ Handles Dim S, cl As String cl = Chr(13) amp。 Chr(10) S = 所選擇的配置為： S = S amp。 cl amp。 機型： amp。 S = S amp。 cl amp。 CPU: amp。 S = S amp。 cl amp。 內存： amp。 S = S amp。 cl amp。 硬盤： amp。 MsgBox(S, , 微機配置 ) End Sub Private Sub Button2_Click(ByVal sender As , _ ByVal e As ) Handles End End Sub 運行結果 滾動條 ? 滾動條通常用來附在窗口上幫助觀察數據或確定位置，也可用來作為數據輸入的工具，被廣泛地用于 Windows應用程序中。 ? 滾動條分為兩種，即水平滾動條和垂直滾動條。在工具箱中，水平滾動條和垂直滾動條的圖標如圖 ，其默認名稱分別為 HScrollBarX和 VScrollBarX（ X為 3...）。 滾動條屬性 ? （ 1） Value ? （ 2） Maximum ? （ 3） Minimum ? （ 4） LargeChange ? （ 5） SmallChange 滾動條事件 ? 與滾動條有關的事件主要是 Scroll和ValueChanged。當在滾動條內拖動滾動框時會觸發(fā) Scroll事件（單擊滾動箭頭或滾動條時不發(fā)生 Scroll事件），而改變滾動框的位置后會觸發(fā) ValueChange事件。 Scroll事件用于跟蹤滾動條中的動態(tài)變化， ValueChange事件則用來得到滾動條的最后的值。 【 例 】 按下列步驟操作，試驗滾動條的功能。 （ 1）在窗體上建立 6個控件，其中 4個標簽、 1個文本框、 1個滾動條，如圖 。 （ 2）通過屬性窗口把 4個標簽的 Text屬性分別設置為“速度”、“慢”、“快”和空白，把文本框的 Text屬性設置為空白，然后把第四個標簽的 BorderStyle屬性設置為 Fixed3D。 （ 3）把水平滾動條的屬性設置為： LargeChange 10 Maximum 200 Minimum 0 SmallChange 2 （ 4）雙擊滾動條，彈出代碼窗口，編寫 ValueChanged事件過程： Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As ) _ Handles = Str() End Sub （ 5）編寫處理 Scroll事件的過程： Private Sub HScrollBar1_Scroll(ByVal sender As , _ ByVal e As ) _ Handles = 移動到 : amp。 Str() End Sub 計時器 ? Visual ，而且提供了定制時間間隔（ Interval)的功能，可以由用戶自行設置每個計時器事件的時間間隔。 ? 所謂時間間隔，指的是各計時器事件之間的時間，它以毫秒（千分之一秒）為單位。在大多數個人計算機中，計時器每秒鐘最多可產生 18個事件，即兩個事件之間的間隔為 56/1000秒。也就是說，時間間隔的準確度不會超過 1/18秒。 ? 計時器可以使用 Name屬性和 Enabled屬性。但其重要的屬性是 Interval，該屬性用來設置計時器事件之間的間隔，以毫秒為單位，其值為 Integer類型。通常 60000毫秒為 1分鐘，如果把 Interval屬性設置為 1000，則表明每秒鐘發(fā)生一個計時器事件。如果希望每秒產生 n個事件，則屬性 Interval的值為 1000/n。 ? 計時器支持 Tick事件。對于一個含有計時器控件的窗體，每經過一段由屬性 Interval指定的時間間隔，就產生一個 Tick事件。 設計一個電子表 表 控件屬性設置 ━━━━━━━━━━━━━━━━━━━━━━ 控件 屬性 設置值 ────────────────────── 計時器 Name Timer1 Interval 1000 標簽 Name Label1 BorderStyle Fixed3D 18 AutoSize True ━━━━━━━━━━━━━━━━━━━━━━ Private Sub Timer1_Tick(ByVal sender As , _ ByVal e As ) Handles = TimeOfDay End Sub 【 例 】 用計時器實現控件的移動。 在窗體上畫一個標簽，把它的 AutoSize屬性設置為 True， 18， BorderS