第七章常用控件

第七章

说明:本章课件上的例子,大部分均提供了源代码,若在课件中直接调用(即通过课件中的超链接按钮调用),需使课件文件与源代码文件在同一目录下.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。控件不支持双击事件。与命令按钮相同，从工具箱中拖拉复选框到窗体上，在窗体上就添加了有复选框控件。如果将窗体上的复选框复制，再粘贴时，就组成一个复选框控件数组。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：单击滚动条或滚动箭头以及释放滚动框时触发。可以用来得到滚动条的最终位置。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