VB第3章电子讲稿

《VB第3章电子讲稿》由会员分享，可在线阅读，更多相关《VB第3章电子讲稿（59页珍藏版）》请在金锄头文库上搜索。

1、 一个完整的一个完整的VBVB应用程序，一般都包含三部分内容，即应用程序，一般都包含三部分内容，即 输入输入 处理处理 输出输出 可通过可通过VBVB语句、各种控件实现输入输出操作语句、各种控件实现输入输出操作 本章主要内容本章主要内容 赋值语句赋值语句 常用基本语句常用基本语句 使用使用Print方法输出数据方法输出数据 窗体和基本控件窗体和基本控件 命令按钮命令按钮/标签标签/文本框文本框 对话框对话框 输入对话框输入对话框/消息对话框消息对话框 程序举例程序举例第第3 3章章 赋值与输入输出赋值与输入输出 赋值语句是程序设计中最基本、最常用的语句赋值语句是程序设计中最基本、最常用的语句

2、格式：格式：LetLet变量名变量名= =表达式表达式 功能：计算右端的表达式，并把结果赋值给左端的变量功能：计算右端的表达式，并把结果赋值给左端的变量 例例3.13.1 已知已知a=6,b=9,a=6,b=9,计算计算c=c=a2 + b2a2 + b2 编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Single, b As Single, c As Single a = 6 b = 9 c = Sqr(a * a + b * b) Print c= & c End Sub 运行程序后单击窗体，输出结果如

3、下：运行程序后单击窗体，输出结果如下： C=10.81665C=10.81665 3.1 3.1 赋值语句赋值语句 本事件过程采用的是顺序程序结构，运行的过程是：本事件过程采用的是顺序程序结构，运行的过程是： 声明声明3 3个单精度变量个单精度变量a,b,ca,b,c 6a 6a 99b b 计算表达式，其结果计算表达式，其结果10.81665c10.81665c 输出结果输出结果 赋值含义赋值含义: : 将值送到变量的存储单元中去将值送到变量的存储单元中去说明：说明： (1)(1)表达式中的变量必须是赋过值的，否则变量的表达式中的变量必须是赋过值的，否则变量的初值自动取零值初值自动取零值(

4、(变长字符串变量取空字符变长字符串变量取空字符) )。例如：。例如： a = 1a = 1 c = a + b + c = a + b + 3 3 b b未赋过值，为未赋过值，为0 0 执行后，执行后，c c 值为值为 4 4 (2)(2)利用赋值语句，可以改变变量的值，因此，同利用赋值语句，可以改变变量的值，因此，同一变量在不同时刻可以取不同的值。一变量在不同时刻可以取不同的值。 Private Sub Form_Click() a = 3 : Print *A= & a a = 7 : Print *A= & a a = a * 2 + 3 : Print *A= & a End Sub

5、运行程序后单击窗体，输出的结果如下：运行程序后单击窗体，输出的结果如下： * *A=3A=3 *A=7 *A=7 *A=17 *A=17 (3) (3)赋值语句跟数学中等式具有不同的含意，例如赋值语赋值语句跟数学中等式具有不同的含意，例如赋值语句句x=x+1x=x+1, ,表示表示把变量把变量x x的当前值加上的当前值加上1 1后再将结果赋给变量后再将结果赋给变量 “先读后写先读后写”：读出读出x x的内容的内容 加加1 1 写回写回x x（覆盖原有内容）（覆盖原有内容） 例例3.2 示例示例 设计步骤如下：设计步骤如下： (1)(1)分析：分析：计算某年计算某年y y的元旦是星期几，可由以下

6、式子得出：的元旦是星期几，可由以下式子得出： F = y-1 +F = y-1 +(y-1)/4(y-1)/4- -(y-1)/100(y-1)/100+ +(y-1)/400(y-1)/400+ 1+ 1 其中其中 表示求整表示求整 K = FK = F Mod 7 Mod 7 F F除以除以7 7的余数的余数 y y为某年公元年号，计算出为某年公元年号，计算出K K为星期几为星期几 (2)(2)创建应用程序的用户界面创建应用程序的用户界面 例例3.33.3 设计一个设计一个“万年历万年历”程序，用来查看某程序，用来查看某 年的元旦是星期几年的元旦是星期几 ( (3)3)设置对象属性设置对象

