请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画一个名称为Labell的标签,标签的宽和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其居中显示“等级考试”,并使标签的外观

admin2010-09-02  15

问题 请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为Labell的标签,标签的宽和高分别为2000、300,有边框,并利用属性窗口设置适当的属性,使其居中显示“等级考试”,并使标签的外观如图1-226所示。运行后的窗体见图1.226。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

(2)在名称为Forml的窗体上画一个名称为Imagel的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再画三个命令按钮,名称分别为Commandl、Command2、Cornmand3,标题分别为“红桃”、“黑桃”、“清除”。在考生目录下有两个图标文件,其名称分别为“Misc34.ico”和“Misc37.ico”。程序运行时,单击“红桃”按钮,则在图像框中显示红桃图案(即Misc34.ico文件,如图1-227所示);单击“黑桃”按钮,则在图像框中显示黑桃图案(即Misc37.ico文件);单击“清除”按钮,则清除图像框中的图案。请编写相应控件的Click事件过程,实现上述功能。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 【操作步骤】 步骤l:新建一个“标准EXE”工程,在窗体Forml中画三个单选按钮,并设置它的相关属性,其属性及值如表2-133所示。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤l:新建一个“标准EXE"工程,如表2-134在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写三个命令按钮的单击事件过程。 参考代码: PriVate Sub Commandl_Click() Imagel.Pi cture=LoadPi cture(App.Path &"\Misc34.ico") End Sub PriVate Sub Command2_Click() Imagel.Picture=LoadPi cture(App.Path &"\Misc37.iCO") End Sub PriVate Sub Command3_Click() Imagel.Picture=LoadPi cture() End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 第1小题
    Alignment属性用于确定文本框中文本的放置方式,其值可以设置为0(靠左,默认)、1(靠右)或2(居中)。
    本题只需按要求画出控件并设置其相应属性即可。
第2小题
    ①为图像框控件指定图片有两种方法:一是在设计阶段通过Picture属性设置;二是在程序运行时通过LoadPicture()图片加载函数加载。其语法为:图片框.Picture=LoadPicture("图像文件路径"),App.Path可返回当前工程文件所在的文件夹路径,是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Stretch(自动伸缩)属性用来设定图像框是否需要自动调整大小,以适应载入图像框中的图片的大小,值为True时表示自动调整。③BorderStyle用于设置图像框的边框类型,值为O表示无边框,值为1表示有边框。
    本题需分别在三个命令按钮的Click事件过程中,用LoadPicture()函数为图像框加载不同图片。
转载请注明原文地址:https://jikaoti.com/ti/sNg0FFFM
0

随机试题
最新回复(0)