VisualBasic文本框事件实现

1.Change事件

文本框也能响应单击(Click),双击(DblClick)等事件,但文本框的这些事件并不常用,文本框较常用的事件是Change事件,一旦文本框中的内容发生改变,就会触发Change事件。

【案例2-3】设计一个单窗体VB应用程序,窗体中放置一个标签、一个文本框和一个按钮控件,如图2-12所示。

图2-12　文本框Change事件实例界面

【案例要求】

程序运行时,用户在文本框中输入内容时,窗体中的标签就会同步显示用户所输入的内容,如果用户修改了文本框内容,则标签的内容也会同步修改,单击命令按钮,清除文本框的内容。

【案例操作】

要使标签的内容总是与文本框中的内容同步改变,需要使用文本框的Change事件,因为该事件能随时感知到文本框中内容的改变,双击文本框,进入文本框的Change事件代码窗口,把文本框(Text1)的内容(Text)赋值给标签(Label1)的标题属性(Caption),双击命令按钮,进入命令按钮的Click事件代码窗口,把文本框(Text1)的内容(Text)清除(赋值空字符串),具体代码如下。

运行该程序,在文本框中输入内容,则窗体上的标签就会同步显示出用户在文本框中所输入的内容,改变文本框中的内容,则标签的内容也会随着改变,单击“清除”按钮,则文本框中的内容被清空,并且标签的内容也被清空,如图2-13所示。

图2-13　文本框Change事件实例运行界面

★注意:尽管在“清除”按钮的Click事件过程中只有清除文本框中内容的语句,但由于在文本框中内容被清除后(内容变化发生),触发了它的Change事件,因此单击“清除”按钮后,Change事件过程也被执行。

2.KeyPress事件

文本框的KeyPress事件是在获得焦点的文本框中按下键盘上的键后即触发。文本框(如Text1)的KeyPress事件的代码格式为

其中,参数KeyAscii的值是触发KeyPress事件时按下的键所对应的ASCII码值。

例如:要设计一个只接受数字键的文本框,代码如下。(www.xing528.com)

【案例2-4】设计一个单窗体VB应用程序,使用文本框输入数学、英语、VB程序设计三门课程的成绩,要求在输入成绩的同时计算总分和平均成绩并输出,总分、平均分用户不能修改,界面如图2-14所示。

【案例要求】

使用文本框输入各科成绩,在输入或修改单科成绩的同时计算总分和平均分,总分和平均分不允许用户修改,标签、文本框名称采用默认名称。

图2-14　案例2-3设计界面

【案例操作】

按要求设计界面,窗体中的对象及属性设置如表2-8所示。

表2-8　案例2-3对象的属性设置

续表

双击文本框Text1进入代码设计窗口,选择Text1的Change事件过程,编写计算总分和平均分并分别赋给总分文本框(Text4)和平均分文本框(Text5),同样要给Text2和Text3的Change事件过程编写相同的代码如下。

运行程序,输入数学、英语、VB程序设计三门课程成绩,则在总分和平均分文本框将自动输出结果,如图2-15所示。

图2-15　案例2-3运行界面

★注意:文本框的Text属性值是文本的,所以需要使用Val()函数先转换为数值型数据才能求和、计算平均值等;但当把数值赋值给文本框的Text属性时,系统会先自动转换为字符串再进行赋值操作;窗体中文本框Text4和Text5的Locked属性设置为True,即可锁定文本框,此时用户不能编辑文本框内容。