7、属性 ( (4)4)编写程序代码编写程序代码 功能要求：用户在功能要求：用户在“输入年份输入年份”文本框文本框(Text1)(Text1)中输入某一中输入某一年份，单击年份，单击“查看查看”按钮时，则在按钮时，则在“星期星期”文本框文本框(Text2)(Text2)中中显示出星期几显示出星期几 编写的编写的“查看查看”按钮按钮(Command1)Click(Command1)Click事件过程代事件过程代码如下：码如下： Private Sub Command1_Click() Dim y As Integer, f As Integer, k As Intege y = Val(Text1.

8、Text) -1 f = y + Int(y/4) Int(y/100) + Int(y/400) + 1 k = f Mod 7 等价于等价于 f - Int(f / 7) * 7 吗吗 ? Text2.Text = k End Sub 运行结果（见上图）运行结果（见上图） 3.2.1 注释语句注释语句Rem 在程序的适应位置加上必要的注释，可以提高程序的可读性在程序的适应位置加上必要的注释，可以提高程序的可读性 语法格式：语法格式： Rem 注释内容注释内容 或或 注释内容注释内容 功能：在程序中加入注释内容，以便于对程序的理解。功能：在程序中加入注释内容，以便于对程序的理解。 例如例如

9、Rem 交换变量交换变量a和和b的值的值 c = a c为临时单元为临时单元 a = b b = c 说明：说明：(1)如果使用关键字如果使用关键字Rem，在，在Rem和注释内容之间要和注释内容之间要加一个空格。加一个空格。 (2)在其他语句后使用在其他语句后使用Rem关键字，必须使用冒号关键字，必须使用冒号(:)与前与前面的语句隔开。注释符面的语句隔开。注释符(单引号单引号)可以直接写在其他语句后面。可以直接写在其他语句后面。3.2 3.2 常用基本语句常用基本语句 语法格式：语法格式：Load 对象名对象名 功能：把对象名代表的窗体对象、控件数组元素等加载到功能：把对象名代表的窗体对象、控

10、件数组元素等加载到内存中。内存中。 说明：使用说明：使用Load语句可以加载窗体，但不显示窗体。当语句可以加载窗体，但不显示窗体。当VB加载窗体对象时，先把窗体属性设置为初始值，再执行加载窗体对象时，先把窗体属性设置为初始值，再执行Load事件过程。事件过程。 例如例如 Load Forml 加载窗体加载窗体Forml Load Option(2) 加载控件数组中的一个元素加载控件数组中的一个元素 3.2.2 加载对象语句加载对象语句Load 格式：格式：Unload Unload 对象名对象名 功能：从内存中卸载指定窗体或控件。功能：从内存中卸载指定窗体或控件。 如果卸载的对象是程序惟一的窗

11、体，则将终止程如果卸载的对象是程序惟一的窗体，则将终止程序的执行序的执行 例如例如 Private Sub Command1_Click()Private Sub Command1_Click() Unload Me Unload Me 卸载当前窗体卸载当前窗体 EndEnd Sub Sub Me Me是系统关键字，用来代表当前窗体是系统关键字，用来代表当前窗体 3.2.3 卸载语句卸载语句Unload 格式：格式：EndEnd 功能：结束程序的运行。功能：结束程序的运行。 也可以单击工具栏上的也可以单击工具栏上的“结束结束”按钮按钮 3.2.53.2.5 暂停语句暂停语句StopStop 格

12、式：格式：StopStop 功能：暂停程序的运行。可用于调试程序功能：暂停程序的运行。可用于调试程序( (设置断点设置断点) ) 也可以通过单击工具栏上的也可以通过单击工具栏上的“中断中断”按钮来实现按钮来实现 使用使用Ctrl + BreakCtrl + Break组合键组合键 3.2.4 3.2.4 结束语句结束语句EndEnd 3.3.13.3.1 Print Print方法方法 用于显示用于显示( (输出输出) )文本文本 格式：格式：对象名对象名. .Print Print 表达式列表表达式列表 说明：说明：(1)使用的对象可以是窗体等使用的对象可以是窗体等 Print Print

13、“程序设计程序设计” 在当前窗体上输出在当前窗体上输出 Picture1.Print Picture1.Print “程序设计程序设计” 在图片框上输出在图片框上输出 (2)表达式列表是一个或多个表达式，如果省略，则输出表达式列表是一个或多个表达式，如果省略，则输出一个空行一个空行 (3)(3)当输出多个表达式时，各表达式之间用分号当输出多个表达式时，各表达式之间用分号“；”( (紧紧凑格式凑格式) )或逗号或逗号“，”( (按区格式按区格式) )隔开。隔开。 按区格式按区格式(14(14个字符位置个字符位置) ) 3.3 使用使用Print方法输出数据方法输出数据例：例：Private Su

