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

admin2013-11-29  26

问题 (1)在名称为Forml的窗体上添加一个名称为Labell、标题为“滚动条控件”的标签,一个名称为HScrolll的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最大值为100,最小值为l,滚动条的高度为300,宽度为3000,滚动块的初始位置为20。程序运行后的窗体如图所示。

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

选项

答案(1)根据题意,首先通过滚动条的Name、Max、Min、\Value、Width、Height属性设置滚动条的属性值,然后通过标签的Name、Caption属性设置标签的名称和标题。 步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1。 [*]  步骤2:测试并运行程序,关闭程序序后按题目要求存盘。 (2)往Form Load事件过程中Timerl的Ena-bled属性设置为True,计时器变为可用,在Timerl Timer计时器的事件过程,通过形状控件的Top值每隔0.5秒加100,实现每隔0.5秒形状控件向下移动100 步骤1:建立界面,并设置空件的属性。程序中用到的控件件及属性见表2 [*] 步骤2:编写程序代码 Pri rate Sub Form_Load() Timer1.Enabled=Ture End Sub Ptivate Sub Timerl_Timer() Shanel.Top=Shapel.Top+l00 End Sub 步骤3:调用并运行程序,关闭程序后按照题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/XWQp777K
0

最新回复(0)