【正文】 767]，滾動條能表示的最大值 Min 整型數據 [－ 32768～ 32767]，滾動條能表示的最小值 LargeChange 整型數據 [1～ 32767]，單擊滾動條區(qū)域時 Value值的增量或減量 SmallChange 整型數據 [1～ 32767]，單擊滾動箭頭時 Value屬性值的變化幅度 滾動條 主要事件 ⑴ Scroll事件：當在滾動條內拖動滾動塊時觸發(fā)的事件； ⑵ Change事件：當滾動塊被移動到新位置后或在程序執(zhí)行過程中 Value屬 性值發(fā)生變化觸發(fā)的事件； 例 [65]設計一個用于設置速度的滾動條 。 解題思路 ：由于拖動滾動條或在滾動條區(qū)域內點擊鼠標，都會改變滾動條的value屬性值，根據滾動條返回的 value值，顯示在文本框和標簽里。 Private Sub HScroll1_Change() = End Sub Private Sub HScroll1_Scroll() = moving to amp。 End Sub 滾動條 例 [65_1]用滾動條擴大和縮小窗體。在窗體上畫一個垂直滾動條和一個水平滾動條；程序運行后，若滾動滾動條上的滾動滑塊，則可擴大和縮小窗體 。 解題思路 ：首先在窗體的 Load事件對窗體和滾動條進行初始化，利用滾動條的scroll事件，橫滾動條放大窗體的寬度 (width)，豎滾動條放大窗體的高度(height)。 Private Sub HScroll1_Scroll() = * / End Sub Private Sub VScroll1_Scroll() = * / End Sub 時鐘 VB系統(tǒng)提供了一個時鐘控件 (Timer)，用戶可以通過該控件使用系統(tǒng)時鐘來計時，也允許用戶自己定制時間，每一個時間間隔內出發(fā)一個計時器事件。 主要屬性 Interval： 用于決定時鐘觸發(fā)事件的事件間隔；為整型值， 取值范圍： 0－ 65535,單位：毫秒。 Enabled：設置時鐘控件是否有效。 主要事件 Timer：每經過一個 Interval屬性設定的時間間隔，就觸發(fā)一次 Timer 事件。 時鐘 例 [66] 設計一個數字時鐘。 解題思路 ：根據 Timer控件設置的的 Interval屬性值為 1000，每隔一次Interval，就利用 vb的 time函數獲取一次系統(tǒng)時間。 Private Sub Timer1_Timer() = times new roman = 48 = Time$ 39。time函數獲取當前系統(tǒng)時間 End Sub 時鐘 例 [66_1]利用 Timer控件，移動窗體上的控件。 解題思路 ：在 Form的 Load事件中，設置 Timer控件的 Interval和 Enabled屬性，每隔一次 Interval，標簽的 Top就減一次 100個單位，向上移動一次。 Private Sub Command1_Click() = True End Sub Private Sub Form_Load() = False = 500 End Sub Private Sub Timer1_Timer() If 0 Then = 100 End Sub 高級控件 在工程中使用 Active控件 ： 將 Active控件添加到工具箱中 ： 執(zhí)行“工程”菜單的“部件” 1 在列表中選擇所需的控件 2 單擊“確定 ’按鈕 3 高級控件 SSTab控件 SSTtab控件是為用戶提供具有多個選項卡的對話框的控件。 添加到工具箱： 菜單 “ 工程 ” － ”部件 ” － “Microsoft tabbed Dialog Control ” 屬性名 屬性值 說明 Style ssStyleTabbedDialog 活動選項卡的字體為粗體顯示 ssStylePropectyPage 每個選項卡的寬度調整到其標題文本的長度，選項卡中顯示的字體不為粗體 Tabs 整型數據 設定選項卡的總數 TabsPerRow 整型數據 設定每一行選項卡的數目 Rows 整型數據 設定選項卡的總行數 Tab 整型數據 設定活動選項卡 (為 0時表示第一個選項卡 ) Caption 字符型數據 每一個選項卡的標題 高級控件 Progress Bar控件 進度條常用來指示某一事務處理的進程。 添加到工具箱：菜單 “ 工程 ” ”部件 ” “Microsoft Windows Common Control ” 屬性名 屬性值 說明 Max 數值型數據 指定進度條的進程最大位置的值 Min 整型數據 指定進度條的進程最小位置的值 Value 整型數據 指定進度條的進程當前位置的值 例 [612]設計一個進度條，用來指示一個處理過程。 Dim i As Integer = 100 For i = 1 To 10000 = i / 100 Next 高級控件 Slider控件 Slider控件是一個包含有滑塊和刻度標記的控件。 添加到工具箱： 菜單 “ 工程 ” ”部件 ” “Microsoft Windows Common Control ” Slider和滾動條相似，也有 Min、 Max、 SmallChang、 LargeChange和 Value屬性 屬性名 屬性值 說明 TickStyle 整型數據 設定控件的顯示樣式： 0， 1， 2 TickFreguency 整型數據 設定控件上刻度的密度 TextPosition 整型數據 設定鼠標操作時提示信息顯示的位置 當滑塊被拖動時， Slider控件將觸發(fā) Scroll事件，而當 Value屬性值被改變時，將觸發(fā) Change事件。 高級控件 UpDown控件 UpDown控件是一個帶有上下箭頭的控件，經常與文本框一起使用。 程序運行中，相關聯控件的屬性與 UpDown控件的 Value屬性保持同步。 UDpown控件的 Increment屬性用來設置單擊向上（下）箭頭時，文本框中 的值遞增或減少的幅度。 常用事件： UpClick、 DownClick； 添加到工具箱： 菜單 “ 工程 ” ”部件 ” “Microsoft Windows Common Control ” 綜合應用程序舉例 例 [621]設計一個 “ 通訊錄 ” 。當用戶在下拉列表框中選中某一個人后，在“ 電話號碼 ” 文本框中顯示它的電話號碼，當用戶選擇或 “ 取消 ” 單位 “ 和 ”住址 “ 復選框后，將打開或關閉 ” 工作單位 “ 或 ” 家庭住址 “ 文本框 。 解題思路 ：在 form的 Load事件中進行變量的初始化，以及控件的基本屬性。在組合框的 Click事件中編寫個控件的顯示信息的程序。 綜合應用程序舉例 例 [622]設計一個加密程序。該程序對第一個文本框中輸入的英文字符串（稱為明文）加密。加密結果為 ” 密文 “ ，顯示在第二個文本框中 。 解題思路 ：選中一個單選鈕，單擊 ” 加密 “ 后，根據選中的單選鈕后面的數字 n，把明文的每個字母改為它后面的第 n個字母（如 ” z”后面的字母為 “ a”， “ Z”后面的字母為 ” A“）