14、b Form_Click() a = 2 b = VB Print 50 * a 计算并输出表达式的值计算并输出表达式的值 Print b 输出变量的值输出变量的值 Print 输出空行输出空行 Print The Total is 输出字符串常量输出字符串常量 End Sub 运行结果：运行结果： 输出数值数据时，前面有一个符号位输出数值数据时，前面有一个符号位( (正号以空格表示正号以空格表示) )，后面留有一个空格；输出字符串时，前后不留空格。后面留有一个空格；输出字符串时，前后不留空格。 例：例：Private Sub Form_Click() a = 3: b = 4 Print a

15、, b, 4 + a, Print 2 * b Print a, , b Print a=; a, b=; b End Sub 运行结果运行结果 (4(4) )若语句行末尾有分号或逗号若语句行末尾有分号或逗号, ,则输出本行输出项后不换行则输出本行输出项后不换行编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, s As Integer, m As Single a = 6 : b = 21 : c = 2

16、3 : d = 15 s = a + b + c + d m = (a * 18 + b * 19 + c * 20 + d * 21) / s 以下舍入到小数后以下舍入到小数后1位位 Print 平均年龄：平均年龄：; Int(m * 10 + 0.5) / 10 End Sub 运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： 平均年龄：平均年龄：19.719.7 例例3.43.4 使用使用PrintPrint方法输出全班学生的平均年龄方法输出全班学生的平均年龄 已知已知1818岁岁6 6人，人，1919岁岁2121人，人，2020岁岁2323人，人，2121岁岁1515人

