第七章常用控件

第七章

說(shuō)明:本章課件上的例子,大部分均提供了源代碼,若在課件中直接調(diào)用(即通過(guò)課件中的超鏈接按鈕調(diào)用),需使課件文件與源代碼文件在同一目錄下.1本章主要內(nèi)容控件的概念及基本屬性常用控件ActiveX控件的使用2大學(xué)VB程序設(shè)計(jì)教程—第七章控件的概念控件是控件是VB通過(guò)控件箱提供的與用戶(hù)交互的可視化部件，是構(gòu)成程序界面的基本元素。熟練掌握了控件的使用，可以高效地開(kāi)發(fā)應(yīng)用程序，大大節(jié)約了開(kāi)發(fā)應(yīng)用程序的時(shí)間。VB為不同的控件定義了不同的屬性、方法和事件。使用控件與使用窗體相似，控件的命名規(guī)則和屬性分類(lèi)與窗體相同，大多數(shù)控件的屬性、方法和事件也與窗體一致。

VB的控件分為內(nèi)部控件、ActiveX控件和可插入對(duì)象三類(lèi)。

3大學(xué)VB程序設(shè)計(jì)教程—第七章控件的分類(lèi)內(nèi)部控件：是由VB本身提供的控件，也稱(chēng)為常用控件，這些控件總是顯示在控件箱中，不能從控件箱中刪除。內(nèi)部控件如圖4所示：

ActiveX控件：是VB控件箱的擴(kuò)充部分，這些控件在使用之前必須添加到工具箱中。添加的步驟如下：

（1）用鼠標(biāo)右鍵單擊工具箱，出現(xiàn)快捷菜中。（2）選擇快捷菜單的“部件”命令，出現(xiàn)部件選項(xiàng)卡，如圖所示：（3）單擊復(fù)選框來(lái)選擇需要添加的ActiveX控件。（4）單擊“確定”按鈕，則在窗體的工箱中出現(xiàn)添加的控件。

可插入對(duì)象：是由其他應(yīng)用程序創(chuàng)建的對(duì)象，利用可插入對(duì)象，就可以在VB應(yīng)用程序中使用其他應(yīng)用程序的對(duì)象。添加可插入對(duì)象到工具箱與添加ActiveX控件的方法相同，在圖中選擇“可插入對(duì)象”選項(xiàng)卡。

4大學(xué)VB程序設(shè)計(jì)教程—第七章控件的基本屬性名稱(chēng)（Name）屬性：每個(gè)控件都有名稱(chēng)屬性，用于設(shè)置控件的名字。創(chuàng)建控件時(shí)，新對(duì)象的默認(rèn)名字，由對(duì)象類(lèi)型加上一個(gè)唯一的整數(shù)組成。例如，第一個(gè)新的Form對(duì)象是Form1，第二個(gè)為Form2，依次類(lèi)推；控件的值屬性：所有控件都有一個(gè)與控件值有關(guān)的屬性，在引用該屬性時(shí)不需要指定屬性名，而只需要指定控件名即可。控件的值屬性是控件最常用的屬性，例如，TextBox控件的Text屬性。下列語(yǔ)句對(duì)Text1文本框的值屬性Text賦值：

Text1＝”大學(xué)VB程序設(shè)計(jì)教程”等價(jià)于Text1.Text=”大學(xué)VB程序設(shè)計(jì)教程”

5大學(xué)VB程序設(shè)計(jì)教程—第七章與控件相關(guān)的概念焦點(diǎn)（focus）：窗體和窗體上的對(duì)象有很多，用戶(hù)任何時(shí)候只能操作一個(gè)對(duì)象，當(dāng)前被操作的對(duì)象稱(chēng)它獲得焦點(diǎn)。當(dāng)對(duì)象具有焦點(diǎn)時(shí)，可接收用戶(hù)的輸入。將焦點(diǎn)賦給對(duì)象的方法：1.運(yùn)行時(shí)選擇對(duì)象。2.運(yùn)行時(shí)用快捷鍵選擇對(duì)象。3.在代碼中用SetFocus方法。訪(fǎng)問(wèn)鍵：是通過(guò)鍵盤(pán)來(lái)訪(fǎng)問(wèn)控件。命令按鈕（CommandButton）、復(fù)選框（CheckBox）和選項(xiàng)按鈕（OptionButton）都可創(chuàng)建訪(fǎng)問(wèn)鍵。例如，設(shè)置按鈕的屬性“Caption”，為“關(guān)閉（＆c）”。則按鈕如圖（a）所示。若按鈕的屬性“Caption”為“＆Close”則顯示如圖（b）所示，在運(yùn)行時(shí)，按Alt+C單擊按鈕。容器：框架（Frame）、窗體（Form）和圖片框（PictureBox）等都可作為其他控件的容器。VB的大多數(shù)控件都支持容器（Container）屬性，它的值就是控件所在的容器。在容器中，控件的Left和Top屬性值由其在容器的位置決定。因此，移動(dòng)容器也就同時(shí)移動(dòng)了在容器內(nèi)的控件，控件和容器的相對(duì)位置不變（即控件的Left和Top屬性值不變）。

6大學(xué)VB程序設(shè)計(jì)教程—第七章常用控件這里將介紹VB標(biāo)準(zhǔn)控件中的常用控件，主要有：?jiǎn)芜x鈕(OptionButton)復(fù)選框(CheckBox)框架(Frame)列表框(ListBox)組合框(CheckBox)

