Question

VB 窗体移动到屏幕边缘反弹

我用网上的代码做了个在桌面移动的窗体，如何判断如果窗体遇到屏幕边缘则弹回来？就是不让移动的窗体跑出屏幕外面
补充一下，是VB的，vb 6.0编写的

Answer 1

Option Explicit

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Form1.Top < 0 Then
Form1.Top = 0
ElseIf Form1.Left < 0 Then
Form1.Left = 0
ElseIf Form1.Left + Form1.Width > Screen.Width Then
Form1.Left = Screen.Width - Form1.Width
ElseIf Form1.Top + Form1.Height > Screen.Height Then
Form1.Top = Screen.Height - Form1.Height
End If
End Sub