首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上画一个名称为Imagel的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmdl、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使
在名称为Forml的窗体上画一个名称为Imagel的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmdl、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使
admin
2015-12-04
32
问题
在名称为Forml的窗体上画一个名称为Imagel的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmdl、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使得当单击“显示图片”按钮时,将当前文件夹下的图片文件“图片.jpg”显示在图像框中;而如果单击“隐藏图片”按钮,则清除图像框中的图片。要求;程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sjt2.frm。
选项
答案
步骤1:新建一个“标准EXE”工程,如表12-4在窗体中画控件并设置其相关属性。 步骤2:打开代码编辑窗口,编写两个命令按钮的单击事件过程。 Private Sub Cmdl Click() Imagel.Picture=LoadPicture(“图片jpg”) End Sub Private Sub Cmd2 Click() Imagel.Picture=LoadPicture() End Sub [*] 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/XVLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsIntegerOpen______As#1Fori=1To10Print#1,iNext
在E-R图中,矩形表示______。
在窗体上放一个文本框Text1,在文本框中输入456,并有下列事件过程:PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub单击该窗体,在输入对话框中输入12
表达式Len(Six(1.3))Mod2的值为______。
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=Fun2(F
当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不能响应的事件
当文本框ScrollBars属性设置了非零值,却没有效果,原因是
在刚建立工程时,使窗体上的所有控件具有相同的字体格式,应对______的属性进行设置。
在列表框中当前被选中的列表项的序号是由下列()属性表示的。
在dountil…Loop循环中,判断循环表达式与结束循环的关系是______。
随机试题
驾驶机动车在这种情况下怎样安全行驶?(图3.5.1)
上下牙列最广泛接触时,下颌所处的位置为下颌处于安静状态时,上下牙列之间的距离称
肾脓肿( )急性肠炎( )
设备监理的中心任务概括为()。
期货公司错误执行客户交易指令,除客户认可的以外,交易的后果由期货公司承担。以下处理方式中,正确的是( )。
某企业只生产一种产品。4月1日期初在产品成本4万元。4月份发生如下费用:生产领用材料6万元,生产工人工资2万元,制造费用1万元,管理费用1.5万元,广告费0.5万元。月末在产品成本3万元。该企业4月份完工产品的生产成本为()万元。
“好面子”历来是国人普遍具有的思维。有人认为。请客吃饭时“好面子”是当今中国人的待客之道;也有人认为。“好面子”“吃大方”是一种过分虚荣的表现。对此,请谈谈你的看法。
[2015年第47题]如果把一杯酒倒进一桶污水中,你得到的是一桶污水;如果把一杯污水倒进一桶酒中,你得到的仍然是一桶污水。在任何组织中,都有可能存在几个难缠人物,他们存在的目的似乎就是把事情搞糟。如果一个组织不加强内部管理,一个正直能干的人进入某低效的部门
在已建窗体中有一命令按钮(名为Commandl),该按钮的单击事件对应的VBA代码为:PrivateSubCommandk_Click()subT.Form.RecordSource="select*from雇员"E
America’smostpopularnewspaperwebsitetodayannouncedthattheeraoffreeonlinejournalismisdrawingtoaclose.TheNewY
最新回复
(
0
)