時(shí)鐘（Timer)7大學(xué)VB程序設(shè)計(jì)教程—第七章單選鈕（OptionBox）功能：用于從一組選項(xiàng)中選取其一。每次只能選擇一項(xiàng)，而且必須選擇一項(xiàng)，其他選項(xiàng)鈕將自動(dòng)變成不選。選中選項(xiàng)按鈕的方法有以下幾種：（1）用鼠標(biāo)鍵單擊選項(xiàng)按鈕。（2）按Tab鍵將焦點(diǎn)移到選項(xiàng)按鈕組，然后用箭頭鍵將焦點(diǎn)移到該選項(xiàng)按鈕。（3）如果選項(xiàng)按鈕有訪(fǎng)問(wèn)鍵，按Alt+訪(fǎng)問(wèn)鍵。（4）從代碼中將選項(xiàng)按鈕的Value屬性設(shè)置為T(mén)rue。8大學(xué)VB程序設(shè)計(jì)教程—第七章單選鈕（OptionBox）常用屬性：Value屬性::可設(shè)置為T(mén)rue(選中)或False(未選中)。Alignment屬性:該屬性用來(lái)設(shè)置單選鈕或復(fù)選框控件的標(biāo)題的對(duì)齊方式。事件:主要是Click(單擊)單選鈕和復(fù)選框都可以接收Click事件,但通常不對(duì)單選按鈕和復(fù)選框的Click事件進(jìn)行處理。當(dāng)單擊單選按鈕和復(fù)選框時(shí)，將自動(dòng)變換狀態(tài)。9大學(xué)VB程序設(shè)計(jì)教程—第七章單選鈕（OptionBox）應(yīng)用舉例：例7.1用單選鈕控制文本框中的文本的字體。程序運(yùn)行界面如下圖：10大學(xué)VB程序設(shè)計(jì)教程—第七章單選鈕（OptionBox）應(yīng)用舉例：

控件屬性設(shè)置：

控件名稱(chēng)（Name）標(biāo)題（Caption）文本(Text)文本框txtDisplay無(wú)大學(xué)VB程序設(shè)計(jì)教程單選鈕1optHeiti黑體無(wú)單選鈕2optKaiti楷體無(wú)單選鈕3optLishu隸書(shū)無(wú)11大學(xué)VB程序設(shè)計(jì)教程—第七章單選鈕（OptionBox）應(yīng)用舉例：

代碼設(shè)計(jì)：

PrivateSubForm_Load()txtdisplay.FontSize=20EndSubPrivateSuboptHeiti_Click()txtdisplay.FontName="黑體"EndSubPrivateSuboptKaiti_Click()txtdisplay.FontName="楷體_GB2312"EndSubPrivateSuboptLishu_Click()txtdisplay.FontName="隸書(shū)"EndSub12大學(xué)VB程序設(shè)計(jì)教程—第七章復(fù)選框（CheckBox）

功能：可以從一組選項(xiàng)中同時(shí)選擇多個(gè)選項(xiàng)。在應(yīng)用程序中，使用CheckBox控件為用戶(hù)提供了“True／False”或“yes／no”的選擇。因?yàn)镃heckBox彼此獨(dú)立工作，所以用戶(hù)可以同時(shí)選擇任意多個(gè)CheckBox?？丶恢С蛛p擊事件。與命令按鈕相同，從工具箱中拖拉復(fù)選框到窗體上，在窗體上就添加了有復(fù)選框控件。如果將窗體上的復(fù)選框復(fù)制，再粘貼時(shí)，就組成一個(gè)復(fù)選框控件數(shù)組。13大學(xué)VB程序設(shè)計(jì)教程—第七章復(fù)選框（CheckBox）

常用屬性：大部分屬性與單選鈕相同。對(duì)于復(fù)選框來(lái)說(shuō)，Value屬性可設(shè)置為0、1或2。其中：0（Unchecked）——表示沒(méi)有選擇該復(fù)選框；

1（Checked）——表示選中該復(fù)選框；2(Grayed)——表示該復(fù)選框被禁止（灰色）。用戶(hù)單擊該復(fù)選框時(shí)，一個(gè)選中標(biāo)記會(huì)出現(xiàn)在框中，此時(shí)復(fù)選框的Value屬性值為1；如果再次單擊該框，選中標(biāo)記便會(huì)被移除，這時(shí)復(fù)選框的Value屬性值為0。事件:主要是Click(單擊)14大學(xué)VB程序設(shè)計(jì)教程—第七章復(fù)選框（CheckBox）

應(yīng)用舉例：例7.2用復(fù)選框控制文本框中的文本的修飾效果。15大學(xué)VB程序設(shè)計(jì)教程—第七章復(fù)選框（CheckBox）

應(yīng)用舉例：控件屬性設(shè)置控件名稱(chēng)（Name）標(biāo)題（Caption）文本(Text)文本框txtDisplay無(wú)大學(xué)VB程序設(shè)計(jì)教程復(fù)選框1chkUnderOn加下劃線(xiàn)無(wú)復(fù)選框2chkItalicOn斜體顯示無(wú)復(fù)選框3chkBoldOn加粗顯示無(wú)16大學(xué)VB程序設(shè)計(jì)教程—第七章復(fù)選框（CheckBox）

