第七章常用控件

第七章

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

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

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

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

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

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

4大學(xué)VB程序設(shè)計教程—第七章控件的基本屬性名稱（Name）屬性：每個控件都有名稱屬性，用于設(shè)置控件的名字。創(chuàng)建控件時，新對象的默認(rèn)名字，由對象類型加上一個唯一的整數(shù)組成。例如，第一個新的Form對象是Form1，第二個為Form2，依次類推；控件的值屬性：所有控件都有一個與控件值有關(guān)的屬性，在引用該屬性時不需要指定屬性名，而只需要指定控件名即可?？丶闹祵傩允强丶畛Ｓ玫膶傩裕?，TextBox控件的Text屬性。下列語句對Text1文本框的值屬性Text賦值：

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

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

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

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

控件屬性設(shè)置：

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

代碼設(shè)計：

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

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

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

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

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

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

例7.2的代碼設(shè)計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è)計教程—第七章框架（Frame）

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

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

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

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

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

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

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

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

（4）Columns屬性

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

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

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

１—CheckBox

，復(fù)選框型。

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

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

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

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

說明：在文本框中輸入系別，單擊“添加↓”按鈕，可以其右則本文框中的內(nèi)容添加到列表框1中，單擊“統(tǒng)計項數(shù)：”按鈕可以統(tǒng)計把列表框1中的項數(shù)統(tǒng)計到第二個文本框中；從列表框1中選擇一個條目，單擊“移出→”按鈕，可把選擇的條目移到列表框2中；從列表框2中選擇一個條目，單擊“移入←”按鈕可以把這個條目移動到列表框1中；從列表框2中選擇多個條目，單擊“刪除選定”按鈕，可以刪除列表框2中被選擇的條目。28大學(xué)VB程序設(shè)計教程—第七章界面及控件設(shè)計控件名稱(Name)標(biāo)題(Caption)文本(Text)命令按鈕1Command1添加↓無命令按鈕2Command2移出→無命令按鈕3Command3移入←無命令按鈕4Command4統(tǒng)計項數(shù)：無命令按鈕5Command5刪除選定無標(biāo)簽1Label1列表框1無標(biāo)簽2Label2列表框2無列表框1List1無空列表框2List2無空文本框1Text1無空文本框1Text2無空29大學(xué)VB程序設(shè)計教程—第七章代碼設(shè)計（一）PrivateSubForm_Load()List1.AddItem"中文系"List1.AddItem"物理系"List1.AddItem"數(shù)學(xué)系"List1.AddItem"化學(xué)系"List1.AddItem"生物系"List1.AddItem"計算機(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è)計教程—第七章代碼設(shè)計（二）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è)計教程—第七章組合框（ComboBox）

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

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

事件：組合框的事件和代碼與列表框基本相似。組合框使用的事件與組合框的樣式有關(guān)。簡單組合框可以接受DblClick事件，而對于下拉框樣式可以接受Dorpdown下拉事件，也可以使用Click單擊事件。方法：跟列表框一樣，組合框也適用AddItem、Clear、RemoveItem方法34大學(xué)VB程序設(shè)計教程—第七章組合框應(yīng)用舉例例7.5：設(shè)計一個程序如下圖所示，程序運行后，在文本框中輸入姓名，分別在兩個組合框中選擇性別和政治面貌，單擊“提交”按鈕，在Debug窗口輸出文本框中輸入的姓名和組合框中所做的選擇內(nèi)容。單擊“取消”按鈕則退出系統(tǒng)。35大學(xué)VB程序設(shè)計教程—第七章例7.5界面控件設(shè)計控件名稱(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è)計教程—第七章例7.5代碼設(shè)計PrivateSubCommand1_Click()Debug.Print"你的姓名是："&Text1.TextDebug.Print"你的性別是："&Combo1.TextDebug.Print"你的政治面貌是："&Combo2.TextEndSubPrivateSubCommand2_Click()EndEndSub37大學(xué)VB程序設(shè)計教程—第七章時鐘控件（Timer）

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

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

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

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

（2）Enabled(計時器允許)屬性

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

Timer事件：

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

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

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

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

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

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

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

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

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

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

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

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

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

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

SelectRange屬性決定Slider控件是否可以選擇一個范圍。如果SelectRange屬性為True，SelStart為選定范圍的起始值，SelLength為選定范圍的長度。

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

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

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

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

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

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

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

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

UpDownAnimation控件用來顯示無聲的AVI視頻文件，播放無聲動畫。它位于MicrosoftWindowsCommonControl-26.0部件中。

Animation控件的用途：

■在對話框中顯示出操作的長短和特征。

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

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

如果AutoPlay為True，則用Open打開文件時自動播放，否則需要用Play方法來播放。②Center屬性：

如果Center為True，則動畫在控件的中央播放。73大學(xué)VB程序設(shè)計教程—第七章Ani