《清华大学VB经典教案第三节顺序结构程序设计》由会员分享，可在线阅读，更多相关《清华大学VB经典教案第三节顺序结构程序设计（28页珍藏版）》请在金锄头文库上搜索。
1、第第3章章 顺序结构程序设计顺序结构程序设计 一个一个Visual Basic应用程序由多个过程组成，在过程中程序的应用程序由多个过程组成，在过程中程序的控制结构仍然采用结构化程序设计的控制结构仍然采用结构化程序设计的三种基本结构三种基本结构：顺序结构、：顺序结构、选择结构、循环结构。选择结构、循环结构。 3.1 文本与按钮控件文本与按钮控件3.1.1 标签标签 标签主要用于显示只读的文本信息，即标签只能显示文本，不标签主要用于显示只读的文本信息，即标签只能显示文本，不能对显示的文本进行编辑。能对显示的文本进行编辑。1标签的常用属性标签的常用属性（1）Caption属性：在标签中显示的文本内容
2、（标题）。属性：在标签中显示的文本内容（标题）。（2）Alignment属性：标签的对齐方式：左对齐（属性：标签的对齐方式：左对齐（0-Left Justify）、右对齐（）、右对齐（1-Right Justify）、居中（）、居中（2-Center）。）。（3）BorderStyle属性：标签的边框样式，默认为无边框。属性：标签的边框样式，默认为无边框。（4）BackStyle属性：标签透明或不透明，默认为不透明，会挡属性：标签透明或不透明，默认为不透明，会挡住它后面的控件。住它后面的控件。1（5）AutoSize属性：标签是否会根据属性：标签是否会根据Caption属性指定的标题属性指定的
3、标题自动改变标签水平方向的大小。自动改变标签水平方向的大小。（6）WordWrap属性：标签是否会根据属性：标签是否会根据Caption属性指定的标属性指定的标题自动改变标签垂直方向的大小。题自动改变标签垂直方向的大小。2标签的常用事件标签的常用事件 标签的常用事件是标签的常用事件是Click、DblClick事件。事件。【例【例3-1】利用标签的利用标签的BackStyle属性设计文字的阴影效果。属性设计文字的阴影效果。 23.1.2 文本框文本框 文本框是一个文本编辑区域，在程序运行期间都可以在这个文本框是一个文本编辑区域，在程序运行期间都可以在这个区域中输入、编辑和显示文本。区域中输入、
4、编辑和显示文本。1文本框的常用属性文本框的常用属性（1）Text属性属性 该属性用于设置或返回文本框中输入或显示的内容。该属性用于设置或返回文本框中输入或显示的内容。（2）MaxLength属性属性 一般用于文本框作为密码输入框时，限制输入文本的长度。一般用于文本框作为密码输入框时，限制输入文本的长度。（3）MultiLine属性属性 文本框是否可以输入或输出多行文本，该属性默认值为文本框是否可以输入或输出多行文本，该属性默认值为False，则在文本框中只能输入单行文本。，则在文本框中只能输入单行文本。（4）PasswordChar属性属性 该属性可用于密码输入，如果把该属性可用于密码输入，如
5、果把PasswordChar属性设置为一属性设置为一个字符，如：星号个字符，如：星号“*”，则在文本框中键入字符时，显示的不是，则在文本框中键入字符时，显示的不是键入的字符，而是被设置的字符（如：星号）。键入的字符，而是被设置的字符（如：星号）。 注意注意：文本框的：文本框的MultiLine属性和属性和PasswordChar属性不能同属性不能同时使用。时使用。3（5）ScrollBars属性属性 该属性用于确定文本框是否有滚动条，默认为文本框没有滚该属性用于确定文本框是否有滚动条，默认为文本框没有滚动条，可以给文本框设置水平滚动条、垂直滚动条或者同时具有动条，可以给文本框设置水平滚动条、垂
6、直滚动条或者同时具有水平和垂直滚动条。水平和垂直滚动条。 注意注意：只有当：只有当MultiLine属性值被设置为属性值被设置为True时，才能用时，才能用ScrollBars 属性为文本框设置滚动条。属性为文本框设置滚动条。（6）SelStart属性属性 文本框中选中文本的开始位置。文本框中选中文本的开始位置。（7）SelLength属性属性 文本框中选中文本的长度（字符数）。文本框中选中文本的长度（字符数）。（8）SelText属性属性 文本框中选中的文本。文本框中选中的文本。（9）Locked属性属性 该属性用于指定文本框是否可编辑（锁定）。当该属性用于指定文本框是否可编辑（锁定）。当L
7、ocked属性属性值为值为False（默认值）时，可以编辑文本框中的文本；当（默认值）时，可以编辑文本框中的文本；当Locked属性值为属性值为True时，不能编辑文本框中的文本。类似地，当时，不能编辑文本框中的文本。类似地，当Enabled属性值为属性值为True（默认值）时，可以编辑文本框中的文本；（默认值）时，可以编辑文本框中的文本；当当Enabled属性值为属性值为False时，不能编辑文本框中的文本。时，不能编辑文本框中的文本。 42文本框的常用事件文本框的常用事件（1）Change事件事件 当改变文本框中的内容时触发其当改变文本框中的内容时触发其Change事件。事件。（2）Key
8、Press事件事件 当焦点在文本框中时，按下大小写字母键、数字键、标当焦点在文本框中时，按下大小写字母键、数字键、标点符号键、空格键、点符号键、空格键、Esc键、键、BackSpace键、键、Enter键、键、Tab键时键时触发其触发其KeyPress事件。事件。（3）GotFocus事件事件 当文本框得到焦点时触发其当文本框得到焦点时触发其GotFocus事件。事件。（4）LostFocus事件事件 当文本框失去焦点时触发其当文本框失去焦点时触发其LostFocus事件。事件。3文本框的常用方法文本框的常用方法 文本框的常用方法是文本框的常用方法是SetFocus，该方法使文本框获得焦，该方
9、法使文本框获得焦点。点。53.1.3 命令按钮命令按钮 命令按钮常用于执行用户的命令。命令按钮常用于执行用户的命令。1命令按钮的常用属性命令按钮的常用属性（1）Caption属性属性 在命令按钮上显示的文本内容（标题）。在命令按钮上显示的文本内容（标题）。（2）Default属性属性 是否为默认命令按钮，当一个命令按钮的是否为默认命令按钮，当一个命令按钮的Default属性属性值设为值设为True时，当焦点不在任何一个命令按钮上时，按下回车时，当焦点不在任何一个命令按钮上时，按下回车键，相当于单击该命令按钮。在一个窗体中，键，相当于单击该命令按钮。在一个窗体中，最多只能有一个最多只能有一个命令
10、按钮的命令按钮的Default属性值被设置为属性值被设置为True。（3）Cancel属性属性 是否为取消命令按钮，当一个命令按钮的是否为取消命令按钮，当一个命令按钮的Cancel属性值属性值设置为设置为True时，任意时刻按下时，任意时刻按下Esc键，相当于单击该命令按钮。键，相当于单击该命令按钮。在一个窗体中，在一个窗体中，最多只能有一个最多只能有一个命令按钮的命令按钮的Cancel属性值被设属性值被设置为置为True。6（4）Style属性属性 设置文本框的样式。可以实现两种样式：设置文本框的样式。可以实现两种样式：0-Standard（标（标准样式，默认）、准样式，默认）、1-Grap
11、hical（图形样式）。（图形样式）。（5）Picture属性属性 用该属性可以给命令按钮指定一个图形。为了使用这个属用该属性可以给命令按钮指定一个图形。为了使用这个属性，必须把性，必须把Style属性设置为图形样式。属性设置为图形样式。（6）DownPicture属性属性 设置当控件被单击并处于按下状态时在控件中显示的图形。设置当控件被单击并处于按下状态时在控件中显示的图形。为了使用这个属性，必须把为了使用这个属性，必须把Style属性设置为属性设置为1-Graphical，否则，否则DownPicture属性将被忽略。属性将被忽略。（7）DisabledPicture属性属性 设置当命令按
12、钮被禁止使用，即设置当命令按钮被禁止使用，即Enabled属性值为属性值为False时，时，在命令按钮上显示的图形。和前两个属性一样，必须把在命令按钮上显示的图形。和前两个属性一样，必须把Style属属性设置为性设置为l-Graphical才能使才能使DisabledPicture属性生效。属性生效。7（8）Value属性属性 该属性仅在程序运行时有效，当该属性仅在程序运行时有效，当Value属性值为属性值为True时，时，相当于相当于Click该命令按钮。该属性一般用于模拟产生用户的该命令按钮。该属性一般用于模拟产生用户的Click事件，可用于编写演示程序。事件，可用于编写演示程序。2命令按
13、钮的常用事件命令按钮的常用事件 命令按钮最常用的事件是命令按钮最常用的事件是Click事件，命令按钮不支持事件，命令按钮不支持DblClick事件。事件。3命令按钮的常用方法命令按钮的常用方法 命令按钮的命令按钮的SetFocus方法可以使该命令按钮获得焦点。方法可以使该命令按钮获得焦点。【例【例3-2】输入球的半输入球的半径，计算并输出球的体径，计算并输出球的体积和表面积。积和表面积。 83.2 焦点与焦点与Tab键顺序键顺序3.2.1 焦点焦点 焦点的作用是使窗体中的某个控件成为焦点的作用是使窗体中的某个控件成为“当前当前”控件或控件或“活动活动”控件，这样，该控件将可以接收用户的输入。控
14、件，这样，该控件将可以接收用户的输入。1与焦点有关的常用事件与焦点有关的常用事件 当对象得到焦点时，将触发其当对象得到焦点时，将触发其GotFocus事件；而当对象事件；而当对象失去焦点时，将触发其失去焦点时，将触发其LostFocus事件。事件。2与焦点有关的常用方法与焦点有关的常用方法 在程序代码中使用对象的在程序代码中使用对象的SetFocus方法，可以使对象获得方法，可以使对象获得焦点。焦点。 下面的下面的操作操作可以使对象获得焦点：可以使对象获得焦点： （1）程序运行时单击该对象；）程序运行时单击该对象； （2）程序运行时按下访问键选择该对象；）程序运行时按下访问键选择该对象； （3
15、）程序运行时按）程序运行时按Tab键。键。9注意注意：（1）只有当控件的）只有当控件的Enabled属性和属性和Visible属性值均为属性值均为True时，时，控件才能接收焦点；控件才能接收焦点；（2）并不是所有对象都可以接收焦点，某些控件，如：框架、）并不是所有对象都可以接收焦点，某些控件，如：框架、标签、菜单控件、直线、形状、图像控件和计时器控件都不能标签、菜单控件、直线、形状、图像控件和计时器控件都不能接收焦点；接收焦点；（3）焦点在不同控件上的表现形式不同，如：文本框的焦点）焦点在不同控件上的表现形式不同，如：文本框的焦点是一个闪烁的光标，命令按钮、复选框、单选按钮的焦点是一是一个闪
16、烁的光标，命令按钮、复选框、单选按钮的焦点是一个虚线框。个虚线框。3.2.2 Tab键顺序键顺序 Tab键顺序就是按键顺序就是按Tab键时焦点在控件之间移动的顺序，键时焦点在控件之间移动的顺序，一般情况下，一般情况下，Tab键顺序由控件建立时的先后顺序确定。键顺序由控件建立时的先后顺序确定。10与控件的与控件的Tab键顺序有关的属性如下：键顺序有关的属性如下：（1）TabIndex属性属性 控件的控件的TabIndex属性决定了按属性决定了按Tab键时控件获得焦点的键时控件获得焦点的先后顺序。默认情况下，第一个添加的控件其先后顺序。默认情况下，第一个添加的控件其TabIndex属性属性值为值为
17、0，第二个添加的控件其，第二个添加的控件其TabIndex属性值为属性值为1，以此类推。，以此类推。当改变某个控件的当改变某个控件的TabIndex属性值时，属性值时，Visual Basic会自动调会自动调整其他控件的整其他控件的TabIndex属性值。属性值。（2）TabStop属性属性 控件的控件的TabStop属性决定了焦点是否会停在该控件上，当属性决定了焦点是否会停在该控件上，当控件的控件的TabStop属性值为属性值为False时，按下时，按下Tab键，焦点将跳过该键，焦点将跳过该控件。控件。113.3 InputBox函数函数 用用InputBox函数（输入框函数）产生一个输入框
18、，可以输函数（输入框函数）产生一个输入框，可以输入一个数据（文本），用户输入数据后，按回车键或单击入一个数据（文本），用户输入数据后，按回车键或单击“确确定定”按钮，将输入数据赋给赋值符号前的变量。其语法格式如按钮，将输入数据赋给赋值符号前的变量。其语法格式如下：下： 变量名变量名=InputBox(,) 其中，其中，是必选参数，是字符串，在其中可以含是必选参数，是字符串，在其中可以含有回车符有回车符Chr(13)、换行符、换行符Chr(10)，或系统符号常量，或系统符号常量vbCrLf，实现多行文本的显示；后两个参数是可选参数，可以省略，但实现多行文本的显示；后两个参数是可选参数，可以省略，
19、但如果仅仅只是省略第二个参数，则第二个参数前的逗号不能省如果仅仅只是省略第二个参数，则第二个参数前的逗号不能省略。略。InputBox函数的三种函数的三种简化形式简化形式：（1）变量名）变量名=InputBox()（2）变量名）变量名=InputBox(,)（3）变量名）变量名=InputBox(, ,)12【例【例3-3】用用InputBox函数输入长函数输入长方形的长和宽，计算并输出长方方形的长和宽，计算并输出长方形的面积。形的面积。 3.4 数据输出数据输出3.4.1 与输出有关的属性和方法与输出有关的属性和方法1与输出有关的属性与输出有关的属性 CurrentX、CurrentY属性用
20、于设置或返回在窗体、图属性用于设置或返回在窗体、图片框或打印机上当前输出位置的横坐标、纵坐标。片框或打印机上当前输出位置的横坐标、纵坐标。2与输出有关的方法与输出有关的方法 TextWidth、TextHeight方法分别返回文本或字符串的宽方法分别返回文本或字符串的宽度和高度，这两个返回值的大小与窗体、图片框或打印机的字度和高度，这两个返回值的大小与窗体、图片框或打印机的字形属性有关。形属性有关。TextWidth、TextHeight方法的语法格式如下：方法的语法格式如下： = .TextWidth (字符串字符串) = .TextHeight(字符串字符串) 其中，其中，可以是窗体、图片
21、框或打印机，如果是可以是窗体、图片框或打印机，如果是当前窗体可省略当前窗体可省略。133.4.2 用用Print方法输出数据方法输出数据1Print方法方法 Print方法的语法格式如下：方法的语法格式如下：.Print Spc(n)|Tab(n);|,说明：说明：（1）可以是窗体、图片框或打印机，如果是当前可以是窗体、图片框或打印机，如果是当前窗体可省略窗体可省略；（2）中的表达式可以是算术表达式、字符串表中的表达式可以是算术表达式、字符串表达式、关系表达式或布尔表达式。如果是字符串，则原样输达式、关系表达式或布尔表达式。如果是字符串，则原样输出（将双引号去掉后直接输出）；如果是正数，在数值
22、前有出（将双引号去掉后直接输出）；如果是正数，在数值前有一个空格；一个空格；（3）当输出多个表达式时，如果表达式之间用逗号）当输出多个表达式时，如果表达式之间用逗号“,”分隔，则以标准格式（分隔，则以标准格式（14个字符的宽度）输出；如果表达式个字符的宽度）输出；如果表达式之间用分号之间用分号“;”分隔，则以紧凑格式（连续）输出；分隔，则以紧凑格式（连续）输出；14（4）如果）如果Print方法的行尾有逗号，则下一个方法的行尾有逗号，则下一个Print方法的输方法的输出内容，接着当前输出内容的后面，以标准格式输出；如果出内容，接着当前输出内容的后面，以标准格式输出；如果Print方法的行尾有分
23、号，则下一个方法的行尾有分号，则下一个Print方法的输出内容，接方法的输出内容，接着当前输出内容的后面，以紧凑格式输出；如果着当前输出内容的后面，以紧凑格式输出；如果Print方法的方法的行尾，既没有逗号也没有分号，则自动换行；行尾，既没有逗号也没有分号，则自动换行；（5）如果省略表达式，则输出一个空行；）如果省略表达式，则输出一个空行；（6）Print方法后的表达式是输出表达式的计算结果。方法后的表达式是输出表达式的计算结果。注意注意：（1）输入关键字）输入关键字Print时，可以只输入一个时，可以只输入一个“？”，Visual Basic会自动将其转换为会自动将其转换为Print；（2）
24、若要在）若要在Form_Load事件过程中，在窗体或图片框中使事件过程中，在窗体或图片框中使用用Print方法输出数据，则必须将窗体或图片框的方法输出数据，则必须将窗体或图片框的AutoRedraw属性值设为属性值设为True（默认值为（默认值为False），否则，在窗体或图片框中），否则，在窗体或图片框中使用使用Print方法输出的数据将消失。方法输出的数据将消失。15【例【例3-4】窗体输出。在窗体的窗体输出。在窗体的中央位置输出中央位置输出“计算机等级考试计算机等级考试”，如图，如图3-5所示。所示。 【例【例3-5】图片框输出。在窗图片框输出。在窗体上画体上画1个图片框个图片框Pict
25、ure1，在图片框的中央位置输出在图片框的中央位置输出“计算机等级考试计算机等级考试”，如图，如图3-6所示。所示。 162与与Print方法有关的函数方法有关的函数（1）Tab(n)函数函数 从输出对象左边的第从输出对象左边的第n列或第列或第n个字符的位置开始输出。个字符的位置开始输出。（2）Spc(n)函数函数 输出输出n个空格。个空格。 注意注意：在：在Print方法中，使用这两个函数时，输出表达式方法中，使用这两个函数时，输出表达式之间要用分号作为分隔符。之间要用分号作为分隔符。3窗体或图片框的清除方法窗体或图片框的清除方法 Cls方法可以清除窗体或图片框中用方法可以清除窗体或图片框中
26、用Print方法和图形方法方法和图形方法在程序运行时所产生的文本或图形，清除后的区域以背景色在程序运行时所产生的文本或图形，清除后的区域以背景色填充。填充。Cls方法的语法格式如下：方法的语法格式如下：.Cls 其中，其中，可以是窗体或图片框，如果省略，则清可以是窗体或图片框，如果省略，则清除当前窗体上用除当前窗体上用Print方法和图形方法在程序运行时所产生的方法和图形方法在程序运行时所产生的文本或图形。文本或图形。17【例【例3-6】用用Print方法在窗体上输方法在窗体上输出，如图出，如图3-7所示。所示。 3.4.3 MsgBox函数函数 MsgBox函数（消息框函数）用于实现信息提示
27、以及与用函数（消息框函数）用于实现信息提示以及与用户的信息交互功能。户的信息交互功能。MsgBox函数的语法格式如下：函数的语法格式如下：变量名变量名=MsgBox(,) 其中，其中，是必选参数，是字符串，在其中可以是必选参数，是字符串，在其中可以含有回车符含有回车符Chr(13)、换行符、换行符Chr(10)，或系统符号常量，或系统符号常量vbCrLf，实现多行文本的显示；后两个参数是可选参数，可以省略，实现多行文本的显示；后两个参数是可选参数，可以省略，但如果仅仅只是省略第二个参数，则第二个参数前的逗号不能但如果仅仅只是省略第二个参数，则第二个参数前的逗号不能省略。省略。由三个整数值组成：
28、按钮类型、图标类由三个整数值组成：按钮类型、图标类型、默认按钮，见表型、默认按钮，见表3-3，这三个数值可以用，这三个数值可以用“+”号连接成一号连接成一个参数。个参数。18分分类设置置值系系统定定义的符号常量的符号常量含含 义按按钮类型型0vbvbOk kOnlynly只只显示示“确定确定”按按钮1 1vbvbOkCancelkCancel显示示“确定确定”、“取消取消”按按钮2 2vbAbortRetryIgnorvbAbortRetryIgnor显示示“终止止”、“重重试”、“忽略忽略”按按钮3 3vbYesNoCancelvbYesNoCancel显示示“是是”、“否否”、“取消取消”
29、按按钮4 4vbYesNovbYesNo显示示“是是”、“否否”按按钮5 5vbRetryCancelvbRetryCancel显示示“重重试”、“取消取消”按按钮图标类型型1616vbCriticalvbCritical显示示“停止停止”图标3232vbQuestionvbQuestion显示示“询问”图标？4848vbExclamationvbExclamation显示示“警告警告”图标！6464vbInformationvbInformation显示示“信息信息”图标i i默默认按按钮0vbDefaultButton1vbDefaultButton1第一个按第一个按钮是默是默认按按钮25
30、6256vbDefaultButton2vbDefaultButton2第二个按第二个按钮是默是默认按按钮512512vbDefaultButton3vbDefaultButton3第三个按第三个按钮是默是默认按按钮19MsgBox函数的三种函数的三种简化形式简化形式：（1）变量名）变量名= MsgBox ()（2）变量名）变量名= MsgBox (,)（3）变量名）变量名= MsgBox (, , )返回返回值系系统定定义的符号常量的符号常量对应的消息框按的消息框按钮1 1vbvbOk k“确定确定”按按钮2 2vbCancelvbCancel“取消取消”按按钮3 3vbAbortvbAbo
31、rt“终止止”按按钮4 4vbRetryvbRetry“重重试”按按钮5 5vbIgnorvbIgnor“忽略忽略”按按钮6 6vbYesvbYes“是是”按按钮7 7vbNovbNo“否否”按按钮203.4.4 MsgBox语句语句 如果不需要返回值，则可以使用如果不需要返回值，则可以使用MsgBox语句，其语法格式语句，其语法格式如下：如下： MsgBox ,注意注意：（1）MsgBox语句后没有圆括号，有一个空格，其余参数的语句后没有圆括号，有一个空格，其余参数的含义以及含义以及MsgBox语句的简化形式与语句的简化形式与MsgBox函数完全一致；函数完全一致；（2）MsgBox语句仅仅
32、用于实现信息提示功能。语句仅仅用于实现信息提示功能。3.5 打印机输出打印机输出 在在Visual Basic应用程序中的打印机输出有两种方式：直接应用程序中的打印机输出有两种方式：直接输出和窗体输出。输出和窗体输出。3.5.1 直接输出直接输出 所谓直接输出，就是把信息直接送往打印机打印，使用的所谓直接输出，就是把信息直接送往打印机打印，使用的方法仍然是方法仍然是Print方法，只是把方法，只是把Print方法的对象改为方法的对象改为Printer，其语法格式如下：其语法格式如下： Printer.Print Spc(n)|Tab(n);|,21在打印机对象中，常用的属性和方法如下：在打印机
33、对象中，常用的属性和方法如下： 1Page属性属性 Page属性返回当前正在打印的页码，其语法格式如下：属性返回当前正在打印的页码，其语法格式如下： Printer.Page2NewPage方法方法 NewPage方法用于实现换页操作，其语法格式如下：方法用于实现换页操作，其语法格式如下： Printer.NewPage3EndDoc方法方法 EndDoc方法用于结束文档打印，其语法格式如下：方法用于结束文档打印，其语法格式如下： Printer.EndDoc【例【例3-7】直接打印输出。单击窗体时，在打印机的中央位置直接打印输出。单击窗体时，在打印机的中央位置输出输出“计算机等级考试计算机等
34、级考试”。 3.5.2 窗体输出窗体输出 窗体输出是先把要输出的信息输出到窗体上，然后再用窗体的窗体输出是先把要输出的信息输出到窗体上，然后再用窗体的PrintForm方法把窗体上的内容打印出来，其语法格式如下：方法把窗体上的内容打印出来，其语法格式如下： .PrintForm22PrintForm方法自动调用方法自动调用EndDoc方法清空打印机。方法清空打印机。说明：说明：（1）为了使用窗体输出，必须在属性窗口中将要打印窗体的）为了使用窗体输出，必须在属性窗口中将要打印窗体的AutoRedraw属性值设置为属性值设置为True，该属性的默认值为，该属性的默认值为False；（2）用）用Pr
35、intForm方法不仅可以打印窗体上的文本，而且可方法不仅可以打印窗体上的文本，而且可以打印出窗体上的任何可见的控件及图形。以打印出窗体上的任何可见的控件及图形。【例【例3-8】窗体打印输出。单击窗体时，在窗体的中央位置输窗体打印输出。单击窗体时，在窗体的中央位置输出出“飘扬的旗帜飘扬的旗帜”，如图，如图3-9所示；双击窗体时，将窗体和窗所示；双击窗体时，将窗体和窗体上的内容打印出来。体上的内容打印出来。233.6 计时器控件计时器控件 计时器控件每隔一个计时间隔（计时器控件每隔一个计时间隔（Interval属性的值）自动属性的值）自动产生一个产生一个Timer事件，事件，Timer事件是由计
36、算机系统产生的系统事件是由计算机系统产生的系统事件。计时器控件运行时不显示，计时器控件一般用于实现动事件。计时器控件运行时不显示，计时器控件一般用于实现动态时钟和动画。态时钟和动画。1计时器控件的常用属性计时器控件的常用属性 Enabled属性可以控制计时器控件是否计时，默认值为属性可以控制计时器控件是否计时，默认值为True。 Interval属性是计时间隔，单位为毫秒，默认值为属性是计时间隔，单位为毫秒，默认值为0，不产生，不产生Timer事件。事件。2计时器控件的常用事件计时器控件的常用事件 计时器控件计时器控件只有一个只有一个事件：事件：Timer事件。事件。 【例【例3-9】动态数字
37、时钟。动态数字时钟。 243.7 直线与形状控件直线与形状控件3.7.1 直线直线 用直线控件用直线控件Line可以画简单的直线，通过属性的变化可以可以画简单的直线，通过属性的变化可以改变直线的宽度、颜色及线型。直线控件的常用属性如下：改变直线的宽度、颜色及线型。直线控件的常用属性如下：（1）BorderStyle属性属性 通过改变通过改变Line控件的控件的BorderStyle属性可以画出不同线形属性可以画出不同线形的直线。的直线。（2）BorderColor属性属性 用用BorderColor属性可以设置直线的颜色。属性可以设置直线的颜色。（3）X1、Y1、X2、Y2属性属性 可以设置或
38、返回可以设置或返回Line控件的控件的起点起点和和终点终点坐标。坐标。（4）BorderWidth属性属性 BorderWidth属性可以指定直线的宽度。属性可以指定直线的宽度。3.7.2 形状形状 使用形状控件使用形状控件Shape可以在窗体上绘制矩形、圆角矩形、可以在窗体上绘制矩形、圆角矩形、正方形、圆角正方形、圆或椭圆六种形状。正方形、圆角正方形、圆或椭圆六种形状。25形状控件的常用属性如下：形状控件的常用属性如下： （1）Shape属性属性 设置形状控件的形状，有六种形状。设置形状控件的形状，有六种形状。（2）FillStyle属性属性 设置形状控件内部的填充样式，有八种填充样式。设置
39、形状控件内部的填充样式，有八种填充样式。（2）BackStyle属性属性 BackStyle属性值为属性值为0-Transparent或或l-Opaque，用于设，用于设置形状控件透明或不透明。置形状控件透明或不透明。（3）FillColor属性属性 设置形状控件的填充颜色。设置形状控件的填充颜色。【例【例3-10】动态指针式秒表。动态指针式秒表。 在在Visual Basic的默认坐标系下，以的默认坐标系下，以(x0,y0)为圆心，为圆心，r为半径的圆上的点的坐标为半径的圆上的点的坐标为：为：26【例【例3-11】动态变换动态变换Shape控件的形状和填充样式。控件的形状和填充样式。 2728
