在名称为Form1的窗体上添加一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下

admin2016-06-23  30

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

选项

答案[操作步骤] 步骤1:建立界面,添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3.48。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Private Sub Command1_Click() Image1.Picture=LoadPicture(App.path&"\Misc 34.ico")’加载图片 End Sub Private Sub Command2_Click() Image1.Picture=LoadPicture(App.path&"\Misc37.ico") End Sub Private Sub Command3_Click() Set Image1.Picture=Nothing’清除Image1中的图片 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://jikaoti.com/ti/k9J0FFFM
0

最新回复(0)