新建一个工程,在窗体中创建两个文本框,其名称分别为Text1和Text2。编写一个事件过程,实现在程序运行后,当文本框Text1获得焦点时,其前景颜色与背景颜色交换显示。如图13所示。程序中不得使用任何变量。 注意:存盘时必须存放在考生文件夹下,工程

admin2009-03-17  27

问题 新建一个工程,在窗体中创建两个文本框,其名称分别为Text1和Text2。编写一个事件过程,实现在程序运行后,当文本框Text1获得焦点时,其前景颜色与背景颜色交换显示。如图13所示。程序中不得使用任何变量。
   注意:存盘时必须存放在考生文件夹下,工程文件名为ylcl.vbp,窗体文件名为ylcl.frm。

选项

答案(1)Visual Basic集成环境中,执行“文件”→“新建工程”命令,选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件,在窗体上创建两个文本框。双击文本框Text1,弹出代码窗口,添加如下代码: Private Sub Text1_Gotfocus() Dim a As Long a=Text1. ForeColor Text1.ForeCotor=Text1.BackColor Text1.BackColor=a End Sub (3)按F5键运行程序。如图13所示。 (4)执行“文件”→“保存工程”命令,将工程文件命名为ylcl.vbp,窗体文件命名为 ylcl.tim。

解析 (1)第1小题中使用了临时变量a,在事件中,利用这个[临时变量将Text1的前景色与背景色进行交换。
转载请注明原文地址:https://jikaoti.com/ti/ZWq0FFFM
0

最新回复(0)