新Visual Basic程序设计案例教程 湖南省教育科学“十一五”规划重点项目 教学课件 李勇帆 第4讲.pptVIP

Visual Basic 程序设计 第四讲 2课时 教学目标及基本要求 掌握文本框、InputBox函数的数据输入 掌握文本框、MsgBox函数、Print方法的数据输出 掌握字形的设置 了解打印机输出 教学重点 文本框、InputBox函数的数据输入 文本框、MsgBox函数、Print方法的数据输出 教学难点 文本框、InputBox函数的数据输入 文本框、MsgBox函数、Print方法的数据输出 教学内容 数据输入 数据输出 字形与打印机输出 数 据 输 入 使用文本框（TextBox）输入数据 使用InputBox函数输入数据 使用文本框（TextBox）输入数据 一个程序如果没有输入操作，必然缺乏灵活性。接收用户输入数据的最直接的方法就是使用文本框，即TextBox控件。文本框可以供用户输入数据，是Visuual Basic中显示和输入文本的主要机制，也是Windows用户界面中最常用的控件。 使用文本框（TextBox）输入数据 文本框提供了所有基本字处理功能，在Windows环境中几乎所有的输入动作都是利用文本框来完成的。文本框是个相当灵活的输入工具，可以输入单行文本，也可以输入多行文本，还具有根据控件的大小自动换行以及添加基本格式的功能。 文本框属性 Text属性: 在文本框中显示的正文内容存放在Text属性中。当程序运行时，用户通过键盘输入正文内容，保存在Text属性中。文本框没有Caption属性。 MaxLength属性 : 该属性设置文本框中输入的字符串长度是否有限制。 文本框属性 MultiLine属性 : MultiLine属性决定文本框是否支持多行显示文本内容。 PasswordChar属性: 该属性设置是否在控件中显示用户键入的字符。 ScrollBars属性: 该属性设置文本框是否有垂直或水平滚动条，其返回值为0，1，2，3。 文本框属性 SelLength、SelStart和SelText属性 : SelLength返回/设置选定的字符数。 SelStart返回/设置选定文本的起始点。 SelText返回/设置包含当前选定文本的字符串。 文本框属性 【例4.1】 建立两个文本框，它们的有关属性如表4-1所示。 表4-1 控件属性设置 文本框 编写如下代码： Private Sub Form_Click( ) Text1.SelStart=0　‘将文本框Text1中的第1字符前设为 ‘标识区的起点 Text1.SelLength=8　　将整个标识区长度定为8 　 Text2.text=Text1.SelText 被标识的字符串存入Text2中 End Sub 文本框 若要对任意选定的文本进行复制，只要将上述事件过程中删除前两句定位语句，即改为： Private Sub Form_Click( ) Text2.text=Text1.SelText　被选定的字符串存入Text2中 End Sub 当选定要复制的文本后，单击窗体即可 文本框的常用事件 Change事件：当文本框的内容被修改时触发。其基本语法如下： Sub Text_Change([Index As Integer]) 其中，Text是文本框的名称。Index是一个整数，若该文本框属于一个控件数组，则Index表示该文本框在数组中的下标，否则不需要这一参数。 文本框的常用事件 【例4.2】 在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。 问题解析：只有小写的字母会转成大写；原本大写或非字母之字符保持不变，根据题意建立如图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”。 文本框的常用事件 GotFocus事件 当文本框具有输入焦点（即处于活动状态）时触发该事件。此时，键盘上输入的每个字符都将在该文本框上显示出来。 LostFocus事件 当按下Tab键使光标离开当前文本框或用鼠标选择窗体上的其他对象时触发该事件。 文本框的方法 文本框最常用的方法为SetFocus，当把光标移动到指