首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为FormI的窗体上添加一个名称为Imagel的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件picl.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。
在名称为FormI的窗体上添加一个名称为Imagel的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件picl.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。
admin
2020-04-08
47
问题
在名称为FormI的窗体上添加一个名称为Imagel的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件picl.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。
要求:
①请编写适当的事件过程,程序运行后,如果单击“放大”按钮,则将图像框的高度、宽度均增加100;单击“缩小”按钮,则将图像框的高度、宽度均减少100,要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性,使得在放大、缩小图像框时,其中的图像也自动放大、缩小。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.fm。
选项
答案
【操作步骤】 步骤1:新建一个窗体,按照题目要求建立控件并设置图像框相应属性,如图4.17所示。 [*] 步骤2:按照步骤l设置其他控件相关属性,程序中涉及的控件及属性见表4.10。 [*] 步骤3:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub C1 C1iCk()′当单击"放大"按钮时.依次将Imagel的高与宽分别加100 Imagel.Height=Imagel.Height+i00 Imagel.Width:Imagel.Width+100 End Sub Private Sub C2 C1iCk()’当单击"缩小"按钮,则依次将Imagel的高与宽分别减100 Imagel.Height=Imagel.Height—i00 Imagel.Width=Imagel.Width一100 End Sub 步骤4:调试并运行程序,关闭程序后按题目要求存盘。
解析
图像框(Image)控件的Picture属性用于在设计阶段时装载在图像框中显示的图片,它的Stretch(自动伸缩)属性用来设定载入其中的图片是否需要自动调整,以适应图像框的大小。图像框的宽和高分别由其Width属性和Height属性设置。
转载请注明原文地址:https://kaotiyun.com/show/uATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=2Ifa*b<10Thenb=b+1Elseb
对关系S和R进行集合运算,结果中既包含S中的所有元组也包含R中的所有元组,这样的集合运算称为()。
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是( )。
在软件生产过程中,需求信息的来源是()。
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是( )。
下列关于类、对象、属性和方法的叙述中,错误的是()。
下面关于算法的叙述中,正确的是()。
设有下面的语句:PrintIIf(x>0,1,IIf(x
为了判断字符串变量strName中的姓名是否姓"李",应采用的表达式是
随机试题
以下质量特性中属于线性特性的有()
成熟的Th细胞的表面标志是
法是以国家强制力为后盾,通过法律程序保证实现的社会规范。关于法的这一特征,下列哪些说法是正确的?
颜回说:“夫子循循然善诱人,博我以文,约我以礼,欲罢不能。”体现的是德育的()。
如果sam.exe文件存储在一个名为ok.edu.cn的ftp服务器上用户所能访问的根目录中那么下载该文件使用的URL为_____。
语文课程评价的根本目的是()。
斯宾格勒
《唐律疏议》指的是()。
结合材料,回答问题:如同其他物质一样,资本主义社会也是不断发展变化的社会。自由竞争的资本主义在19世纪60年代、70年代达到了它发展的顶点,此后逐步向垄断资本主义过渡。到20世纪初,资本主义社会基本上完成了自由资本主义向垄断资本主义的过
SharingEconomicLossesthroughInsuranceEachminuteofthedayornight,everyonefacesapossiblefinancialloss.Ahome
最新回复
(
0
)