首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个名称为Image1的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个名称为Image1的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名
admin
2016-09-18
49
问题
请根据以下各小题的要求设计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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据结构分为逻辑结构和存储结构,线性链表属于______。
以下叙述中错误的是()。
设程序中有如下数组定义和过程调用语句:Dima(10)AsInteger……Callp(a)如下过程定义中,正确的是
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是()。
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20
下列可作为VisualBasic变量名的是()。
下列选项中不属于软件生命周期开发阶段任务的是()。
符合结构化原则的三种基本控制结构是顺序结构、____________和循环结构。
下列运算符中,优先级别最高的是
随机试题
在现实生活中,需要用CFCA的典型应用有
有限责任公司章程应载明()。
交工验收时,()需检测弯沉、平整度、抗滑性能等。
在迈克耳逊干涉仪的反射镜M2平移距离为0.3220mm时,测得某单色光的干涉条纹移过1024条,则该单色光的波长为:
水基型泡沫灭火器的优点有()。
7,实施对各省、自治区、直辖市重要统计数据监控和评估的主体是地方各级人民政府统计机构。()
社会保障是社会安定的重要保证。要以()为基础,以基本养老、基本医疗、最低生活保障制度为重点,以慈善事业、商业保险为补充,加快完善社会保障体系。
ARP表用于缓存IP地址与MAC地址的对应关系,采用ARP表的好处是(8)。
YoucancommunicateWithit.Youcanshowyourgoodsbyit.
Speakersofthoselanguagesthushavetolearnanewwayofreasoningandexpressingtheirideasiftheyaregoingtocommunicat
最新回复
(
0
)