《机械热化第三章基本控》由会员分享，可在线阅读，更多相关《机械热化第三章基本控（89页珍藏版）》请在金锄头文库上搜索。
1、第三章第三章 基本控件基本控件学学习要求要求要求要求读者通者通过本章的学本章的学习，掌握，掌握VB基本控件的特基本控件的特点、常用属性、事件和方法，并能点、常用属性、事件和方法，并能够熟熟练地运用地运用这些基本控些基本控件件编写各种写各种VB应用程序以解决用程序以解决实际问题。学学习提示提示VisualBasic为我我们设计程序界面、程序界面、调用系用系统资源提供了源提供了强大的工具大的工具控件。控件是控件。控件是VB程序程序设计的基的基础，也是也是VB提供提供给我我们的一种可的一种可视化化编程工具。程工具。VB常用的基本常用的基本控件有：文本框、控件有：文本框、标签框、命令按框、命令按钮、单
2、选按按钮、复、复选框和框和框架控件等。各种框架控件等。各种类型的控件都有其特殊的属性、事件和方型的控件都有其特殊的属性、事件和方法。法。主要内容主要内容本章介本章介绍了部分基本控件的特点及其使用用法，了部分基本控件的特点及其使用用法，基本控件包括：文本框、基本控件包括：文本框、标签框、命令按框、命令按钮、单选按按钮、复、复选框、框架、框、框架、图形控件、形控件、选择控件、文件系控件、文件系统控件、定控件、定时器器控件及控件及滚动条等常用控件。条等常用控件。第一章文本框和第一章文本框和标签框框程序运行中，需要通程序运行中，需要通过键盘接收用接收用户输入的信息，或把有入的信息，或把有关的信息关的信
3、息显示在屏幕上。在示在屏幕上。在VisualBasic中，可以用文本框中，可以用文本框和和标签框框实现信息的信息的输入和入和输出。本出。本节介介绍文本框和文本框和标签框框的特点以及使用方法。的特点以及使用方法。一、文本框一、文本框文本框（文本框（TextBox）是程序中最常用的）是程序中最常用的输入和入和输出控件，出控件，用用户可以在文本框中可以在文本框中输入、入、编辑和和显示文本内容。文本框在示文本内容。文本框在工具箱中的工具箱中的图标为。关于属性、事件和方法的概念已在前面作了介关于属性、事件和方法的概念已在前面作了介绍。“属属性性”用来表示用来表示对象的特性。象的特性。“事件事件”是指由是
4、指由VB系系统事先事先设定的、能定的、能为对象感知、象感知、识别和响和响应的的动作。作。“方法方法”是是VB提供的一种特殊的子程序，用来完成特定的操作。接下来，提供的一种特殊的子程序，用来完成特定的操作。接下来，主要通主要通过例例题来介来介绍文本框的常用属性、事件和方法及其文本框的常用属性、事件和方法及其应用。用。文本框的常用属性有文本框的常用属性有：1.Text属性：字符串类型。返回或设置文本框中显示的内容。2.TabIndex属性：控制按Tab键时焦点变化的顺序。TabIndex的值从开始，焦点按TabIndex属性值从小到大依次跳转。3.TabStop属性：控制按Tab键时,使某个控件“
5、轮空”与否。一般控件的TabStop属性的缺省值为True，表示按Tab键时光标移到本控件处“停下来”，即焦点正常地移到本控件。若设置为False,则按Tab键时，光标跳过本控件不停顿。4.MaxLength属性：设置文本框中用户可以输入的字符串长度是否受到限制。缺省值为0，表示该文本框中字符串长度只受操作系统内存的限制；若该属性被设置为大于0的整数，则表示文本框中能够输入输出的最大字符数。5.MultiLine属性：设置文本框是单行方式还是多行方式，有True和False两种属性值。设置为True时文本框以多行文本方式显示文本，一行显示不下的内容会自动换到下行显示；否则，以单行方式显示，超出
6、文本框宽度的部分会被截掉。6.PasswordChar属性：该属性用来设置是否在文本框控件中显示用户键入的实际字符。如果为该属性设置了某一字符,那么无论Text属性值是什么，在文本框中都只显示指定字符。（三）（三） 文本框的常用事件文本框的常用事件1.Change事件事件例例题3-4设计一个程序，窗体上有两个文本框和两个命令按一个程序，窗体上有两个文本框和两个命令按钮，窗，窗体外体外观如如图3-4所示。当程序运行所示。当程序运行时，用，用户在第一个文本框内在第一个文本框内输入信息入信息时，立即在第二个文本框中立即在第二个文本框中显示相同的内容；在第二个文本框中示相同的内容；在第二个文本框中输入
7、信息入信息时，立即在第一个文本框中立即在第一个文本框中显示相同的内容示相同的内容（1）界面）界面设计见图3-4；（2）属性）属性设置置见表表3-5； 表表3-5例例题3-4对象属性象属性设置置对象对象属性设置属性设置窗体窗体Caption=Caption=文本框的文本框的ChangeChange事件事件 ，（名称），（名称）为为frmChangefrmChange文本框文本框Text=Text=，（名称）为，（名称）为txtShow1txtShow1文本框文本框Text=Text=，（名称）为，（名称）为txtShow2txtShow2命令按钮命令按钮Caption=Caption=清除清除
8、，（名称）为，（名称）为cmdClearcmdClear命令按钮命令按钮Caption=Caption=退出退出 ，（名称）为，（名称）为cmdExitcmdExit（3）编写事件写事件过程代程代码如下：如下：PrivateSubtxtShow1_Change()txtShow2=txtShow1EndSubPrivateSubtxtShow2_Change()txtShow1=txtShow2EndSubPrivateSubcmdClear_Click()txtShow1=txtShow2=EndSubPrivateSubcmdExit_Click()EndEndSub2.KeyPress事
9、件事件我我们在文本框内在文本框内输入数据入数据时，难免会出免会出现错误的数据。怎的数据。怎样判断、判断、检查输入数据是否正确有效呢？文本框控件支持入数据是否正确有效呢？文本框控件支持KeyPress事件，事件，该事件事件识别从从键盘上上输入的字符。每当用入的字符。每当用户从从键盘上敲入一个字符，就触上敲入一个字符，就触发KeyPress事件。我事件。我们可以通可以通过相相应的事件的事件过程程进行数据校行数据校验。例例题3-5设计一个程序，窗体上有一个文本框。运行程序一个程序，窗体上有一个文本框。运行程序时，当，当向文本框中向文本框中输入字母入字母时，在文本框中，在文本框中显示数字示数字0，输入
10、其他字入其他字符符时不予不予显示，即不接受其他字符。示，即不接受其他字符。分析：大写分析：大写26个英文字母的个英文字母的ASCII码值在在65与与90之之间，小写，小写26个英文字母的个英文字母的ASCII码值在在97与与122之之间，均，均为连续的字符。如果用的字符。如果用户输入的英文字母的入的英文字母的ASCII值在此范在此范围内，内，说明明输入了字母字符，入了字母字符，对应的的显示数字示数字0，否，否则不予不予显示。示。 1）界面）界面设计如如图3-5所示，由窗体加文本框所示，由窗体加文本框(txtInfo)组成，文本框成，文本框单行、多行、多行均可。行均可。图3-5文本框的文本框的K
11、eyPress事件事件应用程序界面用程序界面（2）编写事件代写事件代码如下：如下：DimtAsString定定义窗体窗体级变量量tPrivateSubtxtInfo_Change()txtInfo=tEndSubPrivateSubtxtInfo_KeyPress(KeyAsciiAsInteger)c=Chr$(KeyAscii)If(c=aAndc=AAndcCommand2.Caption=-Command3.Caption=清空所清空所选课程程（3）双）双击Command1按按钮，在其，在其Click事件中事件中编写如下代写如下代码：PrivateSubCommand1_Click()
12、选择课程程DimiAsInteger定定义整型整型变量量ii=0设变量量i初初值为0DoWhilei=List1.ListCount-1从从List1项目的第一个循目的第一个循环到最后一个到最后一个IfList1.Selected(i)=TrueThen如果如果List1的第的第i项是被是被选中的那么中的那么List2.AddItemList1.List(i)在在List2中添加中添加List1的第的第i项List1.RemoveItemi在在List1中移除其第中移除其第i项Elsei=i+1EndIfLoopEndSub添加完代添加完代码后运行窗体，从左后运行窗体，从左边列表中列表中选中几
13、中几项，再，再单击Command1，看看效果如何？是否如，看看效果如何？是否如图3-18所示。所示。在步在步骤（3）中，我）中，我们又用到了列表框又用到了列表框3个新的属性：个新的属性：List、ListCount、Selected和新方法和新方法RemoveItem。下面分。下面分别介介绍一下它一下它们的用法。的用法。List属性：属性：字符串数字符串数组。列表框和。列表框和组合框的合框的List属性含有多个属性含有多个值，这些些值构成一个数构成一个数组，数，数组的每一的每一项都是一个列表都是一个列表项目。引用目。引用项目的目的语法法为：List属性：属性：字符串数字符串数组。列表框和。列表
14、框和组合框的合框的List属性含有多个属性含有多个值，这些些值构成一个数构成一个数组，数，数组的每一的每一项都是一个列表都是一个列表项目。引用目。引用项目的目的语法法为：对象名象名.List(i)其中，其中，对象名象名为列表框或列表框或组合框名，合框名，i为项目的索引号，取目的索引号，取值范范围是是0ListCount-1。在在设计模式下，可以通模式下，可以通过属性窗口的属性窗口的List下拉框中下拉框中输入入项目。若要目。若要连续输入多个入多个项目，在每目，在每输入一入一项后，可以按后，可以按Ctrl+Enter，便可，便可继续输入入下一个下一个项目。当所有目。当所有项目目输入后，再按入后，
15、再按Enter键。ListCount属性：属性：整型数整型数值，用于返回列表框或，用于返回列表框或组合框中列表合框中列表项目的目的个数即个数即List数数组中的元素个数。中的元素个数。Selected属性：属性：返回或返回或设置列表框控件中的一个置列表框控件中的一个项目的目的选择状状态（注（注意，意，组合框控件无此属性）。合框控件无此属性）。该属性是一个属性是一个逻辑类型的数型的数组，数，数组元元素个数与列表框中的素个数与列表框中的项目数相同，其下目数相同，其下标的的变化范化范围与与List属性相同。属性相同。ListIndex属性属性：整型数：整型数值，用于返回或，用于返回或设置列表框控件或
16、置列表框控件或组合框控件中合框控件中当前当前选择项目的索引，第一个目的索引，第一个项目的索引目的索引为0，而最后一个，而最后一个项目的索引目的索引为ListCount-1。如果没有。如果没有选中，中，则ListIndex属性属性值为-1。表3-18各对象的主要属性设置对象属性(属性值)属性(属性值)窗体Name(FrmSample)Caption(“选 择 控 件 示 例 ”),BorderStyle(1-FixedSingle)标签1Name(LblSample)Caption(“字 体 设 置 示 例 ”),Alignment(2Center)标签2Name(Label2)Caption(
17、“字体”)标签3Name(Label3)Caption(“字号”)标签4Name(Label4)Caption(“颜色”)标签5Name(Label5)Caption(“字形”)选框1Name(ChkUnderLine)Caption(“下划线”)选框2Name(ChkStrikethrough)Caption(“删除线”)合框1Name(CboFontName)Style(2DropdownList)合框2Name(CboFontSize)Style(2DropdownList)合框3Name(CboFontColor)Style(2DropdownList)表框1Name(LstFontS
18、tyle)Style(0Standard)(默认值)程序代程序代码如下：如下：OptionExplicitPrivateSubForm_Load()LblSample.AutoSize=True为字形字形LstFontStyle列表框添加列表框添加项目目WithLstFontStyle.AddItem常常规.AddItem粗体粗体.AddItem斜体斜体.AddItem粗体粗体 斜体斜体EndWith令令LstFontStyle第一第一项被被选中中LstFontStyle.Text=常常规给字体字体CboFontName下拉列表框添加下拉列表框添加项目目DimiAsIntegerFori=0T
19、oScreen.FontCount-1CboFontName.AddItemScreen.Fonts(i)Nexti令默令默认字体字体为“宋体宋体”CboFontName.Text=宋体宋体LblSample.FontName=宋体宋体给字号字号CboFontSize下拉列表框添加下拉列表框添加项目目Fori=10To40Step2CboFontSize.AddItemStr(i)Nexti令默令默认字号字号为10CboFontSize.ListIndex=0LblSample.FontSize=10给颜色色CboFontColor下拉列表框添加下拉列表框添加项目目WithCboFontCol
20、or.AddItem黑色黑色.AddItem红色色.AddItem绿色色.AddItem黄色黄色.AddItem蓝色色.AddItem紫紫红色色.AddItem青色青色.AddItem白色白色EndWith令默令默认颜色色为黑色黑色CboFontColor.Text=黑色黑色LblSample.ForeColor=vbBlackvbBlack为VB保留字保留字,表示黑色。表示黑色。EndSubCboFontName.Text=宋体宋体LblSample.FontName=宋体宋体给字号字号CboFontSize下拉列表框添加下拉列表框添加项目目Fori=10To40Step2CboFontSi
21、ze.AddItemStr(i)Nexti令默令默认字号字号为10CboFontSize.ListIndex=0LblSample.FontSize=10给颜色色CboFontColor下拉列表框添加下拉列表框添加项目目WithCboFontColor.AddItem黑色黑色.AddItem红色色.AddItem绿色色.AddItem黄色黄色.AddItem蓝色色.AddItem紫紫红色色.AddItem青色青色.AddItem白色白色EndWith令默令默认颜色色为黑色黑色CboFontColor.Text=黑色黑色LblSample.ForeColor=vbBlackvbBlack为VB保
22、留字保留字,表示黑色。表示黑色。EndSubText属性：属性：对于下拉式于下拉式组合框与合框与简单组合框，合框，Text属性返回属性返回编辑区域中区域中的文本。的文本。对于列表框控件或下拉列表框，于列表框控件或下拉列表框，Text属性的返回属性的返回值总与与List(ListIndex)的的值相同。相同。Screen对象：象：代表了整个代表了整个Windows桌面，它提供了一种不需要知道窗桌面，它提供了一种不需要知道窗体或控件的名称就能使用它的一种方法。其中，体或控件的名称就能使用它的一种方法。其中，Screen.Fonts返回当前返回当前显示器或活示器或活动打印机可用的所有字体名。打印机可
23、用的所有字体名。Fonts是字符串数是字符串数组。Screen.FontCount返回屏幕可用的字体数。其他返回屏幕可用的字体数。其他Screen对象的属性限于象的属性限于篇幅，篇幅，这里不再介里不再介绍，请读者者查阅相关相关资料。料。Color常数常数：VB系系统将常用将常用颜色以保留字的形式表示，方便色以保留字的形式表示，方便记忆。表。表3-19列出了常用的列出了常用的颜色常数。色常数。表表3-19Color常数常数常数值描述vbBlack0x0黑色vbRed0xFF红色vbGreen0xFF00绿色vbYellow0xFFFF黄色vbBlue0xFF0000蓝色vbMagenta0xFF
24、00FF紫红色vbCyan0xFFFF00青色vbWhite0xFFFFFF白色PrivateSubCboFontColor_Click()设置字体置字体颜色色过程程SelectCaseCboFontColor.TextCase黑色黑色:LblSample.ForeColor=vbBlackCase红色色:LblSample.ForeColor=vbRedCase绿色色:LblSample.ForeColor=vbGreenCase黄色黄色:LblSample.ForeColor=vbYellowCase蓝色色:LblSample.ForeColor=vbBlueCase紫紫红色色:LblSa
25、mple.ForeColor=vbMagentaCase青色青色:LblSample.ForeColor=vbCyanCase白色白色:LblSample.ForeColor=vbWhiteEndSelectEndSubPrivateSubCboFontName_Click()设置字体名置字体名过程程LblSample.FontName=CboFontName.TextEndSubPrivateSubCboFontSize_Click()设置字号置字号过程程LblSample.FontSize=Val(CboFontSize.Text)EndSubPrivateSubChkStrikethro
26、ugh_Click()设置字体置字体删除除线过程程IfChkStrikethrough.Value=1ThenLblSample.FontStrikethru=True标签LblSample的的删除除线为真真ElseLblSample.FontStrikethru=False标签LblSample的的删除除线为假假EndIfEndSubPrivateSubChkUnderLine_Click()设置字体下划置字体下划线过程程IfChkUnderLine.Value=1ThenLblSample.FontUnderline=True标签LblSample的下划的下划线为真真ElseLblSamp
27、le.FontUnderline=False标签LblSample的下划的下划线为假假EndIfEndSubPrivateSubLstFontStyle_Click()设置字形置字形过程程SelectCaseLstFontStyle.ListIndex判断字形列表框的判断字形列表框的项目索引目索引值Case0:当索引当索引ListIndex=0，即，即“常常规”时LblSample.FontBold=False标签粗体粗体为假假LblSample.FontItalic=False标签斜体斜体为假假Case1:当索引当索引ListIndex=1，即，即“粗体粗体”时LblSample.FontB
28、old=TrueLblSample.FontItalic=FalseCase2:当索引当索引ListIndex=2，即，即“斜体斜体”时LblSample.FontItalic=TrueLblSample.FontBold=FalseCase3:当索引当索引ListIndex=3，即，即“粗体粗体 斜体斜体”时LblSample.FontBold=TrueLblSample.FontItalic=TrueEndSelectLblSample.FontStrikethru=False标签LblSample的的删除除线为假假EndIfEndSubPrivateSubChkUnderLine_Cli
29、ck()设置字体下划置字体下划线过程程IfChkUnderLine.Value=1ThenLblSample.FontUnderline=True标签LblSample的下划的下划线为真真ElseLblSample.FontUnderline=False标签LblSample的下划的下划线为假假EndIfEndSubPrivateSubLstFontStyle_Click()设置字形置字形过程程SelectCaseLstFontStyle.ListIndex判断字形列表框的判断字形列表框的项目索引目索引值Case0:当索引当索引ListIndex=0，即，即“常常规”时LblSample.Fo
30、ntBold=False标签粗体粗体为假假LblSample.FontItalic=False标签斜体斜体为假假Case1:当索引当索引ListIndex=1，即，即“粗体粗体”时LblSample.FontBold=TrueLblSample.FontItalic=FalseCase2:当索引当索引ListIndex=2，即，即“斜体斜体”时LblSample.FontItalic=TrueLblSample.FontBold=FalseCase3:当索引当索引ListIndex=3，即，即“粗体粗体 斜体斜体”时LblSample.FontBold=TrueLblSample.FontIt
31、alic=TrueEndSelect第五第五节 文件系文件系统控件控件一、一、驱动器列表控件（器列表控件（DriveListBox）图3-2420驱动器列表框器列表框驱动器列表框是一种下拉式列表框，能器列表框是一种下拉式列表框，能够自自动列出列出计算机上所有的硬算机上所有的硬图3-20驱动器列表框器列表框盘、软盘和光和光盘驱动器。且用器。且用户不能修改其中条目。如不能修改其中条目。如图3-20所示。用所示。用户常一个重要属性常一个重要属性Drive。Drive属性：属性：该属性用来在程序运行期属性用来在程序运行期间返回或返回或设置当前置当前显示示的或用的或用户选择的的驱动器号及卷器号及卷标，默
32、，默认值为当前当前驱动器。器。该属性属性设计时不可用。当不可用。当Dive值改改变时，会引，会引发其其Change事事件。件。格式：格式：对象象.Drive=指定所指定所选择的的驱动器。如器。如“A:”、“C:”等。等。从列表框中从列表框中选择驱动器并不能改器并不能改变计算机系算机系统当前的工作当前的工作驱动器。但可以通器。但可以通过ChDrive语句来句来实现。如。如ChDriveDrive1.Drive。二、目二、目录列表控件（列表控件（DirListBox）图3-2521目目录列表框列表框目目录列表框以列表框以层次次结构构显示指定目示指定目录下所有的一下所有的一级子目子目录。如。如图3-
33、21所示。所示。用用户常用属性常用属性Path。Path属性：用于返回或属性：用于返回或设置当前属性。默置当前属性。默认值是当前路径。是当前路径。该属性属性设计时是不可用的。当是不可用的。当Path值改改变时，会引，会引发其其Change事件。事件。格式：格式：对象象.Path=表示路径名的字符串表达式。如表示路径名的字符串表达式。如“C:mydir”。从列表框中从列表框中选择目目录并不能改并不能改变计算机系算机系统当前的工作目当前的工作目录。但可以通。但可以通过ChDir语句来句来实现。 图3-21目目录列表框列表框三、文件列表控件（三、文件列表控件（FileListBox）1.Path属属
34、性性。用用于于返返回回或或设置置文文件件列列表表框框当当前前目目录，设计时不不可可用用。如如“C:ProgramFilesJava”。当。当Path值改改变时，会引，会引发其其Change事件。事件。2.Pattern属属性性。用用于于返返回回或或设置置文文件件列列表表框框所所显示示的的文文件件类型型。可可在在设计状状态或或在在程程序序运运行行时设置置。如如File1.Pattern=*.bmp;*.jpg;*.gif。默默认值为“* *.*”，表表示示显示示所所有有的的文文件件。当当Pattern值改改变时，会会引引发其其PatternChange事件。事件。3.FileName属性。用于返
35、回或属性。用于返回或设置被置被选定文件的文件名，定文件的文件名，设计时不可用不可用。图3-22文件列表框文件列表框四、文件系统控件的联动四、文件系统控件的联动例例题3-16：新建一个窗体，界面如：新建一个窗体，界面如图3-23所示。要求程序运行所示。要求程序运行时，文件系，文件系统控件控件联动；在文件列表框中；在文件列表框中选择每个文件，都每个文件，都能能显示出其完整的路径和文件名。示出其完整的路径和文件名。图图3-23文件系统控件联动示例文件系统控件联动示例表表3-20各各对象的主要属性象的主要属性设置置对象属性(属性值)属性(属性值)窗体Name(Form1)Caption(“文件系统控件
36、联动示例”)标签1Name(Label1)Caption(“”),BorderStyle(1-fixedsingle)标签2Name(Label2)Caption(“当前选中的文件”)框架Name(Frame1)Caption(“”)驱动器控件Name(Drive1)目录控件Name(Dir1)文件控件Name(File1)程序代码如下：OptionExplicitPrivateSubDir1_Change()File1.Path=Dir1.Path设置文件列表框与目录列表框联动EndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.Drive设置目录列
37、表框与驱动器列表框联动EndSubPrivateSubFile1_Click()DimFnameAsStringIfRight(File1.Path,1)=ThenFname=File1.Path&File1.FileNameElseFname=File1.Path&File1.FileNameEndIfLabel1.Caption=FnameEndSubPrivateSubForm_Load()ChDriveApp.Path设置当前驱动器ChDirApp.Path设置当前目录EndSub第六第六节 定定时器控件器控件1.属性属性（1）Interval属性：属性：该属性表示两个定属性表示两个定
38、时器事件器事件这间的的时间间隔，是定隔，是定时器最重要的属性。其属性器最重要的属性。其属性值以毫秒（以毫秒（ms）为单位，取位，取值范范围为064767之之间（包括（包括这两个数两个数值）。当）。当Interval=1000时，表示，表示时间间隔隔为1秒秒钟。当。当Interval=0时，表示屏蔽定，表示屏蔽定时器。因器。因为计时器在器在1秒秒钟内最多内最多产生生18个事件，所以两个事件之个事件，所以两个事件之间的的时间间隔精确度不超隔精确度不超过1/18秒。秒。（2）Enabled属性：只要属性：只要Enabled=True并且并且Interval0，则定定时器工器工作；当作；当Enable
39、d=False时，定，定时器停止工作。器停止工作。2.Timer事件：定事件：定时器只能响器只能响应这一事件。当一事件。当Enabled=True并且并且Interval0时，Timer事件以事件以Interval属性指定的属性指定的时间间隔隔发生，需要生，需要定定时执行的操作即放在行的操作即放在该事件事件过程中完成。程中完成。例例题3-17：新建一个窗体，界面如：新建一个窗体，界面如图3-24所示。要求：程序运行所示。要求：程序运行时，标签显示当前示当前时间，每隔，每隔1秒更新一次秒更新一次时间；时间标签在窗体内上下左在窗体内上下左右移右移动，设每每19毫秒移毫秒移动10twip（窗体坐（窗
40、体坐标默默认单位）。移位）。移动方式遵方式遵循反循反弹规律，即触窗体律，即触窗体边缘后反后反弹；每隔；每隔3秒，秒，时间标签的的颜色随机色随机变化一次。化一次。图3-24定定时器控件示例器控件示例在属性窗口中按表在属性窗口中按表3-21设置各置各对象的属性象的属性。表表3-21各各对象的主要属性象的主要属性设置置对象属性(属性值)属性(属性值)窗体Name(Form1)Caption(“定 时 器 控 件 示 例 ”),BorderStyle(1-fixedsingle)标签1Name(LblNow)Caption(“Label1”)，AutoSize(True)定时器控件1Name(Time
41、r1)定时器控件2Name(Timer2)定时器控件3Name(Timer3)程序代码如下：OptionExplicitDimstep1AsIntegerDimstep2AsIntegerPrivateSubForm_Load()Timer1.Interval=1000时钟1的时间间隔为1秒Timer1.Enabled=TrueTimer2.Interval=19时钟2的时间间隔为19毫秒Timer2.Enabled=TrueTimer3.Interval=3000时钟3的时间间隔为3秒Timer3.Enabled=TrueWithLblNow定义时间标签属性.FontSize=18.Font
42、Name=隶书.Caption=当前时间&Time()EndWithstep1=1step2=1EndSubPrivateSubTimer1_Timer()LblNow.Caption=当前时间&Time()每隔1秒更新标签内容为当前时间EndSubPrivateSubTimer2_Timer()CallMyMove调用MyMove过程移动时间标签LblNow.Refresh标签自动刷新EndSubPrivateSubTimer3_Timer()Randomize(Timer)初始化随机函数LblNow.ForeColor=Rnd*&HFFFFFF时间标签每3秒取得一个随机颜色EndSub自定
43、义过程MyMove，使时间标签在窗体内上下左右移动。PrivateSubMyMove()LblNow.Top=LblNow.Top+10*step1LblNow.Left=LblNow.Left+10*step2IfLblNow.Top=form2.Height-2*LblNow.HeightThenstep1=-1ElseIfLblNow.Top=form2.Width-LblNow.WidthThenstep2=-1ElseIfLblNow.Left=0Thenstep2=1EndIfEndSub第七第七节 滚动条控件条控件表表3-22水平、垂直水平、垂直滚动条的重要属性条的重要属性属性描
44、述Max和MinMax和Min分别决定了当滑块处于滚动条的最大位置和最小位置时，所代表的值。二者的取值范围为-3276832767之间。默认值Max为32767，Min为0。SmallChange该属性又被称为最小变动值属性，它表示当用户单击滚动条两端的箭头时，滑块移动的增值量。取值范围：132767。LargeChange该属性又被称为最大变动值属性，它表示当用户单击滚动条的空白处时，滑块移动的增值量。取值范围：132767。Value该属性表示滚动条内滑块所处位置所代表的值。表表3-23水平、垂直水平、垂直滚动条的重要事件条的重要事件表表3-24各各对象的主要属性象的主要属性设置置对象属性
45、(属性值)属性(属性值)窗体Name(Form1)Caption(“滚 动 条 控 件 示 例 ”) ,BorderStyle(1-fixedsingle)水平滚动条1Name(HsbRed)代表红色调节器水平滚动条2Name(HsbGreen)代表绿色调节器水平滚动条3Name(HsbBlue)代表蓝色调节器标签1Name(LblExample)Caption(“颜色调节器”)，AutoSize(True)，Font(黑体，加粗，36磅)标签2Name(Label2)Caption(“红”)标签3Name(Label3)Caption(“绿”)标签4Name(Label4)Caption(“
46、蓝”)标签5Name(LblRed)Caption(“”)标签6Name(LblGreen)Caption(“”)标签7Name(LblBlue)Caption(“”)程序代程序代码如下：如下：OptionExplicitDimR%,G%,B%定定义三个模三个模块级变量量R,G,BPrivateSubForm_Load()R=0:G=0:B=0给三个三个变量都量都设定初定初值0WithHsbRed设置置“红色色”调节滚动条条.Max=255.Min=0.LargeChange=20.SmallChange=1.Value=0EndWithWithHsbGreen设置置“绿色色”调节滚动条条.M
47、ax=255.Min=0.LargeChange=20.SmallChange=1.Value=0EndWith三个标签显示三个滚动条的值LblRed.Caption=HsbRed.ValueLblGreen.Caption=HsbGreen.ValueLblBlue.Caption=HsbBlue.ValueEndSub蓝色滚动条HsbBlue的Change事件过程代码PrivateSubHsbBlue_Change()B=HsbBlue.Value将蓝色滚动条的值给变量BLblBlue.Caption=HsbBlue.Value将蓝色滚动条的值在标签中显示出来LblExample.Fore
48、Color=RGB(R,G,B)滚动条的变化传递给标签的前景颜色EndSub绿色滚动条HsbGreen的Change事件过程代码PrivateSubHsbGreen_Change()G=HsbGreen.ValueLblGreen.Caption=HsbGreen.ValueLblExample.ForeColor=RGB(R,G,B)EndSub红色滚动条HsbRed的Change事件过程代码PrivateSubHsbRed_Change()R=HsbRed.ValueLblRed.Caption=HsbRed.ValueLblExample.ForeColor=RGB(R,G,B)EndS
49、ub小结小结 本本章章主主要要通通过过实实例例的的讲讲解解来来过过程程介介绍绍常常用用基基本本控控件件的的主主要要属属性性、事事件件和和方方法法，而而不不是是简简单单的的知知识识堆堆叠叠。读读者者在在实实际际操操作作各各实实例例的的过过程程中中，自自然然就就体体会会到到了了控控件件的的用用法法。本本章章介介绍绍的的重重点点是是选选择择控控件件，篇篇幅幅稍稍多多些些。每每种种控控件件的的应应用用实实例例都都是是作作者者精精心心设设计计和和安安排排的的，希希望望能能起起来来通通俗俗易易懂懂的的效效果果。本本章章没没有有介介绍绍所所有有的的常常用用控控件件，主主要要目目的的是是通通过过几几个个典典型型的的控控件件讲讲解解，以以最最小小的的篇篇幅幅，以以最最少少的的时时间间来来快快速速提提高高读读者者学学习习控控件件的的方方法法。至至于于其其他他的的控控件件用用法法，可可参参阅阅相相应应资资料料。独独立立查阅资料本身就是一项重要能力。查阅资料本身就是一项重要能力。
