(1)在名称为Forml的窗体上画一个图片框,名称为Pieturel;一个垂直滚动条,名称为VScrolll;一个命令按钮,名称为Commandl,标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形(文件名为Pic1.jpg,位于考生文件夹下),图

admin2010-07-13  30

问题 (1)在名称为Forml的窗体上画一个图片框,名称为Pieturel;一个垂直滚动条,名称为VScrolll;一个命令按钮,名称为Commandl,标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形(文件名为Pic1.jpg,位于考生文件夹下),图片框的宽度与图形的宽度相同,图片框的高度任意,如图55—1所示。编写适当的事件过程,要求程序运行后,如果单击命令按钮,则设置垂直滚动条的属性如下表所示。

之后可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图55—2所示。要求程序中不得使用任何变量。

    注意:保存时必须存放在考生文件夹下,工程文件名为sjl.vbp,窗体文件名为sjl.frm。
    (2)在名为Forml的窗体中建立一个命令按钮,名为Cmdl,标题为Show(如图55—3所示)。编写适当的事件过程,使程序运行后,若单击Show按钮,则执行语句Forml.Print“Show”;如果单击窗体,则执行语句Forml.Cls。

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

选项

答案 (1)本题主要考查图片框的使用。控制图片的大小就是调整图片框Width属性和Height属性的值,Width属性和Height属性分别决定控件的宽和高。要想通过改变滚动条的Value属性值来调节图片框的大小,需要将滚动条的Value属性值和图片框的高度联系起来,使滚动条的Value属性值改变时触发Change事件。 ①建立界面并设置控件属性。程序中用到的控件及其属性见下表: [*] ②编写参考代码如下: Option Explicit Private Sub Commandl Click() VScrolll.Max=3000 VScrolll.Min=100 VScrolll.LargeChange=300 VScrolll.SmallChange=20 End Sub Private Sub VScrolll Change() Picturel.Height—VScrolll.Value End Sub ③调试并运行程序。 ④按题目要求存盘。 (2)①新建一个名为Forml的窗体。 ②单击工具箱中的CommandButton控件图标,在窗体上拖拉出一个命令按钮,在属性窗口设置该命令按钮名称为Cmdl,标题为“Show”。 ③打开代码窗口中输入如下代码: Private Sub Cmdl_Click() Forml.Print"Show" End Sub Private Sub Form Click() Forml.Cls End Sub ④按要求保存文件即完成本题。

解析
转载请注明原文地址:https://jikaoti.com/ti/Syg0FFFM
0

最新回复(0)