(1)在名称为Forml的窗体上绘制一个垂直滚动条,其名称为VScrolll,然后通过属性窗口设置窗体和滚动条的属性,实现如下功能: 滚动条所能表示的最小值和最大值分别为100和400,滚动块的初始位置为200。程序运行后,单击滚动块前面或后面的部

admin2010-07-13  29

问题 (1)在名称为Forml的窗体上绘制一个垂直滚动条,其名称为VScrolll,然后通过属性窗口设置窗体和滚动条的属性,实现如下功能:
    滚动条所能表示的最小值和最大值分别为100和400,滚动块的初始位置为200。程序运行后,单击滚动块前面或后面的部位时,滚动块移动的增量值为25,单击滚动条两端的箭头时,滚动块移动的增量值为10。程序的运行情况如图34—1所示。
    注意:存盘时必须存放在考生文件夹下,工程文件名为sjl.vbp,窗体文件名为sjl.frm。
    (2)在名称为Forml的窗体上绘制一个文本框,其名称为Textl.如图34—2所示,编写适当的事件过程。程序运行后,如果单击文本框,则可使文本框左移100单位;而如果在文本框中输入信息,则可使文本框右移100单位。不得使用任何变量;只允许通过修改属性的方式移动文本框。程序的运行情况如图34—3所示。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm

选项

答案(1)根据题意,新建“标准EXE”工程,将一个VSrollBar控件添加到窗体中,设置其名称为VScrolll,Max属性为400,Min属性为100,Value属性为200,LargeChange属性为25,SmallChange属性为10。单击[*]按钮运行程序.并按要求保存。 (2)在文本框中输入信息,触发文本框的Change事件,单击文本框触发文本框的Click事件。根据题意,新建“标准EXE”工程,将一个文本框控件添加到窗体中,其名称为Textl,Text属性为空。双击Text进入代码窗口,编写如下代码: Private Sub Textl_Change() Textl.Left=Textl.Left+100’在文本框输入,文本框右移 End Sub Private Sub Textl_Click() Textl.Left=Textl.Left-100 ’单击文本框,文本框左移 End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)