Private Sub Image1_Click()
If Image1.visible = true Then
Image1.visible = false
Else
Image1.visible = true
End If
End Sub
...全文
552打赏收藏
关于image控件的一个问题
窗体上有一个image控件,我现在要求就是鼠标单击这个image,如果原来是可见的就隐藏,如果是隐藏的就显示出来,下面是我写的,单击image时可以隐藏,但再单击就显示不出来了,请问是怎么回事?应该怎么写呢? Private Sub Image1_Click() If Image1.visible = true Then Image1.visible = false Else Image1.visible = true End If End Sub