17、人 1. 1. SpcSpc函数函数 格式：格式：Spc(nSpc(n) ) 功能：在输出下一项之前插入功能：在输出下一项之前插入n n个空格。个空格。 例如：例如： PrintPrint 学号学号；Spc(2Spc(2) )；姓名姓名；Spc(5Spc(5) )；成绩成绩 输出结果输出结果(表示空格表示空格) )： 学号学号姓名姓名成绩成绩 3.3.23.3.2 特殊打印格式特殊打印格式 函数格式：函数格式：Tab(nTab(n) ) 功能：把输出位置移到第功能：把输出位置移到第n n列。列。 例如：例如： PrintPrint Tab(2);Tab(2);学号学号；Tab(11);Tab(

18、11);姓名姓名；Tab(21);Tab(21);成绩成绩 输出结果是输出结果是(1(1个汉字占个汉字占2 2个位置个位置) )： 学号学号姓名姓名成绩成绩 2. Tab函数函数程序代码如下：程序代码如下： Private Sub Form_Click() Print Print Tab(15); 学号学号; Tab(26); 姓名姓名; Tab(36); 成绩成绩 Print Tab(14); String(27, -) 输出输出27个减号字符个减号字符“-” Print Tab(14); 20011001; Tab(26); 张小三张小三; Tab(36); 57 Print Tab(14

19、); 20011003; Tab(26); 李小四李小四; Tab(36); 69 Print Tab(14); 20011012; Tab(26); 马小五马小五; Tab(36); 92 Print Tab(14); String(27, -) 输出输出27个减号字符个减号字符“-” End Sub例例3.53.5 使用使用TabTab对输出进行定位对输出进行定位 运行结果 格式：格式：FormatFormat( (表达式表达式 ,格式串格式串) 功能：根据格式串规定的格式来输出表达式的值功能：根据格式串规定的格式来输出表达式的值 a=4513.7 : b=3456.78 : TimeVa

20、r=#08:30:05# Print Format(a, #,#.#) Print Format(a, $#,#.00) Print Format(b, +#,#.#) Print Format(TimeVar, h:m:s) 输出结果是：输出结果是： 4,513.7 $4,513.70 +3,456.8 8:30:5 格式符号格式符号# #和和0 0都能显示数字，但符号都能显示数字，但符号# #会剔除不必要的会剔除不必要的0 0，符号，符号0 0会按规定补足会按规定补足0 0 3. Format函数函数 窗体窗体(Form)是设计是设计VB应用程序的基本平台应用程序的基本平台 窗体本身是一个

21、对象，又是其他对象的载体或容器窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体一个程序可以有多个窗体 3.4.1 3.4.1 窗体的基本属性窗体的基本属性 设置窗体的属性，可在程序设计时在属性窗口中设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现手工设置，也可以在程序运行时由代码实现 默认属性默认属性 3.4 窗体窗体 一些常用的窗体属性：一些常用的窗体属性： NameName属性属性：用于设置窗体的名称。：用于设置窗体的名称。指定窗体的名称。只读，指定窗体的名称。只读，不能在

22、应用程序中修改不能在应用程序中修改 CaptionCaption属性属性：用于设置窗体标题栏上的标题内容。：用于设置窗体标题栏上的标题内容。 MaxbuttonMaxbutton和和MinbuttonMinbutton属性属性：用于设置最大化和最小化按钮：用于设置最大化和最小化按钮 HeightHeight和和WidthWidth属性属性：确定窗体的初始高度和宽度：确定窗体的初始高度和宽度 LeftLeft和和TopTop属性属性：确定窗体的左上角在屏幕上的横、纵坐标：确定窗体的左上角在屏幕上的横、纵坐标 AppearanceAppearance属性属性：用于设置窗体的外观是平面还是三维的：用

23、于设置窗体的外观是平面还是三维的 BackColorBackColor和和ForeColorForeColor属性属性：设置窗体的背景色和前景色：设置窗体的背景色和前景色 PicturePicture属性属性：用于在窗体上设置要显示的图形。：用于在窗体上设置要显示的图形。 对象对象. .Picture=Picture=LoadPicture(LoadPicture(文件名文件名) ) Visible(Visible(可见性可见性) )：设置对象的可见性，默认值为设置对象的可见性，默认值为True 坐标原点坐标原点(0, 0)(0, 0)在窗体的左上角在窗体的左上角 坐标轴刻度单位为缇坐标轴刻度

24、单位为缇(Twip,567(Twip,567缇为缇为1 1厘米厘米) ) 当前位置的横坐标当前位置的横坐标(CurrentX)(CurrentX)和纵坐标和纵坐标(CurrentY)(CurrentY) Y YX X (CurrentX, CurrentY) 当前位置窗体坐标系统窗体坐标系统 窗体作为对象，能够对事件作出响应。与窗体有关的常用窗体作为对象，能够对事件作出响应。与窗体有关的常用事件有以下几种。事件有以下几种。 窗体事件过程的一般格式为：窗体事件过程的一般格式为： Private Sub Form_事件名事件名(参数表参数表) End Sub 不管窗体名字如何定义，但在事件过程中只

25、能使用不管窗体名字如何定义，但在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字，而在过程内对窗体进行引用时才会用到窗体名字(如如Form1等等) 3.4.2 窗体的事件窗体的事件 与窗体有关的常用事件有以下几种。与窗体有关的常用事件有以下几种。 (1)Load(装载装载)事件事件 (2)Unload(卸载卸载)事件事件 (3)Activate(活动活动)、Deactivate(非活动非活动)事件事件 (4)Paint(绘画绘画)事件事件 (5)Click(单击单击)事件事件 (6)DblClick(双击双击)事件事件 (7)KeyPress(按键按键)事件：当按下键盘上

26、的某个健时，将触发事件：当按下键盘上的某个健时，将触发KeyPress事件。其事件过程的格式为：事件。其事件过程的格式为： Private Sub 对象对象_KeyPress(KeyAscii As Integer) End Sub 参数参数KeyAscii返回所按键的返回所按键的ASCII码码 (1)Show(1)Show方法方法：用于快速显示一个窗体，使该窗体变：用于快速显示一个窗体，使该窗体变成活动窗体成活动窗体 ( (2)Print2)Print方法方法：用于在窗体上输出表达式的值：用于在窗体上输出表达式的值 ( (3)Cls3)Cls方法方法：用于清除运行时在窗体中显示的文本：用于清

27、除运行时在窗体中显示的文本或图形或图形 (4)Move(4)Move(移动移动) )方法方法：用于移动并改变窗体或控件的：用于移动并改变窗体或控件的位置和大小位置和大小 3.4.33.4.3 窗体的方法窗体的方法 1. 1. 焦点焦点 焦点焦点(Focus)(Focus)是是对象接收鼠标或键盘输入的能力对象接收鼠标或键盘输入的能力。 当对象得到或失去焦点时，分别会产生当对象得到或失去焦点时，分别会产生GotFocusGotFocus或或LostFocusLostFocus事件。事件。 要将焦点赋给控件，有以下几种方法：要将焦点赋给控件，有以下几种方法： (1)(1)用鼠标选定对象用鼠标选定对象

