(1)在名称为Forml的窗体上画一个名称为VScrolll的垂直滚动条,请在“属性”窗口中设置它的属性值,使之满足以下要求:它的最大刻度值为200,最小刻度值为l,在运行时鼠标单击滚动条上滚动块以外的区域(不包括两边按钮),滚动块移动20个刻度。再在滚动

admin2009-08-26  38

问题 (1)在名称为Forml的窗体上画一个名称为VScrolll的垂直滚动条,请在“属性”窗口中设置它的属性值,使之满足以下要求:它的最大刻度值为200,最小刻度值为l,在运行时鼠标单击滚动条上滚动块以外的区域(不包括两边按钮),滚动块移动20个刻度。再在滚动条下面画两个名称分别为Labell和Label2的标签,并分别显示1和200,运行时的窗体界面如图35—1所示。
    注意:存盘时必须存放在考生文件夹下,工程文件名为sjl.vbp,窗体文件名为sjl_frm。
    (2)在名称为Forml的窗体上画两个文本框,名称分别为Textl和Text2,均无初始内容;再建立一个下拉菜单,菜单标题为“命令”,名称为Com,此菜单下含有3个子菜单项,名称分别为Copy、Clear和Close,标题分别为“复制”、“清空”和“关闭”。请编写适当的事件过程,使得程序运行时,单击“复制”菜单项,则把Textl中的内容复制到Text2中,单击“清空”菜单项,则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图35—2所示。要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。   

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

选项

答案(1)滚动条的最大值由Max属性设置,最小值由Min属性设置。鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)滑块移动的增量值由LargeChange属性设置。标签上的标题由Caption属性设置,控件的名称由Name属性设置。 根据题意,新建“标准EXE”工程,将两个标签和一个垂直滚动条控件添加到窗体中,标签的名称分别为Labell和Label2、Caption属性分别为“1”和“200”,垂直滚动条的名称为VScrolll,Max属性为200、Min属性为1,LargeChange属性为20。 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,新建“标准EXE”工程,按“Ctrl+E”组合键打开菜单编辑器,在其中添加如下菜单项: [*] 单击“确定”按钮,完成菜单设置。将两个文本框控件添加到窗体中,名称分别为Textl和Text2、Text属性都为空,设置完成后进人代码窗口,编写如下代码: Private Sub Clear_Click() ’清空命令 Text2.Text="" End Sub Private Sub Close_Click() ’关闭命令 Unload Me End Sub Private Sub Copy_Click() ’复制命令 Text2.Text=Textl.Text End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)