如何隐藏这个模式窗体？

[LittleLittleBoy]

在一个全屏大小的窗体form1上边show一个非全屏的模式窗体form2（比较小）出来，要求当鼠标离开form2时候单击鼠标将form2隐藏，如何做到？各位老大帮忙啦谢谢

[pcwak]

用GetCursorPos 获取鼠标坐标，判断是否在FORM2上

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim point As POINTAPI
GetCursorPos point
End Sub

[LittleLittleBoy]

判断了，但是鼠标要是不在form2上边，就不会响应form2的mousemove和mouseup事件了啊


那我隐藏form2的句代码要先到哪儿去啊？

[LittleLittleBoy]

唉，这个问题好麻烦啊