28、 (2)(2)按快捷键选定对象按快捷键选定对象 (3)(3)按按TabTab键或键或Shift+TabShift+Tab键在当前窗体的各对象之间切换焦点键在当前窗体的各对象之间切换焦点 (4)(4)在代码中用在代码中用SetFocusSetFocus方法来设置焦点。例如：方法来设置焦点。例如： Text1.SetFocus Text1.SetFocus 把焦点设置在文本框把焦点设置在文本框Text1Text1 2.2. TabTab键序键序 TabTab键序是指用户按键序是指用户按TabTab键时，焦点在控件间移动的顺序键时，焦点在控件间移动的顺序 反映在控件的反映在控件的TabIndexTa

29、bIndex属性属性 3.4.43.4.4 焦点与焦点与TabTab键序键序 设置以下设置以下3 3个命令按钮：个命令按钮： “显示显示”按钮：用于显示唐诗按钮：用于显示唐诗“静夜思静夜思” “清除清除”按钮：用于清除所生成的文本按钮：用于清除所生成的文本 “结束结束”按钮：结束程序的运行按钮：结束程序的运行 设计步骤如下：设计步骤如下： ( (1)1)创建应用程序的用户界面和设置对象的属性创建应用程序的用户界面和设置对象的属性 例例3.63.6 显示唐诗显示唐诗“静夜思静夜思” (2)(2)编写程序代码。编写的三个按钮的编写程序代码。编写的三个按钮的ClickClick事件过程代码如下：事件

30、过程代码如下： Private Sub Command1_Click() BackColor = RGB(255, 255, 255) ForeColor = RGB(0, 0, 255) FontName = 楷体楷体_GB2312 FontSize = 20 CurrentX = 1200 CurrentY = 350 Print 静夜思静夜思(唐诗唐诗) FontName = 幼圆幼圆 Print FontSize = 13 Print Spc(6); 床前明月光，疑是地上霜床前明月光，疑是地上霜 Print Print Spc(6); 举头望明月，低头思故乡举头望明月，低头思故乡 En

31、d Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub 程序运行后，单击程序运行后，单击“显示显示”按钮，输出结果按钮，输出结果 需要在窗体中放置各种控件，才能实现用户与应用程序之需要在窗体中放置各种控件，才能实现用户与应用程序之间的信息交互间的信息交互 三种基本控件三种基本控件命令按钮、标签和文本框命令按钮、标签和文本框 3.5.1 控件的公共属性控件的公共属性 (1)Name属性：属性：控件的控件的Name属性（名称）必须以字母开头，属性（名称）必须以字母开头，其后可以是

32、字母、数字和下划线，名称长度不能超过其后可以是字母、数字和下划线，名称长度不能超过40个字个字符符 (2)Caption属性：属性：任意的字符串。以通过程序代码改变其任意的字符串。以通过程序代码改变其值，例如：值，例如： Command1.Caption=“结束结束“ 可以在可以在Caption属性中为控件指定一个访问键。例如，将命令按钮的属性中为控件指定一个访问键。例如，将命令按钮的Caption属性设置为属性设置为“结束结束(&E)”，则运行时该控件外观如图，则运行时该控件外观如图3.7所示，只所示，只要用户同时按下要用户同时按下Alt键和键和E键，就能执行该按钮命令。键，就能执行该按钮命

33、令。 3.5 3.5 基本控件基本控件 (3) Enabled属性属性:该属性决定控件是否对用户产生的事件该属性决定控件是否对用户产生的事件作出响应作出响应 (4) Visible属性属性 该属性决定控件是否可见，默认值为该属性决定控件是否可见，默认值为True。 (5)Height、Width、Top和和Left属性属性：Height和和Width属属性确定控件的高度和宽度，性确定控件的高度和宽度，Top和和Lelf属性确定控件在窗体中属性确定控件在窗体中的位置的位置 YXTopHeightLeftWidth (6)(6)BackColorBackColor和和ForeColorForeCo

34、lor属性属性 (7)(7)FontNameFontName、FontSizeFontSize、FontBoldFontBold、FontItalicFontItalic、FontStrikethruFontStrikethru和和FontUnderlineFontUnderline属性属性 (8)(8)FontFont属性：确定控件中显示的文本所用字体的属性：确定控件中显示的文本所用字体的样式、大小、字体效果样式、大小、字体效果等 用于接收用户的操作信息，并引发应用程序的某个操作用于接收用户的操作信息，并引发应用程序的某个操作 1常用属性常用属性 (1)Default属性和属性和Cancel

