Question

vb命令按钮控制图片

Private Sub Command5_Click()
Image1.Picture = LoadPicture("C:\Users\zhengjie2533\Desktop\VB+SQL酒店餐饮\菜\r拌肺片.jpg")
End Sub
如上，按一下命令按钮图框出现图片，如何再按一下这个按钮，让图片消失。

Answer 1

Private Sub Command5_Click()
STATIC I
I=i+1
if i mod 2=1 then
Image1.Picture = LoadPicture("C:\Users\zhengjie2533\Desktop\VB+SQL酒店餐饮\菜\r拌肺片.jpg")
else
Image1.Picture = LoadPicture("")
endif
End Sub

Answer 2

Private Sub Command5_Click()
Static a As Boolean
a = Not a
If a Then
Image1.Picture = LoadPicture("C:\Users\zhengjie2533\Desktop\VB+SQL酒店餐饮\菜\r拌肺片.jpg")
Else
Image1.Picture = LoadPicture("")
End If
End Sub