1、Visual Basic 程序设计,第四讲 2课时,教学目标及基本要求,掌握文本框、InputBox函数的数据输入 掌握文本框、MsgBox函数、Print方法的数据输出 掌握字形的设置 了解打印机输出,教学重点,文本框、InputBox函数的数据输入 文本框、MsgBox函数、Print方法的数据输出,教学难点,文本框、InputBox函数的数据输入 文本框、MsgBox函数、Print方法的数据输出,教学内容,数据输入 数据输出 字形与打印机输出,数 据 输 入,使用文本框（TextBox）输入数据 使用InputBox函数输入数据,使用文本框（TextBox）输入数据,一个程序如果没有输
2、入操作，必然缺乏灵活性。接收用户输入数据的最直接的方法就是使用文本框，即TextBox控件。文本框可以供用户输入数据，是Visuual Basic中显示和输入文本的主要机制，也是Windows用户界面中最常用的控件。,使用文本框（TextBox）输入数据,文本框提供了所有基本字处理功能，在Windows环境中几乎所有的输入动作都是利用文本框来完成的。文本框是个相当灵活的输入工具，可以输入单行文本，也可以输入多行文本，还具有根据控件的大小自动换行以及添加基本格式的功能。,文本框属性,Text属性: 在文本框中显示的正文内容存放在Text属性中。当程序运行时，用户通过键盘输入正文内容，保存在Tex
3、t属性中。文本框没有Caption属性。 MaxLength属性 : 该属性设置文本框中输入的字符串长度是否有限制。,文本框属性,MultiLine属性 : MultiLine属性决定文本框是否支持多行显示文本内容。 PasswordChar属性: 该属性设置是否在控件中显示用户键入的字符。 ScrollBars属性: 该属性设置文本框是否有垂直或水平滚动条，其返回值为0，1，2，3。,文本框属性,SelLength、SelStart和SelText属性 : SelLength返回/设置选定的字符数。 SelStart返回/设置选定文本的起始点。 SelText返回/设置包含当前选定文本的字符
4、串。,文本框属性,【例4.1】 建立两个文本框，它们的有关属性如表4-1所示。 表4-1 控件属性设置,文本框,编写如下代码： Private Sub Form_Click( )Text1.SelStart=0 将文本框Text1中的第1字符前设为标识区的起点Text1.SelLength=8 将整个标识区长度定为8Text2.text=Text1.SelText 被标识的字符串存入Text2中 End Sub,文本框,若要对任意选定的文本进行复制，只要将上述事件过程中删除前两句定位语句，即改为： Private Sub Form_Click( ) Text2.text=Text1.SelTe
5、xt 被选定的字符串存入Text2中 End Sub 当选定要复制的文本后，单击窗体即可,文本框的常用事件,Change事件：当文本框的内容被修改时触发。其基本语法如下： Sub Text_Change(Index As Integer) 其中，Text是文本框的名称。Index是一个整数，若该文本框属于一个控件数组，则Index表示该文本框在数组中的下标，否则不需要这一参数。,文本框的常用事件,【例4.2】 在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。 问题解析：只有小写的字母会转成大写；原本大写或非
6、字母之字符保持不变，根据题意建立如图4-2所示的界面。程序代码如下： Private Sub Text1_Change()Text1.SelStart = Len(Text1.Text) Text1.Text = UCase(Text1.Text) End Sub,文本框的常用事件,KeyPress事件 当在文本框中按任一键时触发。其基本语法如下： Sub Text_KeyPress(KeyAscii As Integer) 其中，KeyAscii为按键对应的一个键码。例如，输入“A”，则KeyAscii的值是65。可用函数Chr$(KeyAscii)可得到字符“A”。,文本框的常用事件,Go
7、tFocus事件 当文本框具有输入焦点（即处于活动状态）时触发该事件。此时，键盘上输入的每个字符都将在该文本框上显示出来。 LostFocus事件 当按下Tab键使光标离开当前文本框或用鼠标选择窗体上的其他对象时触发该事件。,文本框的方法,文本框最常用的方法为SetFocus，当把光标移动到指定的文本框上，也就是使该文本框具有输入焦点。,文本框的方法,【例4.3】 输入3种家电商品的单价、销售数量，输出总销售额。 设计步骤如下。 （1）建立应用程序界面。 在窗体中增加7个标签Label1Label7，其中Label7用来显示计算结果，其他6个标签用于提示，6个文本框和3个命令按钮。 （2）设置
8、对象属性，请读者自行设计。 （3）设计代码。,文本框的方法,Private Sub Command1_Click() 计算按钮的单击事件Dim a1 As Single, b1 As Single, c1 As SingleDim a2 As Single, b2 As Single, c2 As SingleDim x As Singlea1 = Val(Text1.Text) 电视机的单价b1 = Val(Text2.Text) 洗衣机的单价c1 = Val(Text4.Text) 电冰箱的单价a2 = Val(Text4.Text) 电视机的数量b2 = Val(Text5.Text)
9、洗衣机的数量c2 = Val(Text6.Text) 电冰箱的数量x = a1 * a2 + b1 * b2 + c1 * c2 计算三种家电总销售额Label7.Caption = x End Sub,文本框的方法,Private Sub Command2_Click() 清除按钮的单击事件Text1.Text = “ 以下语句使各文本框清空Text2.Text = “Text4.Text = “Text4.Text = “Text5.Text = “Text6.Text = “Label7.Caption = “Text1.SetFocus Text1获得焦点 End SubPrivate
10、 Sub Command3_Click() 关闭按钮的单击事件Unload Me 关闭当前窗体 End Sub,文本框的方法,使用InputBox函数输入数据,InputBox函数是Visual Basic所提供的从键盘输入数据的函数，利用它可以产生一个对话框，提示用户输入数据。其语法格式如下： InputBox (，),使用InputBox函数输入数据,其中，“提示”用于提示用户输入何种数据，常用字符串常量表示；“标题”用于设置对话框标题，一般用字符串常量表示；“默认值”用于在对话框中显示默认信息；“坐标”用于指定对话框在屏幕上的输出位置。InputBox函数返回值的数据类型为字符串。当程序
11、运行到该函数时，将显示一个输入对话框，提示用户输入数据，并将函数返回值赋给变量。,使用InputBox函数输入数据,说明： （1）输入框的样式是固定的，用户不能改变。用户能改变的是输入框的“提示”和“标题”的内容及对话框的显示位置。 （2）该函数的常用参数有5个，其含义分别如下。 “提示”。字符串表达式，在对话框中作为提示信息出现，提示用户输入数据。显示多行信息时，可以自动换行；也可以用插入“回车Chr(13)”和“换行Chr(10)”控制符的方法，强制换行。 “标题”。字符串表达式，用做输入框的标题，若省略该参数则把程序名放入标题栏中。 “默认值”。字符串表达式，若对话框的输入区无输入数据时
12、，则该默认值作为输入数据。若省略该参数，则输入区为空白，等待用户输入数据。 “x坐标位置，y坐标位置”。整型表达式，指定对话框左上角在屏幕上显示的位置。若省略该参数，则对话框显示在屏幕中心。,使用InputBox函数输入数据,（3）注意，各参数次序必须与前面函数格式中列出的次序一一对应，除了“提示”一项不能省略外，其余各项均可省略。 （4）该函数的返回值是一个字符串。如果要将InputBox函数的值赋给一个数值型变量，通常采用Val函数进行转换。比如：x% = Val(InputBox(“请输入x的值：“) （5）输入的数据必须作为函数的返回值赋给一个变量，否则输入的数据不能保留。每执行一次I
13、nputBox函数，用户只能输入一个数据，如果需要输入多个值，则必须多次调用该函数。,使用InputBox函数输入数据,【例4.4】 设计一个对话框，用于输入密码，提示信息为“请输入密码”，输入框标题为“密码框”。程序如下： Private Sub Form_click()Dim Password As StringPassword =InputBox(“请输入密码“,“密码框“) End Sub 屏幕上显示输入对话框如图4-4所示,数 据 输 出,用Print方法输出数据 用MsgBox函数输出数据,用Print方法输出数据,Print方法可用于在窗体、立即窗口、图片框、打印机等对象中显示文
14、本字符串和表达式的值。其语法格式如下： .Print 其中： “对象”可以是Form、Picture Box、Printer，省略，则在窗体上输出； “表达式列表”是用“，”或“；”隔开的一个或多个表达式。 下面的两个函数配合该语句： Tab函数：Tab（n）：其后面的表达式前加n-1个空格。 Spc函数：Spc（n）：下一个表达式之前加n个空格。,用Print方法输出数据,特别注意 1 单独一个print起到分行的作用，用“；”隔开，各项之间无间隔，用“，”隔开，各项的宽度为14，不足前补空格。 2 两个print语句，如果前面的语句以分号或逗号分隔，则输出时，下面的和上面的在同一行输出。（
15、这一点对打印图形非常重要）,用Print方法输出数据,与Print有关的位置设置属性及方法 (1) 两个位置设置属性CurrentX，CurrentY：要精确地把文本输出到窗体、图片框上，可以用位置属性CurrentX，CurrentY。这两个属性分别表示当前输出位置的横坐标和纵坐标。 (2) 两个位置设置方法TextWidth，TextHeight：这两个方法用来辅助设置位置坐标。其中TextWidth方法返回一个文本字符串的宽度值，而TextHeight方法返回一个文本字符串的高度值。其格式为 对象. TextHeight(字符串) 对象. TextWidth(字符串) “对象”包括窗体和
16、图片框架，若省略则表示为当前窗体。 (3) 两个表示对象位置的属性ScaleWidth，ScaleHeight：这两个属性分别用来表示对象的宽度和高度值，而对于窗体则经常直接使用Width，Height两个属性。,用Print方法输出数据,【例4.5】Print方法的使用。 Form1.Print “Visual Basic“ 在Form1窗体中显示“Visual Basic“ Print “Visual Basic“ 在当前窗体中显示“Visual Basic“ Print “aa“ “湖南长沙“ 在当前窗体中从第25列开始显示“湖南长沙“,用MsgBox函数输出数据,MsgBox函数又称为
17、消息函数，其格式为 MsgBox(提示，按钮值，标题) 说明： 1. 函数功能。执行该函数时，将显示一消息对话框，在对话框中显示提示信息并等待用户单击按钮。单击后返回一个类型为Integer的数值，应用程序就以此判断用户单击的是哪一个按钮，并做出相应的处理。 2.“提示”和“标题”。意义与InputBox函数中对应的参数相同。,用MsgBox函数输出数据,3.“按钮值”。是整型数值，用以表示对话框中显示的按钮个数及图标样式，一般有4类参数，其取值及意义如表4-2所列。 “按钮值”通常由这4类参数数值组合而成，其组合原则是从每一类中选择一个值，然后把这几个值加在一起。每个取值既可以用具体数据表示
18、，也可以用系统定义的符号常量来表示，使用符号常量可以提高程序的可读性。,用MsgBox函数输出数据,表4-2 按钮参数的取值及其含义,用MsgBox函数输出数据,MsgBox函数返回值是一个整数，这个整数与所选择的命令按钮有关。命令按钮共有7种，返回值与这7种按钮相对应，分别为17的整数，如表4-3所列,用MsgBox函数输出数据,【例4.7】设计MsgBox对话框，如图4-5所示。 窗体的Click事件过程代码如下：Private Sub Form_Click()Dim msg1$, msg2$, r%msg1 = “密码错误!是否继续? “msg2 = “密码检查对话框“r = MsgBo
19、x(msg1, 34, msg2)Print r End Sub,用MsgBox函数输出数据,说明：本例中的MsgBOX函数调用语句可改为如下形式，程序运行结果是一样的。 r=MsgBox(msg1,vbAbortRetryIgnore+vbQuestion+VbDefau1tButton1,msg2),字形与打印机输出,字型 Font对象包含格式化文本所需要的信息。经常用显示文本的对象(例如Form对象或Printer对象)的Font属性来标识Font对象。这些文本显示对象的Font属性包含6种子属性，这6种子属性的设置既可以在属性窗口单击“Font”属性值所在栏的省略号，弹出“字体”对话框
20、，在“字体”对话框进行各方面的参数指定。此外，也可用程序语句设置这6种子属性，而且用语句设定可以更加灵活方便。,字形,1设定字体各类属性的语句 设置字体类型语句：对象名.FontName=字体类型 设置字的尺寸语句：对象名.FontSize=数值 设置是否加粗语句：对象名.FontBold=TrueFalse 设置是否倾斜语句：对象名.FontItaliC=TrueFalse 设置是否加删除线：对象名.FontStrikethru=TrueFalse 设置是否加下划线：对象名.FontUnderline=TrueFalse,字形,2说明 (1) 若省略对象名，则默认对当前窗体对象中的字体属性进
21、行设置。 (2) 若省略赋值符号及其右边的内容，则只能作为属性值被引用，返回当前属性值。 (3) 若属性值是逻辑值，则赋值号右边取True表示设置，取False表示不设置。 (4) 字的尺寸用数字表示，单位是磅。数值越大字也越大，五号字大约是10.5磅，默认是小五号字，尺寸大约是9磅。FontSize的最大值为2160磅。 (5) 字体类型用字符串表示。有哪些能设置的字体类型取决于Windows中包含的字体。,字形,3示例 Text1.FontName = “隶书“ 将文本框的字体类型设置为隶书 Labe11.FontName = “楷体“ 将标签的字体类型设置为楷体 FontName = “
22、System“ 将当前窗体的字体类型设置为System FontSize = 10.5 将当前窗体的字体尺寸设置为10.5磅 FontBold = True 将当前窗体的字体设置为加粗,打印机输出,1打印机对象 (1)打印机对象的常用属性 FontCount打印机可用的字体总数。 FontName 字体名称。其值是字符串表达式，指定所用的字体名。如Printer.FontName=宋体。 FontSize 字体大小。属性值为数值表达式，以磅为单位指定所用字体的大小。 PrintQuality 打印质量。设置或返回打印机的分辨率，是整型数(-1-4对应分辨率从低到高)如设置草稿质量Printer
23、.PrintQuality=-1。,打印机输出,(2)打印机对象的常用方法 Print 打印。向打印机输出文本或数据。 Pset，Line，Circle 分别为画点、画线、画圆。 PaintPicture 打印图形。 EndDoc 文档结束。用于终止发送给Printer对象的打印操作，将文档释放到打印设备或后台打印程序。如果在运行NewPage方法后立即调用EndDoc，则不会打印额外的空白页。 NewPage 用以结束Printer对象中的当前页并前进到下一页。 KillDoc 删除文档。立即终止当前的打印。,打印机输出,(3)语句示例Printer.Print Visual Basic编程
24、PrinterNewPagePi=3.1415926Printer.Print “Pi=“; PiPrinter.EndDoc 下列语句在(0，0)坐标点处将图片框Picturel中的图片按原尺寸打印： Printer.PaintPicture Picture1.Picture，O，O，Picture1.Width，Picture1.Height,打印机输出,2打印Visual Basic代码 打印前先要设置好打印机。选择“文件”/“打印设置”命令，会出现一个“打印设置”对话框，用户可以选择打印机的名称以及打印机纸的大小。 在工程窗口内选择要打印哪个窗体或模块中的代码，接着选择“文件”/“打印
25、”命令，出现如图4-6所示的“打印”对话框。 在“范围”选项区域中选择“当前模块”单选按钮，在“打印内容”选项区域中选中“代码”复选框。打印质量分为高、中、低和草稿四种，选择好后单击“确定”按钮即可打印。,打印机输出,3打印Visual Basic窗体 选择“文件”“打印”命令，不仅可以打印代码，也可打印窗体。只要在图4-6对话框的“打印内容”选项区域中选中“窗体图像”复选框即可。 此外，使用窗体的PrintForm方法也可以打印窗体中的文本及图像，其语法为： 窗体名.PrintForm 其中，窗体名为要打印的窗体。注意，当窗体中包含用绘图方法绘制的图形时，只有把窗体AutoRedraw属性设为True，图形才会被打印。,