例7.2的代碼設(shè)計(jì)PrivateSubForm_Load()txtDisplay.FontSize=20EndSubPrivateSubchkUnderOn_Click()IfchkUnderOn.Value=1ThentxtDisplay.FontUnderline=TrueElsetxtDisplay.FontUnderline=FalseEndIfEndSubPrivateSubchkItalicOn_Click()IfchkItalicOn.Value=1ThentxtDisplay.FontItalic=TrueElsetxtDisplay.FontItalic=FalseEndIfEndSubPrivateSubchkBoldOn_Click()IfchkBoldOn.Value=1ThentxtDisplay.FontBold=TrueElsetxtDisplay.FontBold=FalseEndIfEndSub17大學(xué)VB程序設(shè)計(jì)教程—第七章框架（Frame）

功能：可按功能把控件分別組合在一起，當(dāng)框架移動(dòng)時(shí)，其中的控件也跟著移動(dòng)。常用屬性：Caption屬性：用來(lái)設(shè)置框架的標(biāo)題名稱(chēng)，且可含訪(fǎng)問(wèn)鍵。

Enabled、Visible、Width等屬性與前面所述相同事件:框架控件(Frame)的主要事件是Click(單擊)。18大學(xué)VB程序設(shè)計(jì)教程—第七章框架（Frame）

應(yīng)用舉例：例7.3使用框架來(lái)把單選鈕分兩組，一組控制文本框文本的字體，一組控制文本框中文本的字號(hào)。程序運(yùn)行界面如下圖：

19大學(xué)VB程序設(shè)計(jì)教程—第七章框架（Frame）

應(yīng)用舉例7.3：控件設(shè)置控件名稱(chēng)（Name）標(biāo)題（Caption）文本(Text)文本框txtDisplay無(wú)大學(xué)VB程序設(shè)計(jì)教程框架Frame1字體無(wú)單選鈕1optHeiti黑體無(wú)單選鈕2optKaiti楷體無(wú)單選鈕3optLishu隸書(shū)無(wú)框架2Frame2字號(hào)無(wú)單選鈕4OptSize1212無(wú)單選鈕5optSize1216無(wú)單選鈕6optSize1218無(wú)20大學(xué)VB程序設(shè)計(jì)教程—第七章框架（Frame）

應(yīng)用舉例7.3：代碼設(shè)計(jì)PrivateSuboptHeiti_Click()txtDisplay.FontName="黑體"EndSubPrivateSuboptKaiti_Click()txtDisplay.FontName="楷體_GB2312"EndSubPrivateSuboptLishu_Click()txtDisplay.FontName="隸書(shū)"EndSubPrivateSuboptSize12_Click()txtDisplay.FontSize=12EndSubPrivateSuboptSize16_Click()txtDisplay.FontSize=16EndSubPrivateSuboptSize20_Click()txtDisplay.FontSize=20EndSub21大學(xué)VB程序設(shè)計(jì)教程—第七章列表框（ListBox）

列表框用于在很多項(xiàng)目中作出選擇的操作。在列表框中可以有多個(gè)項(xiàng)目供選擇，用戶(hù)可能通過(guò)單某一項(xiàng)選擇自己所需要的項(xiàng)目。如是要項(xiàng)目太多，超出了列表框設(shè)計(jì)時(shí)的長(zhǎng)度，則VB會(huì)自動(dòng)給列表框加上垂直滾動(dòng)條。為了能正確操作，列表框的高度應(yīng)不少于3行。列表框列表框22大學(xué)VB程序設(shè)計(jì)教程—第七章列表框（ListBox）

功能:列表框(ListBox)用于列出可供用戶(hù)選擇的項(xiàng)目列表。用戶(hù)可從中選擇一個(gè)或多個(gè)列表項(xiàng)。屬性:（1）List：用于訪(fǎng)問(wèn)列表框的所有列表項(xiàng)，List是一個(gè)字符數(shù)組。（2）ListCount：用于返回在列表框中的列表項(xiàng)數(shù)（3）ListIndex：當(dāng)前選中的列表項(xiàng)的索引，-1為當(dāng)前沒(méi)有選擇項(xiàng)目，n為當(dāng)前選擇項(xiàng)目的索引，從0開(kāi)始。23大學(xué)VB程序設(shè)計(jì)教程—第七章列表框（屬性）

（4）Columns屬性

：本屬性用來(lái)確定列表框的列數(shù)（5）MultiSelect：用于設(shè)置是否允許同時(shí)選擇多個(gè)列表項(xiàng)。0為不允許，l為允許，通過(guò)鼠標(biāo)單擊或按下空格鍵在列表中選中或取消選中項(xiàng)。2為允許，按SHIFT并單擊鼠標(biāo)或按SHIFT十箭頭鍵將擴(kuò)展選擇到當(dāng)前選中項(xiàng)。如下圖所示：

MultiSelect屬性分別為0、1、2時(shí)的效果24大學(xué)VB程序設(shè)計(jì)教程—第七章列表框（屬性）

（6）Style（類(lèi)型）屬性:本屬性決定了列表框的外觀，共有兩個(gè)值：０—Standard，即為標(biāo)準(zhǔn)型，

１—CheckBox

，復(fù)選框型。

（7）Selected（選中）屬性：本屬性返回或設(shè)置在列表框控件中某項(xiàng)目是否選中的狀態(tài)。選中時(shí)，值為T(mén)rue；未被選中，值為False。（8）SelCount屬性：如果MultiSelect屬性設(shè)置為1（Simple）或2(Extended)，則該屬性用于讀取列框框中所選項(xiàng)的數(shù)目。25大學(xué)VB程序設(shè)計(jì)教程—第七章列表框（屬性）

