(1)在名称为Form1的窗体上画一个命令按钮,名称为Commandl、标题为“退出”、高为500、宽为1 200。窗体的标题为“退出”,窗体标题栏上不显示最大化、最小化。编写适当的事件过程,使程序运行时,单击Commandl命令按钮,退出窗体。程序运行时

admin2009-08-26  41

问题  (1)在名称为Form1的窗体上画一个命令按钮,名称为Commandl、标题为“退出”、高为500、宽为1 200。窗体的标题为“退出”,窗体标题栏上不显示最大化、最小化。编写适当的事件过程,使程序运行时,单击Commandl命令按钮,退出窗体。程序运行时的窗体界面如图27—1所示。
    注意:存盘时必须保存到考生文件夹下,工程文件名为sj1.vbp,窗体的文件名为sjl.frm。
    (2)在名称为Form1的窗体上画一个空白文本框,名称为Textl,其宽为1 000、高度为400;再画一个水平滚动条,名称为HScrolll,其刻度值范围是500~1500。请编写滚动条的Change事件过程.程序运行后,如果移动滚动框,则可按照滚动条的刻度值改变文本框的宽度,如图27—2所示。程序中不能使用任何变量。

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

选项

答案(1)根据题意,将一个命令按钮添加到窗体中,名称为Commandl、Caption属性为“退出”,将Forml的Caption属性设为“退出”,MaxButton属性为False、MinButton属性为False。双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() Unload Me’关闭窗口 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题考查控件画法、水平滚动条(HScrollBar)相关属性和事件。 滚动条常用于取代数据的键盘输入,通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值,即Value属性值的取值范围。 滚动条滑块移动时触发其Change事件,编写代码:Textl.Width=HScrolll.Value,即可实现移动滚动框来改变文本框的宽度。 根据题意,将一个水平滚动条控件和一个文本框控件添加到窗体中,水平滚动条的名称为HScrolll,Min属性为500、Max属性为1 500,文本框的名称为Textl、Width属性为500、Height属性为400,设置完成后双击HScrolll,进入代码窗口,编写如下代码: Private Sub HScroll1_Change() Textl.Width=HScrolll.Value’根据HScrolll的值来改变Textl的宽度 End Sub

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

最新回复(0)