35、属性属性 Default属性和属性和Cancel属性分别用于设置属性分别用于设置“默认按钮默认按钮”和和“取消按钮取消按钮” (2)Style属性属性 设置命令按钮的外观设置命令按钮的外观 2.常用事件和方法常用事件和方法 命令按钮最常用的事件是命令按钮最常用的事件是Click(单击单击)事件，但不支持事件，但不支持DblClick(双击双击)事件。事件。 命令按钮常用的方法是命令按钮常用的方法是SetFocus方法。方法。 3.5.2 3.5.2 命令按钮命令按钮 标签标签(Label)主要用来显示比较固定的提示性信息。主要用来显示比较固定的提示性信息。 1常用属性常用属性 (1)Align

36、ment属性属性 设置标签中文本的对齐方式设置标签中文本的对齐方式 (2)AutoSize属性属性 确定标签的大小是否根据标签的内容自动调整大小确定标签的大小是否根据标签的内容自动调整大小 (3)BorderStyle属性属性 设置标签的边框外观设置标签的边框外观 2.常用事件和方法常用事件和方法 标签最常用的事件是标签最常用的事件是Click(单击单击)事件和事件和DblClick(双击双击)事件。事件。 标签常用的方法是标签常用的方法是SetFocus方法。方法。 3.5.3 3.5.3 标签标签 文本框文本框(TextBox)是一个文本编辑区域，用户可以在该区是一个文本编辑区域，用户可以

37、在该区域中输入、编辑和显示文本内容。域中输入、编辑和显示文本内容。 默认情况下，文本框只能输入单行文本，并且最多可以默认情况下，文本框只能输入单行文本，并且最多可以输入输入2048个字符个字符 1. 常用属性常用属性 文本框具有一般控件的常用属性，但文本框没有文本框具有一般控件的常用属性，但文本框没有Caption属性属性 (1) Maxlength属性属性: 确定文本框中文本的最大长度确定文本框中文本的最大长度 (2) Multiline属性属性: 指定文本框中是否允许显示和输入多指定文本框中是否允许显示和输入多行文本行文本 (3) PasswordChar属性属性：确定在文本框中是否显示用

38、户输：确定在文本框中是否显示用户输入的字符，常用于密码输入入的字符，常用于密码输入 (4) ScrollBars属性属性：指定在文本框中是否出现滚动条：指定在文本框中是否出现滚动条 3.5.4 3.5.4 文本框文本框 (5)SelStart属性、属性、Sellength属性和属性和SelText属性属性 (6)Text属性属性 设置或返回文本框中所包含的文本内容。设置或返回文本框中所包含的文本内容。 (7)Locked属性属性 2.常用事件和方法常用事件和方法 文本框支持文本框支持Click、DblClick等鼠标事件，同时支持等鼠标事件，同时支持Change、GotFocus、LostFo