（9）Sorted屬性：該屬性用來(lái)確定列表框中的項(xiàng)目是否按字互、數(shù)字升序排列。如果Sorted的屬性設(shè)置為T(mén)rue，則表項(xiàng)按字母、數(shù)字升序排列；如果設(shè)置為False（默認(rèn)），則表項(xiàng)按加入列表框的先后次序排列。（10）Text屬性該屬性的值為列表框中最后一次選中的表項(xiàng)的文本，不能直接修改Text屬性。26大學(xué)VB程序設(shè)計(jì)教程—第七章列表框（事件和方法）

功能:列表框(ListBox)用于列出可供用戶(hù)選擇的項(xiàng)目列表。用戶(hù)可從中選擇一個(gè)或多個(gè)列表項(xiàng)。屬性:（1）List：用于訪(fǎng)問(wèn)列表框的所有列表項(xiàng)，List是一個(gè)字符數(shù)組。（2）ItemData：用于為列表框的每個(gè)列表項(xiàng)設(shè)置一個(gè)對(duì)應(yīng)的數(shù)值，是一個(gè)整型數(shù)組，數(shù)組大小與列表項(xiàng)的個(gè)數(shù)一致，通常用于作為列表項(xiàng)的索引或標(biāo)識(shí)。（3）Columns：設(shè)置列表項(xiàng)按幾列顯示，0為按單列顯示,1為按單列顯示，＞1為按多列顯示。（4）ListCount：用于返回在列表框中的列表項(xiàng)數(shù)（5）ListIndex：當(dāng)前選中的列表項(xiàng)的索引，-1為當(dāng)前沒(méi)有選擇項(xiàng)目，n為當(dāng)前選擇項(xiàng)目的索引，從0開(kāi)始。（6）Sorted：設(shè)置列表框中的各列表項(xiàng)在運(yùn)行時(shí)是否自動(dòng)排序。Tue為自動(dòng)排序，F(xiàn)alse為不排序。（7）Text：用于得到當(dāng)前列表項(xiàng)的內(nèi)容。（8）MultiSelect：用于設(shè)置是否允許同時(shí)選擇多個(gè)列表項(xiàng)。0為不允許，l為允許，通過(guò)鼠標(biāo)單擊或按下空格鍵在列表中選中或取消選中項(xiàng)。2為允許，按SHIFT并單擊鼠標(biāo)或按SHIFT十箭頭鍵將擴(kuò)展選擇到當(dāng)前選中項(xiàng)。事件:主要事件有Click（單擊）和DblClick（雙擊）

方法：（1）AddItem方法:用于在程序代碼中添加列表項(xiàng)。語(yǔ)法：[對(duì)象].AddItem列表項(xiàng)[索引]例如，在系科列表框（List1）的第二個(gè)位置后插入“生物系”：List1.AddItem”生物系”，3（2）Clear和RemoveItem方法:都是用于刪除列表項(xiàng)。語(yǔ)法：[對(duì)象].Clear列表項(xiàng)[索引][對(duì)象].RemoveItem索引27大學(xué)VB程序設(shè)計(jì)教程—第七章列表框應(yīng)用舉例例7.4設(shè)計(jì)一個(gè)程序運(yùn)行界面如下圖：

說(shuō)明：在文本框中輸入系別，單擊“添加↓”按鈕，可以其右則本文框中的內(nèi)容添加到列表框1中，單擊“統(tǒng)計(jì)項(xiàng)數(shù)：”按鈕可以統(tǒng)計(jì)把列表框1中的項(xiàng)數(shù)統(tǒng)計(jì)到第二個(gè)文本框中；從列表框1中選擇一個(gè)條目，單擊“移出→”按鈕，可把選擇的條目移到列表框2中；從列表框2中選擇一個(gè)條目，單擊“移入←”按鈕可以把這個(gè)條目移動(dòng)到列表框1中；從列表框2中選擇多個(gè)條目，單擊“刪除選定”按鈕，可以刪除列表框2中被選擇的條目。28大學(xué)VB程序設(shè)計(jì)教程—第七章界面及控件設(shè)計(jì)控件名稱(chēng)(Name)標(biāo)題(Caption)文本(Text)命令按鈕1Command1添加↓無(wú)命令按鈕2Command2移出→無(wú)命令按鈕3Command3移入←無(wú)命令按鈕4Command4統(tǒng)計(jì)項(xiàng)數(shù)：無(wú)命令按鈕5Command5刪除選定無(wú)標(biāo)簽1Label1列表框1無(wú)標(biāo)簽2Label2列表框2無(wú)列表框1List1無(wú)空列表框2List2無(wú)空文本框1Text1無(wú)空文本框1Text2無(wú)空29大學(xué)VB程序設(shè)計(jì)教程—第七章代碼設(shè)計(jì)（一）PrivateSubForm_Load()List1.AddItem"中文系"List1.AddItem"物理系"List1.AddItem"數(shù)學(xué)系"List1.AddItem"化學(xué)系"List1.AddItem"生物系"List1.AddItem"計(jì)算機(jī)系"List1.AddItem"機(jī)電系"List1.AddItem"歷史系"EndSubPrivateSubCommand1_Click()List1.AddItem(Text1.Text)EndSubPrivateSubCommand2_Click()List2.AddItem(List1.Text)‘添加列表框1中被選擇條目列框2中List1.RemoveItemList1.ListIndex‘刪除列表框1中被選擇條目EndSub窗體載入命令按鈕1命令按鈕230大學(xué)VB程序設(shè)計(jì)教程—第七章代碼設(shè)計(jì)（二）PrivateSubCommand3_Click()List1.AddItem(List2.Text)‘添加列表框2中被選擇條目列框1中List2.RemoveItemList2.ListIndex‘刪除列表框2中被選擇條目EndSubPrivateSubCommand4_Click()Text2.Text=List1.ListCountEndSubPrivateSubCommand5_Click()Fori=0ToList2.ListCount-1IfList2.Selected(i)=TrueThenList2.RemoveItemiNextiEndSub命令按鈕3命令按鈕4命令按鈕531大學(xué)VB程序設(shè)計(jì)教程—第七章組合框（ComboBox）

