请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1窗体上,画一个名称为Image1的图像框,在其中显示考生文件夹下的图片“pic2.jpg”,并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水

admin2019-05-28  11

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1窗体上,画一个名称为Image1的图像框,在其中显示考生文件夹下的图片“pic2.jpg”,并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条,名称分别为HScroll1、VScroll1,它们的刻度范围都是1~3。如图3-159(a)所示。要求如下:
    ①定义两个窗体级变量:length、high,并编写窗体的Form Load事件过程,使length、high分别等于图像框的宽、高;
    ②编写适当的事件过程,使得移动两个滚动条上的滚动块时,以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如:HScroll1的滚动块在刻度值为2的位置时,图像框的宽为初始宽度的2倍。如图3-159(b)所示。对于垂直滚动条也相同。
   
    注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。要求程序中的两个变量必须是length、high,此外不能再使用其他变量,除Form Load事件过程外,其他每个事件过程中只能写一条语句。

选项

答案审题分析 根据题意,本题需在滚动条的Change事件中改变图像框的宽度和高度,在窗体的Load事件中初始化全局变量。 操作步骤 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。 步骤2:打开代码编辑窗口,分别编写滚动条的Change事件过程和窗体的Load事件过程。 参考代码: Dim length,high Private Sub Form_Load() lenath=Image1.Width high=Imagel.Height End Sub Private Sub HScroll1_Chanqe() Image1.Width=HScroll1.Value*length End Sub PriVate Sub VScroll1_Change() Image1.Height=VScroll1.Value*high End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 滚动条。

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

相关试题推荐
随机试题
最新回复(0)