39、cus等事件等事件 文本框常用方法有文本框常用方法有SetFocus方法和方法和Move方法方法 如输入如输入48524852秒，则应输出秒，则应输出1 1小时小时2020分分5252秒秒 (1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Command1_Click() Dim h As Integer, m As Integer, s As Integer, t As Integer t = Val(Text1.Text) h = t 3600 t = t - h * 3600 m = t 6

40、0 s = t - m * 60 Text2.Text = h Text3.Text = m Text4.Text = s End SubPrivate Sub Command2_Click() EndEnd Sub 例例3.73.7 输入一个总秒数，化成小时、分钟和秒输入一个总秒数，化成小时、分钟和秒数数 对话框既可以用来显示信息，也可以用于输入信息对话框既可以用来显示信息，也可以用于输入信息 VBVB中能够建立两种预制对话框：输入框和消息框中能够建立两种预制对话框：输入框和消息框 使用系统提供的函数使用系统提供的函数( (InputBoxInputBox和和MsgBoxMsgBox) )，

41、而不必为，而不必为对话框另建窗体对话框另建窗体 先看以下一个例子先看以下一个例子 例例3.7a3.7a 通过输入框输入姓名，然后再消息框中显示出来通过输入框输入姓名，然后再消息框中显示出来 Private Sub Form_Load() x = InputBox(输入您的姓名输入您的姓名, 您叫什么名您叫什么名?) MsgBox (x & 先生：祝您马到功成！先生：祝您马到功成！) End Sub 3.63.6 使用对话框使用对话框 用于产生一个能接收用户输入的对话框用于产生一个能接收用户输入的对话框 格式：格式： 变量变量= =InputBoxInputBox( (提示提示,标题标题,缺省值

42、缺省值,xpos,yposxpos,ypos) 举例举例 filename$=InputBox(“请输入文件名请输入文件名(不超过不超过8个字符个字符)”，”文件名文件名”，”vbfile”) 将产生一个如下对话框将产生一个如下对话框 3.6.1 3.6.1 输入对话框输入对话框 filename$=InputBox(请输入文件名请输入文件名 + Chr(13) + (不超过不超过8个字符个字符), 文件名文件名, vbfile) 使用使用MsgBoxMsgBox函数，可以产生一个对话框来显示消息函数，可以产生一个对话框来显示消息 当用户单击某个按钮后，将返回一个数值以标明用户单击当用户单击某

43、个按钮后，将返回一个数值以标明用户单击了哪个按钮了哪个按钮 其语法格式是：其语法格式是： 变量变量= =MsgBoxMsgBox( (提示提示,对话框类型对话框类型,对话框标题对话框标题) 例：例：y = MsgBox(y = MsgBox(“输入文件名是否正确输入文件名是否正确”,52,52,”请确认请确认”) ) “对话框类型对话框类型”一般有一般有3 3个参数，个参数， 4+48+04+48+0 出现按钮；图标类型；默认按钮；出现按钮；图标类型；默认按钮； 函数返回值函数返回值( (例例3_9b)3_9b) 3.6.2 3.6.2 消息对话框消息对话框 1. 1. 返回一个值。从返回值中

44、可以知道用户返回一个值。从返回值中可以知道用户按下的是哪个按钮（表按下的是哪个按钮（表3.53.5）。例如）。例如 y = MsgBox(y = MsgBox(“输入文件名是否正确输入文件名是否正确”,52,52,”请确认请确认”) ) 若若y y为为1 1，表示用户按下的是，表示用户按下的是“确定确定”按钮，依此类推。按钮，依此类推。 程序通过判断程序通过判断y y值值( (如采用条件语句如采用条件语句IF-THEN)IF-THEN)，再根据用户，再根据用户按下的是什么按钮，再做不同的处理。按下的是什么按钮，再做不同的处理。 2. 2. 不返回值。例如不返回值。例如 MsgBoxMsgBox

45、 “输入文件名是否正确输入文件名是否正确”,52,52,”请确认请确认” MsgBox MsgBox “输入文件名是否正确输入文件名是否正确” 采用这种格式时，不知道用户按下的是什么按钮。这种格采用这种格式时，不知道用户按下的是什么按钮。这种格式可以使用在不需要知道用户按钮情况的场合。式可以使用在不需要知道用户按钮情况的场合。MsgBox的两种格式(1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性(2)(2)编写程序代码编写程序代码Private Sub Command1_Click() Dim r As Single, k As Single, s As S

46、ingle r = Val(InputBox(请输入圆的半径请输入圆的半径, 计算圆的周长和面积计算圆的周长和面积) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 计算已完成计算已完成, , 例例3.10 End Sub Private Sub Command2_Click() End End Sub例例3.8 从输入框中输入圆的半径，计算圆的周长和面积从输入框中输入圆的半径，计算圆的周长和面积当输入的圆半径为当输入的圆半径为6565时，运行结果时，运行结果 3.7 程序举例程序举例例例

47、3.9 编写程序，实现两个文本框内容的交换编写程序，实现两个文本框内容的交换 (1)在窗体上建立两个标签、两个文本框和一个命令按钮在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码编写程序代码 Private Sub Command1_Click() “交换交换”按钮按钮 Dim t As String, a As String, b As String a = Text1.Text b = Text2.Text t = a a = b b = t Text1.Text = a Text2.Text = b End Sub 输出输出把处理后的数把处理后的数据传送给控件据传送给控

48、件 处理处理使用临时单元变量使用临时单元变量t 输入输入从控件中取输入数据从控件中取输入数据Text1Text2 Private Sub Command1_Click() “交换交换”按钮按钮 t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 另一解法：另一解法：采用变体型变量和直接在控件中交换采用变体型变量和直接在控件中交换数据，编写的程序代码如下数据，编写的程序代码如下 ：( (例例3.9a)3.9a) 说明：说明：对于初学者来说，为了节省时间，有时可对于初学者来说，为了节省时间，有时可以不采用以不采用Dim等语句声

49、明就直接使用变量等语句声明就直接使用变量(默认为变体默认为变体型，如型，如t)。但在规范的软件开发中，通常都要求程序中。但在规范的软件开发中，通常都要求程序中使用的变量必须预先声明。使用的变量必须预先声明。 Private Sub Command1_Click() Dim t As String, a As String, b As String t = a a = b b = t Text1.Text = a Text2.Text = b End Sub缺少缺少“输入输入”。即没有从。即没有从文本框中取到要处理的数文本框中取到要处理的数据据错例一错例一：( (例例3.9b)3.9b)奇怪奇怪

50、?! 在两个文本框在两个文本框中显示都是空白！中显示都是空白！想一想想一想错在哪？错在哪？ Private Sub Command1_Click() Dim t As String, a As String, b As String a = Text1.Text b = Text2.Text t = a a = b b = t End Sub错例二：错例二：(例例3.9c)好像在窗体上没好像在窗体上没有看到处理结果！有看到处理结果！缺少缺少“输出输出”。即没有把处理。即没有把处理后的内存变量内容传送给文本后的内存变量内容传送给文本框框 Private Sub Command1_Click()

51、Dim t As String, a As String, b As String a = Val(Text1.Text) b = Val(Text2.Text) t = a a = b b = t Text1.Text = a Text2.Text = b End Sub错例三：错例三：(例例3.9d)想一想想一想错在哪？错在哪？如果输入的是非如果输入的是非数字文本，结果数字文本，结果会怎样呢会怎样呢? 在窗体上设置三个命令按钮在窗体上设置三个命令按钮(图图3.15)，程序进入运行状态，程序进入运行状态后，当单击后，当单击“窗体变大窗体变大”命令按钮时，窗体变大，单击命令按钮时，窗体变大，单

52、击“窗窗体变小体变小”按钮时，窗体变小。单击按钮时，窗体变小。单击“退出退出”按钮时，则退出。按钮时，则退出。 例例3.103.10 控制窗体控制窗体“变大变大”和和“变小变小” (1)(1)建立应用程序的用户界面和设置对象属性建立应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Form_Load() Form1.Height = 4000 Form1.Width = 4000 Form1.Top = 1000 Form1.Left = 1000 End Sub Private Sub Command1_Click() “窗体变大窗体变大”按按钮

53、钮 Form1.Height = Form1.Height + 200 每次增加每次增加200点点 Form1.Width = Form1.Width + 200 End Sub Private Sub Command2_Click() “窗体变小窗体变小”按按钮钮 Form1.Height = Form1.Height - 200 每次减少每次减少200点点 Form1.Width = Form1.Width - 200 End Sub 在第一个文本框中输入文字时，在另外两个文本框中在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击显示同样相同的内

54、容，但显示的字号和字体不同。单击“清清除除”按钮时则清除三个文本框中的内容按钮时则清除三个文本框中的内容例例3.113.11 在三个文本框中显示不同的文字效果在三个文本框中显示不同的文字效果 (1)(1)建立应用程序的用户界面和设置对象属性建立应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Form_Load() Text2.FontName = 隶书隶书 Text2.FontSize = 16 Text3.FontName = 楷体楷体_GB2312 Text3.FontSize = 20 End Sub Private Sub Text1_C

55、hange() Text2.Text = Text1.Text Text3.Text = Text1.Text End Sub Private Sub Command1_Click() “清除清除”按钮按钮 Text1.Text = 清除文本框清除文本框Text1的内容的内容 Text2.Text = 清除文本框清除文本框Text2的内容的内容 Text3.Text = 清除文本框清除文本框Text3的内容的内容 Text1.SetFocus 设置焦点设置焦点 End Sub (1)在窗体上建立一个标签（在窗体上建立一个标签（Label1）和三个命）和三个命令按钮令按钮(Command1、Co

56、mmand2和和Command3) 三个命令按钮分别使用访问键三个命令按钮分别使用访问键Alt+C、Alt+H和和Alt+D例例3.123.12 实现标签的显示和隐藏，以及改变文字的颜色实现标签的显示和隐藏，以及改变文字的颜色 (2)(2)编写程序代码编写程序代码 Private Sub Form_Load() Randomize Label1.BackColor = QBColor(15) 背景色背景色 Label1.ForeColor = QBColor(0) 文字颜色文字颜色 Label1.FontSize = 18 字体大小字体大小 End Sub Private Sub Command1_Click() “改变文字颜色改变文字颜色”按按钮钮 Clr = Int(15 * Rnd) 产生随机颜色码产生随机颜色码 Label1.ForeColor = QBColor(Clr) End Sub Private Sub Command2_Click() “隐藏标签隐藏标签”按钮按钮 Label1.Visible = False 隐藏标签隐藏标签 End Sub Private Sub Command3_Click() “显示标签显示标签”按钮按钮 Label1.Visible = True 显示标签显示标签 End Sub