功能:是文本框和列表框的組合。用戶(hù)可從文本框輸入文本，也可從列表框中選擇列表項(xiàng)。屬性:TextList、ListIndex、ListCount、Sorted屬性與列表框（ListBox）相同。（1）文字（Text）：為用戶(hù)編輯輸入的文本，或者是用戶(hù)從列表框中選出的某個(gè)選項(xiàng)。32大學(xué)VB程序設(shè)計(jì)教程—第七章組合框（屬性）

（2）Style（組合框樣式）屬性：Style=0為下拉式組合框（Dropdowncombo），Style=l為簡(jiǎn)單組合框（Simplecombo），Style=2為下拉列表式組合框（Listcombo）組合框style屬性的三種情況33大學(xué)VB程序設(shè)計(jì)教程—第七章組合框（事件和方法）

事件：組合框的事件和代碼與列表框基本相似。組合框使用的事件與組合框的樣式有關(guān)。簡(jiǎn)單組合框可以接受DblClick事件，而對(duì)于下拉框樣式可以接受Dorpdown下拉事件，也可以使用Click單擊事件。方法：跟列表框一樣，組合框也適用AddItem、Clear、RemoveItem方法34大學(xué)VB程序設(shè)計(jì)教程—第七章組合框應(yīng)用舉例例7.5：設(shè)計(jì)一個(gè)程序如下圖所示，程序運(yùn)行后，在文本框中輸入姓名，分別在兩個(gè)組合框中選擇性別和政治面貌，單擊“提交”按鈕，在Debug窗口輸出文本框中輸入的姓名和組合框中所做的選擇內(nèi)容。單擊“取消”按鈕則退出系統(tǒng)。35大學(xué)VB程序設(shè)計(jì)教程—第七章例7.5界面控件設(shè)計(jì)控件名稱(chēng)(Name)屬性屬性值命令按鈕1Command1Caption提交命令按鈕2Command2Caption取消標(biāo)簽1Label1Caption姓名：標(biāo)簽2Label2Caption性別：卷簽3Label2Caption政治面貌文本框1Text1Text組合框1Combo1Text男List(0)

List(1)男

女組合框1Combo1Text中共黨員List(0)

List(1)

List(2)中共黨員

民主黨派

群眾36大學(xué)VB程序設(shè)計(jì)教程—第七章例7.5代碼設(shè)計(jì)PrivateSubCommand1_Click()Debug.Print"你的姓名是："&Text1.TextDebug.Print"你的性別是："&Combo1.TextDebug.Print"你的政治面貌是："&Combo2.TextEndSubPrivateSubCommand2_Click()EndEndSub37大學(xué)VB程序設(shè)計(jì)教程—第七章時(shí)鐘控件（Timer）

時(shí)鐘（Timer）是VB系統(tǒng)提供給用戶(hù)的一個(gè)計(jì)時(shí)器，用戶(hù)可以利用這個(gè)計(jì)時(shí)器進(jìn)行計(jì)時(shí)，由用戶(hù)定制時(shí)間間隔（Interval），在每一個(gè)時(shí)間間隔觸發(fā)一個(gè)計(jì)時(shí)器事件。

38大學(xué)VB程序設(shè)計(jì)教程—第七章時(shí)鐘控件（Timer）

功能：計(jì)時(shí)器通過(guò)用戶(hù)自定義時(shí)間間隔，每次時(shí)間間隔一到，就觸發(fā)Timer事件。計(jì)時(shí)器是一個(gè)非常有用的控件，主要用于在程序中監(jiān)視和控制時(shí)間進(jìn)程。運(yùn)行時(shí)計(jì)時(shí)器不可見(jiàn)。39大學(xué)VB程序設(shè)計(jì)教程—第七章時(shí)鐘控件（屬性）

（1）Interval(時(shí)間間隔)該屬性器是最重要的屬性，用于設(shè)定計(jì)時(shí)器觸發(fā)事件的時(shí)間間隔，類(lèi)型為整型。時(shí)間間隔以毫秒（ms）為單位，取值范圍0～65535毫秒，因此，最大時(shí)間間隔不能超過(guò)65秒。如果設(shè)置為0，則表示計(jì)時(shí)器無(wú)效。40大學(xué)VB程序設(shè)計(jì)教程—第七章時(shí)鐘控件（屬性）

（2）Enabled(計(jì)時(shí)器允許)屬性

該屬性為邏輯值，值可設(shè)置為T(mén)rue或False，如果為False,表示時(shí)間間隔觸發(fā)停止，否則，時(shí)間間隔繼續(xù)執(zhí)行。41大學(xué)VB程序設(shè)計(jì)教程—第七章時(shí)鐘控件（事件）

