请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画两个文本框,其名称分别为Tcxtl和Text2,它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置

admin2010-09-02  11

问题 请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画两个文本框,其名称分别为Tcxtl和Text2,它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求:
①Text2可以显示多行文本,且有垂直和水平两个滚动条;
②运行时在Textl中输入的字符都显示为“*”。运行后的窗体如图1-166所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

(2)在名称为Forml的窗体上画一个图像框,名称为tmagcl,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件picl.bmp装入图像框;再画两个命令按钮,名称分别为Cl、C2,标题分别为“放大”、“缩小”,如图1-167所示。
要求:
①请编写适当的事件过程,程序运行后,如果单击“放大”按钮,则把图像框的高度、宽度均增加100;单击“缩小”按钮,则把图像框的高度、宽度均减少100。要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性,使得在放大、缩小图像框时,其中的图像也自动放大、缩小。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案 第1小题 【操作步骤】 步骤l:新建一个“标准EXE”工程,在窗体Forml中画两个文本框,并分别设置它们的相关属性,其属性及值如表2-94所示。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,如表2-95在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写两个命令按钮的Click事件过程。 参考代码: PriVate Sub C1_Click() Imagel.Width=Imagel.Width+100 Imagel.Height=Imagel.Hei.ght+100 End Sub PriVate Sub C2_Click() Imagel.Width=Imagel.Width一100 Imagel.Height=Imagel.Hei.ght-100 End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 第1小题
  文本框控件的MultiLine属性设置文本框是否能以多行显示文本,值为True表示允许,值为False表示不允许;ScrollBars属性设置文本框是否有水平或垂直滚动条,它的值为;0表示没有滚动条(默认值),1表示只有水平滚动条,2表示只有垂直滚动条,3表示有水平和垂直滚动条,设置O以外的值时MultiLine属性值必须为True。
  本题只需按要求画出控件并设置其相应属性即可。
  第2小题
  ①为图像框控件指定图片有两种方法:一是在设计阶段通过Picture属性设置;二是在程序运行时通过LoadPictm()图片加载函数加载,其语法为:图片框.Picture=Loadicture("图像文件路径"),App.Path可返回当前工程文件所在的文件夹路径,是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Stretch(自动伸缩)属性用来设定图像框是否需要自动调整大小,以适应载入图像框中的图片的大小,值为True时表示自动调整。
  程序运行时要改变图像框的大小,可通过修改其Width和。Height属性值来实现。
转载请注明原文地址:https://kaotiyun.com/show/4Ump777K
0

最新回复(0)