Question

VB怎么点击更换按钮图片有5图片

在VB中我想把按钮中插入图片点一次换一张，一共5张图片，循环切换，代码怎么编写，小弟是新手请高手指点指点，先谢谢了

Answer 1

'6个 图像框

'1个按钮

'第6个图像框 可以空 不弄图 无所谓

Private Sub Command1_Click()

Image6.Picture = Image1.Picture

Image1.Picture = Image2.Picture

Image2.Picture = Image3.Picture

Image3.Picture = Image4.Picture

Image4.Picture = Image5.Picture

Image5.Picture = Image6.Picture

End Sub

Answer 2

创建名为image1的数组image控件[image1(0)---image1(4)],并加载好图片
Dim i As Integer
Private Sub Command1_Click()
Command1.Style = 1
If i > 4 Then i = 0
Command1.Picture = image1(i).Picture
i = i + 1
End Sub

Answer 3

方法多了，文件名有规律，然后loadpicture显示下就可以了 。