【正文】 ? 滾動(dòng)條的結(jié)構(gòu)為：兩端各有一個(gè)滾動(dòng)箭頭，兩個(gè)滾動(dòng)箭頭中間是滾動(dòng)條部分，在滾動(dòng)條上有一個(gè)能夠移動(dòng)的小方塊，叫做滾動(dòng)塊。 其值介于 32 768到 32 767之間。 LargeChange 設(shè)置用鼠標(biāo)單擊滾動(dòng)條中間的軸時(shí)， 每次增減的數(shù)值 系統(tǒng)默認(rèn)的數(shù)值為 1，用戶(hù)可以自己修改。一般可用該事件來(lái)監(jiān)測(cè)滾動(dòng)框的動(dòng)態(tài)變化。 滾動(dòng)條控件 三、應(yīng)用舉例 通過(guò) 3個(gè)滾動(dòng)條來(lái)調(diào)整一個(gè)文本框的背景顏色。 = 綠色值： amp。 ChangeColor End Sub Private Sub Hsbred_Change() ‘ 控制紅色的滾動(dòng)條變化時(shí)產(chǎn)生的事件 = 紅色值： amp。所謂時(shí)間間隔，指的是各個(gè)計(jì)時(shí)器事件之間的時(shí)間，一般以毫秒 (ms)為基本單位。 True：表示定時(shí)器開(kāi)始工作， False：表示定時(shí)器停止工作。 計(jì)時(shí)器控件 二、常用事件和方法 計(jì)時(shí)器的主要事件就是 Timer事件。在窗體中創(chuàng)建 1個(gè)標(biāo)簽、 1個(gè)框架和 2個(gè)選項(xiàng)按鈕控件，窗體設(shè)計(jì)界面如圖。 ActiveX控件 ActiveX控件是 VisualBasic工具箱的擴(kuò)展，使用 ActiveX控件的方法與使用其他標(biāo)準(zhǔn)控件完全一樣。程序員可以使用 Visual Basic提供的 ActiveX控件，也可以使用從第三方開(kāi)發(fā)商獲得的附加控件。這些對(duì)話(huà)框作為 Windows的資源，在 VisualBasic中已被做成“通用對(duì)話(huà)框”控件。 ActiveX控件 添加“通用對(duì)話(huà)框”控件 用鼠標(biāo)右鍵單擊控件工具箱，在彈出菜單中選擇“部件”，打開(kāi)部件對(duì)話(huà)框，在“部件”對(duì)話(huà)框中，選定對(duì)話(huà)框控件對(duì)應(yīng)的文件，按“確定”按鈕即可將“通用對(duì)話(huà)框”控件加到標(biāo)準(zhǔn)工具箱中。 使用“打開(kāi)”對(duì)話(huà)框的步驟如下： ① 在窗體中增加“通用對(duì)話(huà)框”控件。 文件名稱(chēng) (FileName) 用于設(shè)置對(duì)話(huà)框中“文件名稱(chēng)”的默認(rèn)值，并返回用戶(hù)所選中的文件名。如： All Files(*.*)|*.*|Text Files(*.txt)|*.txt 標(biāo)志 (Flags) 用于設(shè)置對(duì)話(huà)框的一些選項(xiàng)，可以是多個(gè)值的組合。該屬性的范圍是 1~32K。 167。使用“顏色”對(duì)話(huà)框的步驟如下： ① 在窗體中增加“通用對(duì)話(huà)框”控件。 標(biāo)志 (Flags) 設(shè)置對(duì)話(huà)框的一些顏色。 CdlCCShowHelpButton amp。 CdlCCRGBInit amp。 167。 FontItalic 是否選定了斜體。如要使用這個(gè)屬性，必須先將 Flags屬性設(shè)置為 cdlCFEffects或256。 ActiveX控件 使用“字體”對(duì)話(huà)框的步驟如下： ① 在窗體中增加“通用對(duì)話(huà)框”控件。默認(rèn)值為 8。 ActiveX控件 注意： 必須將 Flags屬性設(shè)為下列常數(shù)之一與其他選項(xiàng)之和： cdlCFScreenFonts或 1 (屏幕字體 ) cdlCFPrinterFonts或 2(打印機(jī)字體 ) cdlCFBoth或 3(=1+2 兩種字體皆有 ) 例如：設(shè)為 =259(=256+3 是 cdlCFEffects常數(shù)與 3之和 ,在對(duì)話(huà)框中將出現(xiàn)顏色、效果等選項(xiàng) )?？梢灾付ū淮蛴№?yè)的范圍，打印質(zhì)量，打印的份數(shù)等等。如果 PrinterDefault屬性為 True，可以使用 Printer對(duì)象按選定的格式打印數(shù)據(jù)。 FromPage 開(kāi)始打印頁(yè)。 ActiveX控件 (6) 使用“幫助” CommonDialog控件的 ShowHelp方法可運(yùn)行 Windows的幫助引擎 ()，并顯示由 HelpFile屬性設(shè)定的一個(gè)幫助文件。然后，選定框架 Frame1，在其中增加一個(gè)文本框 Text1。 控件的默認(rèn)屬性 控 件 屬 性 CheckBox(復(fù)選框 ) Value ComboBox(組合框 ) Text CommandButton(命令按鈕 ) Caption CommonDialog(通用對(duì)話(huà)框 ) FileName Data(數(shù)據(jù) ) Caption DBCombo(數(shù)據(jù)綁定組合框 ) Text DBGrid(數(shù)據(jù)綁定網(wǎng)格 ) Text DBList(數(shù)據(jù)綁定列表框 ) Text DirListBox(目錄列表框 ) Path DriveListBox(驅(qū)動(dòng)器列表框 ) Drive FileListBox(文件列表框 ) FileName Frame(框架 ) Caption HscrollBar(水平滾動(dòng)條 ) Value Image(圖像 ) Picture Label(標(biāo)簽 ) Caption Line(線形 ) Visible ListBox(列表框 ) Text OptionButton(選項(xiàng)按鈕 ) Value PictureBox(圖片框 ) Picture Shape(形狀 ) Shape TextBox(文本框 ) Text Timer(定時(shí)器 ) Enabled VscrollBar(垂直滾動(dòng)條 ) Value 本章小結(jié) 控件分類(lèi) VisualBasic中控件分 3類(lèi)： (1)內(nèi)部控件 (2)ActiveX控件 (3)可插入的對(duì)象 焦點(diǎn) 焦點(diǎn)的英文是 Focus，它是接收用戶(hù)鼠標(biāo)或鍵盤(pán)輸入的能力。 常用控件 。在 Windows系統(tǒng)中，任一時(shí)刻可運(yùn)行幾個(gè)應(yīng)用程序，但只有具有焦點(diǎn)的應(yīng)用程序才有活動(dòng)標(biāo)題欄，才能接受用戶(hù)的輸入。 ActiveX控件 然后編寫(xiě)命令按鈕數(shù)組 Command1()的 Click事件的代碼： Private Sub Command1_Click(Index As Integer) Dim n As Integer n = Index Select Case n Case 0 = 所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt = 1 = = 從打開(kāi)對(duì)話(huà)框返回 Case 1 = = 從另存為對(duì)話(huà)框返回 Case 2 = 從顏色對(duì)話(huà)框返回 = = = 從顏色對(duì)話(huà)框返回 167。 167。 hDC 所選打印機(jī)的設(shè)備描述體。 ② 在“屬性頁(yè)”對(duì)話(huà)框中設(shè)置屬性，其中各屬性描述如表所示。 167。 ③ 使用 ComonDialog控件的 ShowFont方法來(lái)顯示“字體”對(duì)話(huà)框： 控件名 .ShowFont 167。 Flags 設(shè)置對(duì)話(huà)框的一些選項(xiàng)。 屬 性 描 述 FontName 用于設(shè)置字體名稱(chēng)中的初始字體，并可返回用戶(hù)所選擇的字體名稱(chēng)。 FontSize 選定字體的大小。如要使用這個(gè)屬性，必須先將 Flags屬性設(shè)置為 cdlCFEffects或256。如要使用這個(gè)屬性，必須先將 Flags屬性設(shè)置為 cdlCFEffects或 256。 167。 CdlCCPreventFullOpen amp。 ActiveX控件 標(biāo)志 Flags的值 常數(shù) 值 描述 CdlCCFullOpen amp。 ③ 使用 CommonDialog控件的 ShowColor方法來(lái)顯示“顏色”對(duì)話(huà)框。最后使用 CommonDialog控件的 ShowSave方法來(lái)顯示“另存為”對(duì)話(huà)框： 控件名 .ShowSave 167。 過(guò)濾器索引 (FilterIndex) 當(dāng)為一個(gè)對(duì)話(huà)框要指定一個(gè)以上的過(guò)濾器時(shí)，需使用 FilterIndex 屬性確定哪一個(gè)作為缺省過(guò)濾器顯示。當(dāng)保存一個(gè)沒(méi)有擴(kuò)展名的文件時(shí)，自動(dòng)給該文件指定由 DefaultExt 屬性指定的擴(kuò)展名。如果此屬性沒(méi)有指定，則使用 當(dāng)前目錄。 ③ 使用 CommonDialog控件的 ShowOpen方法來(lái)顯示“打開(kāi)”對(duì)話(huà)框：控件名 .ShowOpen 167。 ActiveX控件 (1)使用“打開(kāi)”對(duì)話(huà)框 167。另外還可以通過(guò)調(diào)用 Windows幫助引擎來(lái)顯示應(yīng)用程序的幫助。 167。 167。 控件名稱(chēng) 屬性名 屬性值 Form1 Tag Hh:mm:ss AM/PM Frame1 Caption 改變時(shí)間格式 Label1 Caption 00:00:00 BackColor 白色 BordeStyle 1Fixed Single Option1 Caption 12小時(shí) Option2 Caption 24小時(shí) Timer1 Interval 1000 167。 167。 屬性的最大值為 65535毫秒， 1000毫秒等于 1秒。 167。 滾動(dòng)條控件 167。 End Sub Private Sub HsbBlue_Change() ‘ 控制藍(lán)色的滾動(dòng)條變化時(shí)產(chǎn)生的事件 = 藍(lán)色值： amp。 控件名稱(chēng) 屬性名 屬性值 Frame1 Caption 顏色區(qū) Text1 Name txtColor BackColor 程序決定 Text 無(wú)內(nèi)容 Label1 Name lb1Red Caption 程序決定 Label2 Name lb1Green Caption 程序決定 Label3 Name lb1Blue Caption 程序決定 Hscroll2/ Hscroll2/ Hscroll3 Name HsbRed / HsbGreen / HsbBlue Max 255 Min 0 LargeChange 50 Smallchange 10 167。一般可用該事件來(lái)獲得移動(dòng)后的滾動(dòng)框所在的位置值。 系統(tǒng)默認(rèn)的數(shù)值為 1，用戶(hù)可以自己修改 167。水平滾動(dòng)條的最左邊為 Min，最右邊為 Max；垂直滾動(dòng)條的最下面為 Min，最上面為Max。 167。 滾動(dòng)條控件 ? VB中的滾動(dòng)條分為兩種類(lèi)型：水平滾動(dòng)條和垂直滾動(dòng)條，除了放置的方向不同以外，這兩個(gè)控件是完全相同的。首先添加一個(gè)窗體，在其中創(chuàng)建 1個(gè)框架、1個(gè)圖片框、 1個(gè)圖像框、 2個(gè)標(biāo)簽和 4個(gè)選項(xiàng)按鈕的控件數(shù)組。 圖片框控件和圖像框控件 二 、 常用事件和方法 ? 圖片框的事件