隐藏窗体

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:54:33
建立一个窗体，当鼠标移动到窗体上时窗体就自动隐藏（窗体并没接受鼠标的单击或双击事件），如何写代码？写的好可以实现追分！

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Hide
End Sub
QQ:357731659

只要这一行代码就OK了:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Hide
End Sub

不过这窗体没了,可就不能关了呀.. 我下面的是又添加了一个Timer1, 让它每5秒,就把窗体显示出来呵..
Private Sub Form_Load()
Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
Me.Visible = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 0 Then Exit Sub

If (X < 0) Or (Y < 0) Or (X > Me.Width) Or (Y > Me.Height) Then
Me.Show
Else
Me.Hide
End If
End Sub

你写的不详细
怎么能窗体隐藏
是不是窗体上的控件

可以用.... HIDE 来隐藏!!!!