新建一个工程,在窗体中创建两个文本框,其名称分别为Text1和Text2。编写一个事件过程,实现在程序运行后,若在文本框Text1中输入一个字符串。若该字符串超过15个字符后,超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。 注

admin2009-03-17  19

问题 新建一个工程,在窗体中创建两个文本框,其名称分别为Text1和Text2。编写一个事件过程,实现在程序运行后,若在文本框Text1中输入一个字符串。若该字符串超过15个字符后,超出部分在文本框Text2中显示。如图12所示程序中不得使用任何变量。
   注意:存盘时必须存放在考生文件夹下,工程文件名为ylc4.vbp,窗体文件名为ylc4.frm。

选项

答案(1)Visual Basic集成环境中,执行“文件”→“新建工程”命令,选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件,在窗体上创建两个文本框。双击文本框Text1,弹出代码窗口,添加如下代码: Private Sub Text1_Change() If Len(Text1.Text)>=15 Then Text2.SetFocus End If End Sub (3)按F5键运行程序。如图12所示。 (4)执行“文件”→“保存工程”命令,将工程文件命名为ylc4.vbp,窗体文件命名为 ylc4.fi-m。 [*]

解析 (4)第4小题中利用了SetFocus来控制焦点。当Text1窗口中的字符串超过长度时,焦点转移到文本框Text2中。
转载请注明原文地址:https://kaotiyun.com/show/Jj1p777K
0

最新回复(0)