滾動(dòng)條常常用來(lái)附在某個(gè)窗口上幫助觀察數(shù)據(jù)或確定位置，也可以用來(lái)作為數(shù)據(jù)輸入的工具。在日常操作中，我們常常遇到這樣的情況：在某些程序中，如 Photoshop ，一些具體的數(shù)值我們并不清楚，如調(diào)色板上的自定義色彩，這時(shí)，可以通過(guò)滾動(dòng)條，用嘗試的辦法找到自己需要的具體數(shù)值。

在 Visual Basic 中，滾動(dòng)條分為橫向（HscrollBar）與豎向（VscrollBar）兩種，命名規(guī)則為：HsbX 或 VsbX ，如 HsbShow、VsbShow ，等等。它們?cè)诠ぞ呦渖系膱D標(biāo)如圖一：


圖一

選中滾動(dòng)條按鈕，把鼠標(biāo)指針?lè)诺浇缑嬖O(shè)計(jì)區(qū)，然后拖動(dòng)，畫(huà)出符合自己要求的滾動(dòng)條，或者直接雙擊該按鈕，自動(dòng)在界面設(shè)計(jì)區(qū)生成默認(rèn)大小的滾動(dòng)條，如圖二所示：


圖二

一、滾動(dòng)條控件的屬性：

1、Max（最大值）與 Min（最小值）屬性：

滾動(dòng)塊處于最右邊（橫向滾動(dòng)條）或最下邊（豎向滾動(dòng)條）時(shí)返回的值就是最大值；滾動(dòng)塊處于最左邊或最上邊，返回的值最小，如圖三所示：


圖三

Max 與 Min 屬性是創(chuàng)建滾動(dòng)條控件必須指定的屬性，默認(rèn)狀態(tài)下， Max 值為 32767 ，Min 值為 0 。本屬性既可以在界面設(shè)計(jì)過(guò)程中予以指定，也可以在程序運(yùn)行中予以改變，如：

HsbShow.Min = 3

HsbShow.Max = 30

2、Value（數(shù)值）屬性：

Value 屬性返回或設(shè)置滾動(dòng)滑塊在當(dāng)前滾動(dòng)條中的位置，如圖三所示。

Value 值可以在設(shè)計(jì)時(shí)指定，也可以在程序運(yùn)行中改變，如：

HsbShow.Value = 24

3、SmallChange（小改變）屬性：

當(dāng)用戶單擊滾動(dòng)條左右邊上的箭頭時(shí)，滾動(dòng)條控件 Value 值的改變量就是 SmallChange，如圖四：


圖四

4、LargeChange（大改變）屬性：

單擊滾動(dòng)條中滾動(dòng)框前面或后面的部位時(shí)，引發(fā) Value 值按 LargeChange 設(shè)定的數(shù)值進(jìn)行改變，如圖五：


圖五

二、滾動(dòng)條控件的事件：

與滾動(dòng)條控件相關(guān)的事件主要是 Scroll 與 Change ，當(dāng)在滾動(dòng)條內(nèi)拖動(dòng)滾動(dòng)框時(shí)會(huì)觸發(fā) Scroll 事件（但要注意，單擊滾動(dòng)箭頭或滾動(dòng)條時(shí)不發(fā)生 Scroll 事件），滾動(dòng)框發(fā)生位置改變后則會(huì)觸發(fā) Change 事件。Scroll 事件用來(lái)跟蹤滾動(dòng)條中的動(dòng)態(tài)變化，Change 事件則用來(lái)得到滾動(dòng)條最后的值。

三、示例：

有如圖六這樣一個(gè)應(yīng)用程序，當(dāng)滾動(dòng)條（HsbShow）的滾動(dòng)塊發(fā)生位移時(shí)，下面的顯示標(biāo)簽（LblShow）自動(dòng)顯示滾動(dòng)條當(dāng)前的值；在拖動(dòng)滾動(dòng)框的過(guò)程中，顯示標(biāo)簽（LblShow）則會(huì)顯示“拖動(dòng)中……”字樣。


圖六

1、創(chuàng)建界面。

其中，HsbShow 的 Min 為 0 ，Max 為 100 ，SmallChange 為 5 ，LargeChange 為 10 。

2、雙擊滾動(dòng)條（HsbShow），進(jìn)入代碼編寫窗口：

Private Sub HsbShow_Change()

LblShow.Caption = "滾動(dòng)條當(dāng)前值為：" & HsbShow.Value

End Sub

3、滾動(dòng)條的拖動(dòng)事件：

Private Sub HsbShow_Scroll()

LblShow.Caption = "拖動(dòng)中……"

End Sub