第七章

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

VB的控件分為內部控件、ActiveX控件和可插入對象三類。

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

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

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

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

4大學VB程序設計教程—第七章控件的基本屬性名稱（Name）屬性：每個控件都有名稱屬性，用于設置控件的名字。創建控件時，新對象的默認名字，由對象類型加上一個唯一的整數組成。例如，第一個新的Form對象是Form1，第二個為Form2，依次類推；控件的值屬性：所有控件都有一個與控件值有關的屬性，在引用該屬性時不需要指定屬性名，而只需要指定控件名即可。控件的值屬性是控件最常用的屬性，例如，TextBox控件的Text屬性。下列語句對Text1文本框的值屬性Text賦值：

Text1＝”大學VB程序設計教程”等價于Text1.Text=”大學VB程序設計教程”

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

6大學VB程序設計教程—第七章常用控件這里將介紹VB標準控件中的常用控件，主要有：單選鈕(OptionButton)復選框(CheckBox)框架(Frame)列表框(ListBox)組合框(CheckBox)

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

控件屬性設置：

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

代碼設計：

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

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

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

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

應用舉例：例7.2用復選框控制文本框中的文本的修飾效果。15大學VB程序設計教程—第七章復選框（CheckBox）

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

例7.2的代碼設計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大學VB程序設計教程—第七章框架（Frame）

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

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

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

19大學VB程序設計教程—第七章框架（Frame）

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

應用舉例7.3：代碼設計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大學VB程序設計教程—第七章列表框（ListBox）

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

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

（4）Columns屬性

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

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

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

１—CheckBox

，復選框型。

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

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

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

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

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

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

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

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

List(1)男

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

List(1)

List(2)中共黨員

民主黨派

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

時鐘（Timer）是VB系統提供給用戶的一個計時器，用戶可以利用這個計時器進行計時，由用戶定制時間間隔（Interval），在每一個時間間隔觸發一個計時器事件。

38大學VB程序設計教程—第七章時鐘控件（Timer）

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

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

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

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

Timer事件：

計時器只支持Timer事件。計時器從0開始計時，每當經過一個Interval屬性規定的時間間隔，就觸發Timer事件，并循環往復，直至重置Enabled屬性終止該事件。42大學VB程序設計教程—第七章時鐘控件應用舉例

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

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

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

(3)Stretch:用于確定圖像框如何與圖形相適應。True為圖形將適應圖像框的大小，False為圖像框將適應圖像的大小。

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

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

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

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

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

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

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

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

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

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

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

UpDown控件是一種Windows應用程序中常見的控件，它往往與其它控件“捆綁”在一起使用，方便用戶修改與它關聯的伙伴控件。

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

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

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

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

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

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

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

Animation控件的用途：

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

■播放有關應用程序的無聲動畫，提供使用指導。

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

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

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