Timer事件：

計(jì)時(shí)器只支持Timer事件。計(jì)時(shí)器從0開(kāi)始計(jì)時(shí)，每當(dāng)經(jīng)過(guò)一個(gè)Interval屬性規(guī)定的時(shí)間間隔，就觸發(fā)Timer事件，并循環(huán)往復(fù)，直至重置Enabled屬性終止該事件。42大學(xué)VB程序設(shè)計(jì)教程—第七章時(shí)鐘控件應(yīng)用舉例

例7.6編寫(xiě)一個(gè)數(shù)時(shí)鐘，在窗體中顯示當(dāng)前的時(shí)間。程序運(yùn)行時(shí)，如下圖所示。單擊“開(kāi)始”按鈕，文本框中動(dòng)態(tài)顯示當(dāng)前時(shí)間，單擊“停止”按鈕，停止動(dòng)態(tài)計(jì)時(shí)。43大學(xué)VB程序設(shè)計(jì)教程—第七章例7.6界面及控件設(shè)計(jì)

控件名名稱(chēng)屬性名屬性值文本1Text1text空時(shí)鐘Timer1Interval1000命令按鈕1Command1Caption開(kāi)始命令按鈕2Command2Caption停止44大學(xué)VB程序設(shè)計(jì)教程—第七章例7.6代碼設(shè)計(jì)

PrivateSubForm_Load()Text1.FontSize=20Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Text1.Text=Time()‘通過(guò)time()函數(shù)取得系統(tǒng)當(dāng)前時(shí)間EndSub45大學(xué)VB程序設(shè)計(jì)教程—第七章滾動(dòng)條(ScrollBox)功能:滾動(dòng)條分為水平滾動(dòng)條(HscrollBar)和垂直滾動(dòng)條(VscrollBar)，滾動(dòng)條一般是放置在窗體的邊緣。屬性:46大學(xué)VB程序設(shè)計(jì)教程—第七章滾動(dòng)條事件和方法:（1）Scroll：拖動(dòng)滾動(dòng)框時(shí)觸發(fā)，用于跟蹤滾動(dòng)條的動(dòng)態(tài)變化。（2）Change：?jiǎn)螕魸L動(dòng)條或滾動(dòng)箭頭以及釋放滾動(dòng)框時(shí)觸發(fā)?？梢杂脕?lái)得到滾動(dòng)條的最終位置。47大學(xué)VB程序設(shè)計(jì)教程—第七章滾動(dòng)條應(yīng)用舉例例7.7建立一個(gè)水平滾動(dòng)條和一個(gè)垂直滾動(dòng)條，當(dāng)單擊滾動(dòng)條的箭頭和滾動(dòng)窗時(shí)，文本框中顯示相應(yīng)的數(shù)字，表示滑塊到達(dá)的位置。如圖所示：48大學(xué)VB程序設(shè)計(jì)教程—第七章滾動(dòng)條應(yīng)用舉例控件名名稱(chēng)屬性名屬性值標(biāo)簽1Label1Caption水平滑塊的數(shù)值標(biāo)簽2Label1Caption垂直滑塊的數(shù)值文本框1Text1Text空文本框2Text2Text空水平滾動(dòng)條1HScroll1Min1Max100SmallChange1LargeChange2垂直滾動(dòng)條1VScroll1Min1Max200SmallChange2LargeChange5控件及屬性設(shè)計(jì)49大學(xué)VB程序設(shè)計(jì)教程—第七章滾動(dòng)條應(yīng)用舉例代碼設(shè)計(jì)PrivateSubHScroll1_Change()Text1.Text=CStr(HScroll1.Value)EndSubPrivateSubVScroll1_Change()Text2.Text=CStr(VScroll1.Value)EndSub50大學(xué)VB程序設(shè)計(jì)教程—第七章圖片框(PictureBox)和圖像(Image)控件功能:都用于顯示圖形?？梢燥@示.bmp、.ico、.wmf、jpg、gif等類(lèi)型的文件。圖片框控件不僅可以顯示圖像，還可以作為其他控件的容器，功能比圖像控件更強(qiáng)。屬性:(1)Picture:設(shè)置在圖像框和圖片框中要顯示的圖形文件名，把保存在硬盤(pán)上的圖形文件放入到這些對(duì)象中(2)Align:設(shè)置圖片框在窗體中的顯示方式,0為無(wú)特殊顯示，l為與窗體一樣寬，位于窗體頂端；2為與窗體一樣寬，位于窗體底端；3與窗體一樣高，位于窗體左端；4為與窗體一樣高，位于窗體右端。51大學(xué)VB程序設(shè)計(jì)教程—第七章圖像(Image)和圖片(PictureBox)

(3)Stretch:用于確定圖像框如何與圖形相適應(yīng)。True為圖形將適應(yīng)圖像框的大小，F(xiàn)alse為圖像框?qū)⑦m應(yīng)圖像的大小。

52大學(xué)VB程序設(shè)計(jì)教程—第七章圖像(Image)和圖片(PictureBox)

(4)AutoSize：用于確定圖片框如何與圖形相適應(yīng)。False為保持原始尺寸，當(dāng)圖形比圖片框大時(shí)，超出的部分被截去；True為圖片框根據(jù)圖形大小自動(dòng)調(diào)整。

