设计一个简单的程序,要求如下:在窗体上设置两个按钮,一个按钮的标题为显示,另一个按钮的标题为清除。当单击显示按钮时,在窗体上显示显示一副地球的图片,单击清除按钮时,将清除该图片
图片文件在F盘
设计一个简单的程序,要求如下:在窗体上设置两个按钮,一个按钮的标题为显示,另一个按钮的标题为清除。当单击显示按钮时,在窗体上显示显示一副地球的图片,单击清除按钮时,将清除该图片
图片文件在F盘
把下面代码中第二行中的1.jpg改成你的图片的名字就可以了
Private Sub Command1_Click()
Form1.PaintPicture LoadPicture("f:\1.jpg"), 0, 0, Form1.ScaleWidth, Form1.ScaleHeight
End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
private sub command1_click()
picture1.picture=loadpicture(f:\地球.jpg)
end sub
private sub command2_click()
picture1.picture= load picture("")
end sub
Private Sub Command1_Click() '显示 Picture1.Picture = LoadPicture("f:\地球.jpg") '注意路径 End Sub
Private Sub Command2_Click() '清除 Picture1.Picture = LoadPicture("") End Sub
Private Sub Form_Load() Command1.Caption = "显示" Command2.Caption = "清除" End Sub
Private Sub Command1_Click() Picture1.Picture = LoadPicture("F:\地球.bmp") End Sub
Private Sub Command2_Click() Picture1.Picture = LoadPicture() End Sub
图片路径请根据自己名称修改.