请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再画三个命令按钮,名称分别为Command1、Comman

admin2019-05-28  26

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

选项

答案审题分析 本题需分别在三个命令按钮的Click事件过程中,用LoadPicture()函数为图像框加载不同图片。 操作步骤 步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。 步骤2:打开代码编辑窗口,编写三个命令按钮的单击事件过程。 参考代码: Private Sub Command1_Click() Image1.Picture=LoadPicture(App.Path&"\Misc34.ico") End Sub Private Sub Command2_Click() Image1.Picture=LoadPicture(App.Path&"\Misc37.ico") End Sub Private Sub Command3_Click() Image1.Picture=LoadPicture() End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 图形控件。

解析
转载请注明原文地址:https://kaotiyun.com/show/xPUp777K
0

最新回复(0)