53大學(xué)VB程序設(shè)計(jì)教程—第七章圖像(Image)和圖片(PictureBox)圖片框控件的主要事件：圖片框和圖像都可以接收Click（單擊）事件與DblClick（雙擊）事件。圖片框的方法圖片框還可以使用Cls（清屏）、Print方法。例如：在圖片框上打印和清除文本。

Picture1.Print“這是在圖片框上打印文本”P(pán)ictrue1.Cls54大學(xué)VB程序設(shè)計(jì)教程—第七章圖片框應(yīng)用舉例例7.8編寫(xiě)程序，交換兩個(gè)圖片框中的圖形。55大學(xué)VB程序設(shè)計(jì)教程—第七章圖片框應(yīng)用舉例PrivateSubForm_Click()'交換圖片Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.Picture'第三個(gè)圖片框設(shè)置為空Picture3.Picture=LoadPicture()EndSub

首先在窗體上建立3個(gè)圖片框Picture1、Picture2、Picture3，其中兩個(gè)在上，一個(gè)在下，然后編寫(xiě)如下事件過(guò)程：PrivateSubForm_Load()'裝入圖形文件Picture1.Picture=LoadPicture("img\car.jpg")Picture2.Picture=LoadPicture("img\moto.jpg")EndSub56大學(xué)VB程序設(shè)計(jì)教程—第七章ActiveX控件

ActiveX簡(jiǎn)稱(chēng)為部件，是一段可重復(fù)使用的編程代碼和數(shù)據(jù)，它是由ActiveX技術(shù)所創(chuàng)建的由一個(gè)或多個(gè)對(duì)象組成的。使用ActiveX部件，可以使VB應(yīng)用程序具有Excel一樣的分析和計(jì)算功能，也可以在應(yīng)用程序中使用Word的格式化工具來(lái)編輯文檔。VB應(yīng)用程序可以使用現(xiàn)有的部件。例如，包含在MicrosoftOffice應(yīng)用程序中的部件、各種制造廠商所提供的代碼部件、ActiveX文檔或ActiveX控件中含有的部件。另外，還可以開(kāi)發(fā)自己的ActiveX控件。例如，一個(gè).exe、.dll或.coc文件。57大學(xué)VB程序設(shè)計(jì)教程—第七章ActiveX控件

ActiveX控件是一種特定的控件，它的使用方法與系統(tǒng)內(nèi)部控件完全一樣。例如，內(nèi)部控件文本框、按鈕和復(fù)選框等，滿(mǎn)足使用習(xí)慣上的延續(xù)性。ActiveX控件是由用戶(hù)設(shè)計(jì)的或者選購(gòu)的商品化控件，不論是自己設(shè)計(jì)的或選購(gòu)的控件，都是根據(jù)用戶(hù)系統(tǒng)的需要進(jìn)行組織開(kāi)發(fā)的。如果把系統(tǒng)內(nèi)部的控件看作是標(biāo)準(zhǔn)件，那么這種控件則類(lèi)似于非標(biāo)準(zhǔn)件。ActiveX控件有其定義規(guī)則和使用規(guī)則，按照這些規(guī)則不但可以用VisualBasic編程環(huán)境創(chuàng)建ActiveX控件，同時(shí)也可以用其他編程環(huán)境（Visual＋＋、BorlandDelphi等）創(chuàng)建ActiveX控件。58大學(xué)VB程序設(shè)計(jì)教程—第七章Silder控件常用屬性：（1）TickStyle屬性

該屬性返回或設(shè)置Slider控件上顯示的刻度標(biāo)記的樣式。它的取值可以是0-sldBottomRight(刻度在滑塊下)，1-sldTopLeft(刻度在滑塊上),2-sldBoth(刻度在滑塊的上下),3-sldNoticks(沒(méi)有刻度)。（2）value屬性該屬性設(shè)置或返回滑塊在刻度上的取值。59大學(xué)VB程序設(shè)計(jì)教程—第七章Silder控件（3）SelectRange，SelStart和SelLength屬性

Slider控件可以選擇某個(gè)范圍內(nèi)的數(shù)值，這就要用到SelectRange，SelStart和SelLength屬性。

SelectRange屬性決定Slider控件是否可以選擇一個(gè)范圍。如果SelectRange屬性為T(mén)rue，SelStart為選定范圍的起始值，SelLength為選定范圍的長(zhǎng)度。

如果SelectRange屬性為False，則SelStart屬性的設(shè)置值與Value屬性的設(shè)置值相同，SelLength屬性無(wú)效。60大學(xué)VB程序設(shè)計(jì)教程—第七章Silder控件（4）Min和Max屬性：分別設(shè)置或返回控件的最小值和最大值。（5）Largechange屬性：設(shè)置或返回按下PageDown或PageUp鍵（或用鼠標(biāo)單擊滑塊空白區(qū)）時(shí)Value屬性值的變化量。（6）SmallChange屬性:用于設(shè)定當(dāng)用鼠標(biāo)單擊滾動(dòng)箭頭時(shí)Value屬性值的變化量。（7）TickFrequency屬性：決定控件上刻度的疏密程度。（8）TextPosition屬性：設(shè)置鼠標(biāo)在控件上暫停顯示的文本。61大學(xué)VB程序設(shè)計(jì)教程—第七章Silder控件應(yīng)用舉例例7.9用Slider控件設(shè)置文本框中字體的大小。如下圖所示，拖動(dòng)或單擊鼠標(biāo)移動(dòng)滑塊時(shí)，文本框1中顯示字號(hào)，文本框2中顯示字本的變化情況。62大學(xué)VB程序設(shè)計(jì)教程—第七章例7.9界面及控件設(shè)計(jì)Subform_load()Slider1.min=8Slider1.max=72Slider1.smallchange=2Slider1.LargeChange=8Slider1.TickFrequency=2EndsubSubSlider1_scroll()Text1.text=Slider1.valueText2.fontsize=Slider1.valueEndsub在窗體上添加一個(gè)Slider控件和一個(gè)text控件，調(diào)整好位置及大小，再編輯事件代碼如下：63大學(xué)VB程序設(shè)計(jì)教程—第七章UpDown控件

