(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“滚动条控件”的标签,一个名称为HScroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最大值为100,最小值为1,滚动条的高度为300,宽度为3000,滚动块的初始位置为

admin2016-08-24  26

问题 (1)在名称为Form1的窗体上添加一个名称为Label1、标题为“滚动条控件”的标签,一个名称为HScroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最大值为100,最小值为1,滚动条的高度为300,宽度为3000,滚动块的初始位置为20。程序运行后的窗体如图所示。
    注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。

    (2)在名称为Form1的窗体上添加一个名称为Shapel的形状控件,位置在窗体的顶部,在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器,在属性窗口中将其设置为禁用,时间间隔为0.5秒,窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程,使得程序一开始运行,计时器即变为可用,且每隔0.5秒形状控件向下移动100。
    注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。

选项

答案(1)步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1。 [*] 步骤2:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表2。 [*] 步骤2:编写程序代码。 参考答案 Private Sub Form_Load() Timer1.Enabled=True End Sub Private Sub Timer1_Timer() Shapel.Top=Shapel.Top+100 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析 (1)根据题意,首先通过滚动条的Name、Max、Min、Value、Width、Hei曲t属性设置滚动条的属性值,然后通过标签的Name、Caption属性设置标签的名称和标题。
    (2)在Form Load事件过程中,Timed的Enabled属性设置为True,计时器变为可用,在Timer1 Timer计时器的事件过程,通过形状控件的Top值每隔0.5秒加100,实现每隔0.5秒形状控件向下移动100。
转载请注明原文地址:https://kaotiyun.com/show/A4Lp777K
0

最新回复(0)