Question

如何让VB窗体靠边时窗体自动隐藏

我写了一个代码，窗体靠边时自动隐藏，如下:
if form1.left > screen.width - form1.width then
form1.left = screen.width
endif
这段代码可以把窗体隐藏到屏幕边上，但鼠标放在窗体上面时，窗体不会自动弹出，这段又要怎么写，就像QQ窗体那样，谢谢

Answer 1

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If Me.Location.X > Screen.PrimaryScreen.Bounds.Width Then
Me.Location.X(+Me.Location.X + "你的form X的大小")
End If
End Sub

Answer 2

计算TOP left值
可以判断是否顶端，左侧。
加上高和宽即可判断是否在下端和右侧。
若当窗体靠近边界在50以内，则处理窗体进行到隐藏。也就是将窗体移出界面。只保留50在外面。当鼠标移动时将窗体展开即可。

Answer 3

将窗体左边不要完全放到屏幕右侧，留下1到5的宽度
然后在窗体的mousemove事件内写入显示代码

当然类似QQ那些的肯定不是用这种方式实现的

Answer 4

留个记号