在名称为Form1的窗体上画一个列表框,其名称为List1,通过属性窗口向列表框中输入9个项目,分别为10、20、30、40、50、60、70、80、90;画一个文本框,其名称为Hscrol1,Min属性和Max属性分别为0和100,如图所示,编写适当的事件过程。程序运行后,如果单击列表框中的某个项目内容,并把滚动条的滚动框移动到相应的位置,如图所示。
要求:不得使用任何变量。
参考答案:
第一步:启动Visual Basic,新建工程文件。
第二步:设计窗体。根据题意,该用户界面包括三个对象,即窗体和两个文本框。单击工具箱中的文本框图标,在窗体的适当位置画一个文本框。画完后,文本框内自动标有Text1。重复以上步骤,再添加一个文本框为Text2。
第三步:设置属性。根据题意,窗体的名称(Name)和标题(Caption)属性都为默认的Form1,因此无须再为其重新设置属性。单击Text1,将其激活,在属性窗口中将其Name属性改为T1。然后单击Text2,使其变为活动控件,在属性窗口中将其Name属性改为T2。根据题意,在初始情况下,两个文本框中都没有内容,这可以通过在属性窗口中将其Caption属性设置为空值或在代码窗口中的“Form1Load”事件中通过代码来实现。本题采用编写代码来实现。设置完属性之后就可以通过双击窗口进入代码编辑窗口编写代码如下:
1 PriVate Sub Form_Load( )
2 T1.Text=""
3 T2.Text=""
4 End Sub
5 PriVate Sub T1 Change( )
6 T2 Text=T1.Text
7 End Sub
第四步:保存。程序设计完成经调试无误后进行存盘。执行“文件”菜单中的“保存工程”命令,打开“文件另存为”对话框,窗体文件名为“sjt1.form”,单击“保存”按钮。然后在紧接着出现的“工程另存为”划话框中选择工程文件名为“sjt1.vbp”,单击“保存”按钮。
解析:
本题主要考查的是文本框的Change事件的用法。当用户向文木框中输入新信息,或程序把Text属性设置为新值从而改变文本框的Text属性时,将触发Change事件。程序运行后,在文本框中每键入一个字符,就会引发一次Change事件。在本题中要求当在一个文本框中输入字符时在另一个文本框中立即显示该字符,那么可以通过在文本框1即T1的Change事件中将T1的Text属性赋值给T2的Text属性,就可以实现两个文本框中内容的同步变化。