首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上画一个名称为Imagel的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmdl、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使
在名称为Forml的窗体上画一个名称为Imagel的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmdl、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使
admin
2015-12-04
29
问题
在名称为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全国计算机二级
相关试题推荐
在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空,标签Label3的标题为“计算结果”。运行程序时会自
在窗体下画两个文本框Text1和Text2,一个命令按钮Command1,请阅读下列程序段:PrivateSubCommand1_Click()x=0DoUntilx>=50x=(x+4)*(x+3)n=n+1LoopText1.Te
语句Form2.Show0表示[];语句Form3.Show1表示[];
执行下列程序后,鼠标单击窗体,输出结果为PrivateSubForm_Click()Print"Click";EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteg
阅读下列程序:PrivateSubCommand1_Click()DimiAsInteger,kAsIntegerk=2Fori=1To3PrintFun(k);NextEndSubFunctionFun(jAsI
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=Fun2(F
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为a1,且取消其“可见”属性。运行时,哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
在列表框中当前被选中的列表项的序号是由下列()属性表示的。
以下能够正确退出循环的是()。
随机试题
Hehopedthefirmwould______himtothePairsbranch.
Froment征阳性
男,11岁,急性咽炎发作,体温39℃,2周后出现腰酸,乏力,眼睑水肿,尿量400ml/d,血压150/100mmHg,尿检:蛋白+,红细胞+++,偶见红细胞管型,血BUN6.5mmol/L,血Cr110μmol/L,B超示双肾大小正常,补体降低,ESR25
肺型并殖吸虫病与肺结核临床鉴别要点是
下列哪种情况不易发生气体栓塞
以下哪项不是寒湿凝滞型痛经的主要证候
对于矿产资源预查和普查阶段的探矿权,通常适合采用的评估方法是()。
关于对质量管理体系的要求,正确的表述是()。
合同可以变更,但是当事人对合同变更的内容约定不明确的,推定为(64)。
Myfather______metodriveacarwhenIwassixteen.
最新回复
(
0
)