Question

VB怎么让按一下按钮就换背景图片

就是说 我做了一个VB的东东 现在 我的按钮不是command 是Label 就是标签 有没有代码能让我按一下标签 就可以换一下背景图片呢？比如说吧 我现在的背景图是一朵花 然后我按了一下按钮 就变成了两朵花-请问怎么实现这个效果？代码 最好教我怎么弄 谁有代码？好的加分

Answer 1

在按钮中添加代码：

Me.Picture = LoadPicture("C:\图片.bmp")

或者

Me.Picture = LoadPicture("C:\图片.jpg")

即可更换窗体的背景图片。图片可以是BMP或JPG格式。

Answer 2

在label的单击label_click()中加入
Private Sub Label1_Click()
Form1.Picture = LoadPicture("c:\aa.bmp")
End Sub
只要单击就会高调入C盘根目录下aa.bmp文件

groway@shou.com

追问

后面的BMP可以改为JPEG么？就是图片格式 可以自己改么？

追答

可以,VB只能调入BMP 或JPG,

追问

额 还有- 我内个Label 是有其他的程序的 就是说 我内个Label 按一下就可以打开另一个文件的 请问这个怎么办？ 我也想要打开那个文件的同时 换背景图。。怎么办- -

追答

1、将Form1.Picture = LoadPicture("c:\aa.bmp")放到你打开文件的那个语句下面。

2、在通用处声明Dim a As Integer。
在Form1.load()里给a赋初值零。
在Label1_Click()中，调入文件语句下面加也行
If a = 1 Then Form1.Picture = LoadPicture("D:\日志.jpg")
ElseIf a = 0 Then Form1.Picture = LoadPicture("D:\日志1.jpg")
End If
a = (a + 1) Mod 2
也可以根据要打开的不同文件，换不同的背景

追问

别和我说那么复杂- -你就告诉我 怎么弄 代码是什么 然后打开文件的语句你就用XX代替

Answer 3

可以类似这样
Dim a As Integer
Private Sub Label1_Click()
If a = 1 Then
Picture1.Picture = LoadPicture("D:\日志.jpg")
ElseIf a = 0 Then
Picture1.Picture = LoadPicture("D:\日志1.jpg")
End If
a = (a + 1) Mod 2
End Sub

Answer 4

不明白，按100下就100朵花？

追问

不是- 就是按一下Label 背景图片就会换一张不一样的- -

追答

那么你的图片在哪里？你参考其他人的回家就是了。