Question

VB中如何在一个按钮第一次单击改变picture1里的图片再一次单击又变成原图片

如题...谢谢解答``

Answer 1

Private Sub Command1_Click()
Static pic_changed As Boolean

If pic_changed = False Then
Me.Picture1.Picture = LoadPicture("C:\temp\1.jpg")
Else
Me.Picture1.Picture = LoadPicture("C:\temp\2.jpg")
End If
pic_changed = Not pic_changed
End Sub