在线等待，如何动态的改变CommandButton的背景图片？

[wjfling]

如何动态的改变CommandButton的背景图片？

[lihonggen0]

在设计时设置style属性为1--Graphical



代码象这样：
Private Sub Command1_Click()
Command1.Picture = LoadPicture("f:\aa.bmp")

End Sub

[踏平扶桑]

需要把command的usermaskcolor设置为true
style=1

[captainivy]

加入command1,ImageList1,timer1
command1的Style设为1 ImageList1加入图片

代码如下:

Public i As Integer


Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()

If i < ImageList1.ListImages.Count Then
i = i + 1
Command1.Picture = ImageList1.ListImages(i).Picture
Else
i = 1
Command1.Picture = ImageList1.ListImages(i).Picture
End If

End Sub

[lrb820102]

可以吧背景图放在同一个文件夹下
名字用数字标记
可以实现连续载入

[kimurakenshin]

very good.受教,受教,学习!!!!

[fulongbiao]

Private Sub Command1_Click()
Command1.Picture = LoadPicture("f:\aa.bmp")

End Sub

style属性为1--Graphical

[taosihai1only]

设置style属性为1--Graphical

需要改变背景的事件中
Command1.Picture = LoadPicture("f:\aa.bmp")

[trite]

同意captainivy(Ivy) ， lihonggen0(李洪根，MS MVP，标准答案来了) 的代码也对，但是aa.bmp文件被删除或者移走则会出错。

[boydgmx]

预先在窗体中添加一个Picturebox，加载一个同时包含多个背景图片的大图片（也就是说各个图片在其中分占一块），在需要的时候用PaintPicture方法一块一块的设置cmd的背景。
这样只要窗体名.frx不被删除就不会出错。

[flc]

在设计时设置style属性为1
……
.Picture = LoadPicture("f:\aa.bmp")
……

[j4sxw]

UP