7,762
社区成员
发帖
与我相关
我的任务
分享关于image控件的一个问题
窗体上有一个image控件，我现在要求就是鼠标单击这个image，如果原来是可见的就隐藏，如果是隐藏的就显示出来，下面是我写的，单击image时可以隐藏，但再单击就显示不出来了，请问是怎么回事？应该怎么写呢？
Private Sub Image1_Click()
If Image1.visible = true Then
Image1.visible = false
Else
Image1.visible = true
End If
End Sub
Private Sub Image1_Click()
If Image1.visible = true Then
Image1.visible = false
Else
Image1.visible = true
End If
End Sub
...全文
请发表友善的回复…
发表回复
northwolves 2003-09-25
- 打赏
- 举报
隐藏时击不中对象，可以添加一个LABEL：
Private Sub Form_Load()
Label1.Move Image1.Left, Image1.Top, Image1.Width, Image1.Width
Label1.BackStyle = 0
Label1.Caption = ""
End Sub
Private Sub Label1_Click()
Image1.Visible = Not Image1.Visible
End Sub
Private Sub Form_Load()
Label1.Move Image1.Left, Image1.Top, Image1.Width, Image1.Width
Label1.BackStyle = 0
Label1.Caption = ""
End Sub
Private Sub Label1_Click()
Image1.Visible = Not Image1.Visible
End Sub
lubaixu 2003-09-25
- 打赏
- 举报
不错的方法呀.
