Question

VB为什么visible=false 还是不回消失

代码如下：
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = True

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False

End Sub
应该如何修改？

Answer 1

呵呵！这代码就是你写的问题了!
MouseMove是鼠标移动的时候触发的事件!也就是说当你的鼠标动了,这个MouseMove事件的代码就会被触发!
MouseUp是你单击鼠标按钮提起来的时候会触发的事件!

你不要把Image1.Visible = True放在MouseMove事件下就不会出现这问题了!

Answer 2

这是两个事件的问题 前者你按下了鼠标激发 MouseUp事件 隐藏了 可是你能保证鼠标不在Label1上移动吗？显示是不可能的 只要一移动就会激发 MouseMove事件 这个事件是 不隐藏即显示出来 所以不会隐藏了

Answer 3

Private Sub Label1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = True

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False

End Sub

Answer 4

使用MouseEnter事件代替MouseMove事件