(1)在Forml的窗体上绘制一个命令按钮,其名称为Commandl、标题为“隐藏”;再画一个文本框,其名称为Textl、内容为“模拟考试”。编写适当的事件过程。程序运行后,在窗体加载时使文本框不可见,如果双击窗体,则文本框出现;此时如果单击命令按钮,则隐

admin2009-08-26  13

问题 (1)在Forml的窗体上绘制一个命令按钮,其名称为Commandl、标题为“隐藏”;再画一个文本框,其名称为Textl、内容为“模拟考试”。编写适当的事件过程。程序运行后,在窗体加载时使文本框不可见,如果双击窗体,则文本框出现;此时如果单击命令按钮,则隐藏文本框,如图67—1所示。
    注意:保存时必须存放在考生文件夹下,窗体文件名为sjl.frm,工程文件名为sjl.vbp。
    (2)在窗体Forml中绘制一个水平滚动条与一个标签,标签的名称为Labell,内容为空;水平滚动条的最大值为900,最小值为300,名称为HScrolll。要求编写适当的事件过程,只有当移动滚动条中的滚动块时,文本框才接收HScroll1的当前值,如图67—2所示。

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

选项

答案(1)本题考查控件画法、文本框和命令按钮的属性设置、窗体和命令按钮的事件。 文本框是否可见可通过其Visible属性设置,值为True表示显示,值为False表示不显示。文本框的Text属性用于设置或返回其显示的文本。 根据题意,新建“标准EXE”工程,将一个文本框控件和一个命令按钮添加到窗体中,文本框的名称为Textl、Text属性:为“模拟考试”,命令按钮的名称为Commandl、Caption属性为“隐藏”。双击Commandl进入代码窗口,编写如下代码: Private Sub Form_Load() Textl.Visible_False End Sub Private Sub Commandl_Click() Textl.Visible=False ’Textl不可见 End Sub Private Sub Form_DblClick() Textl.Visible=True’Textl可见 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)滚动条常用于取代数据的键盘输入,通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值,即Value属性值的取值范围。与滚动条有关的事件主要有Change事件和Scroll事件,在改变滚动框(即滑块)位置后触发Change事件;在拖动滚动框(即滑块)过程中触发Scroll事件。 根据题意,新建“标准EXE”工程,将一个标签和一个水平滚动条控件添加到窗体中,标签的名称为Labell、Caption属性为空,水平滚动条的名称为HScrolll、Min属性为300、Max属性为900。双击Commandl进入代码窗口,编写如下代码: Private Sub HScrolll_Change() Labell.Caption:HScrolll.Value’将HScrolll的值显示在Labell中 End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)