VB-窗体移动问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 07:06:13
VB problem:
有两个无标题栏窗体：
当使用api函数的使其中一个窗体移动时，另外一个窗体怎么随之移动？

不用API就行了
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 1 Then
Mouse_X = x
Mouse_Y = Y
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim CurrentMouse_X As Single, CurrentMouse_Y As Single
If Button = 1 Then
CurrentMouse_X = x - Mouse_X
CurrentMouse_Y = Y - Mouse_Y
Form1.Left = Form1.Left + CurrentMouse_X
Form1.Top = Form1.Top + CurrentMouse_Y
End If
End Sub