请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个名称为Image1的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名

admin2016-09-18  30

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1的窗体上画一个名称为Image1的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmd1、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使得当单击“显示图片”按钮时,将当前文件夹下的图片文件“图片.jpg”显示在图像框中;而如果单击“隐藏图片”按钮,则清除图像框中的图片。

要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sit2.frm。

选项

答案步骤1:新建一个“标准EXE”工程,如表12—4在窗体中画控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写两个命令按钮的单击事件过程。 参考代码: Private Sub Cmd1_Click() Image1.Picture=LoadPicture("图片.jpg") End Sub Private Sub Cmd2_Click() Image1.Picture=LoadPicture() End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 ①为图像框控件指定图片有两种方法:一是在设计阶段通过Picture属性设置;二是在程序运行时通过LoadPicture()图片加载函数加载,其语法为:图片框.Picture=LoadPicture("图像文件路径"),App.Path可返回当前工程文件所在的文件夹路径,是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。
②Strech(自动伸缩)属性用来设定图像框是否需要自动调整大小,以适应载入图像框中的图片的大小,值为True时表示自动调整。
本题需分别在两个命令按钮的Click事仲过程中,用LoadPicture()函数为图像框加载或清除图片。
转载请注明原文地址:https://kaotiyun.com/show/cZLp777K
0

最新回复(0)