UpDown控件是一種Windows應(yīng)用程序中常見(jiàn)的控件，它往往與其它控件“捆綁”在一起使用，方便用戶(hù)修改與它關(guān)聯(lián)的伙伴控件。

在VB中它位于MicrosoftWindowsCommonControl-26.0部件中，添加了MicrosoftWindowsCommonControl-26.0控件的工具箱中除了有UpDown控件外，還有后面將要介紹的Animation控件。64大學(xué)VB程序設(shè)計(jì)教程—第七章UpDown控件的屬性①BuddyControl屬性設(shè)定與之關(guān)聯(lián)的伙伴控件，類(lèi)型為文本型。例如，如果要設(shè)置當(dāng)前一個(gè)文本框Text1與之關(guān)聯(lián)，則BuddyControl屬性設(shè)置為“Text1”。②BuddyProperty屬性

BuddyProperty屬性設(shè)置為其伙伴控件的可滾動(dòng)屬性。例如，如果一個(gè)文本框Text1為其伙伴控件，則可為BuddyProperty設(shè)置為text（Text1控件的滾動(dòng)屬性）屬性。③Min屬性：

設(shè)置UpDown控件的下界值，類(lèi)型為數(shù)值型。65大學(xué)VB程序設(shè)計(jì)教程—第七章UpDown控件的屬性④Max屬性：設(shè)置UpDown控件的上界值，類(lèi)型為數(shù)值型。⑤Value屬性:設(shè)置或獲得控件在滾動(dòng)范圍內(nèi)的當(dāng)前值。⑥Wrap屬性：決定當(dāng)最終用戶(hù)輸入的值超過(guò)Min或Max值時(shí)，是否會(huì)折回。66大學(xué)VB程序設(shè)計(jì)教程—第七章UpDown控件的屬性⑦Increment屬性：

指定在每次單擊上箭頭或下箭頭時(shí)Value屬性的變化量。⑧AutoBuddy屬性：

自動(dòng)設(shè)置伙伴控件。在設(shè)計(jì)時(shí)，如果將AutoBuddy屬性設(shè)置為T(mén)rue，那么UpDown控件自動(dòng)把TabOrder中位于它前面的控件作為它的“伙伴”。67大學(xué)VB程序設(shè)計(jì)教程—第七章UpDown控件的事件①Uplick和DownClick事件：當(dāng)鼠標(biāo)單擊上箭頭時(shí)觸發(fā)UpClick事件，單擊下箭頭時(shí)觸發(fā)DownClick事件。②Change事件：

當(dāng)鼠標(biāo)左鍵在上下箭頭上按下時(shí)觸發(fā)Change事件。68大學(xué)VB程序設(shè)計(jì)教程—第七章UpDown控件應(yīng)用舉例例7.10編寫(xiě)程序，用UpDown控件來(lái)控制文本框中數(shù)據(jù)的變化。程序運(yùn)行界面如下：?jiǎn)螕羯舷挛⒄{(diào)按鈕可改變文本框中的數(shù)值69大學(xué)VB程序設(shè)計(jì)教程—第七章UpDown控件應(yīng)用舉例所用控件及屬性設(shè)置如右表控件名名稱(chēng)屬性名屬性值文本框1Text1Text空Updown控件1Updown1BuddyControlText1BuddyPropertyTextWrapTrueMin-10Max10Increment170大學(xué)VB程序設(shè)計(jì)教程—第七章UpDown控件應(yīng)用舉例程序不用編寫(xiě)事件過(guò)程代碼。單擊上下微調(diào)按鈕可改變文本框中的數(shù)值，數(shù)值范圍為（-10至10）71大學(xué)VB程序設(shè)計(jì)教程—第七章Animation控件

UpDownAnimation控件用來(lái)顯示無(wú)聲的AVI視頻文件，播放無(wú)聲動(dòng)畫(huà)。它位于MicrosoftWindowsCommonControl-26.0部件中。

Animation控件的用途：

■在對(duì)話(huà)框中顯示出操作的長(zhǎng)短和特征。

■播放有關(guān)應(yīng)用程序的無(wú)聲動(dòng)畫(huà)，提供使用指導(dǎo)。

■使用戶(hù)能夠播放放入該控件的文件。72大學(xué)VB程序設(shè)計(jì)教程—第七章Animation控件的屬性①AutoPlay屬性：

如果AutoPlay為T(mén)rue，則用Open打開(kāi)文件時(shí)自動(dòng)播放，否則需要用Play方法來(lái)播放。②Center屬性：

如果Center為T(mén)rue，則動(dòng)畫(huà)在控件的中央播放。73大學(xué)VB程序設(shè)計(jì)教程—第七章Ani