在vb中如何精确同步移动多个窗体?？

2025-02-26 04:59:39

推荐回答（1个）

回答（1）：

我做了几行。
对无标题栏的窗体，或者不从标题栏移动的情况下可用。
有标题栏并且点住标题栏移动则不理想。
代码如下，仅供参考。

1、建立模块。
Option Explicit

Public Oldproc As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
Public Const WM_MOVE = &H3
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const GWL_WNDPROC = (-4)
Public BnHwnd As Long

Public Function Newproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wp As Long, ByVal lp As Long) As Long
If Msg = WM_MOVE Then '捕获窗体移动事件
SendMessage BnHwnd, WM_LBUTTONDOWN, 1, 0
SendMessage BnHwnd, WM_LBUTTONUP, 1, 0 '将消息发送到按纽，使其发生CLICK事件
End If
Newproc = CallWindowProc(Oldproc, hwnd, Msg, wp, lp)
End Function

2、在窗体上有一个按钮（名称为eventbn）
Dim 原垂直 As Single, 原水平 As Single

Private Sub EventBn_Click()
MsgBox "移动了"
End Sub

Private Sub form_load()
Form2.Show
Form3.Show
BnHwnd = EventBn.hwnd '获得按纽句丙
Oldproc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Newproc)
EventBn.Visible = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
原垂直 = Me.Top + Y
原水平 = Me.Left + X
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Top = Me.Top - 原垂直 + Y
Me.Left = Me.Left - 原水平 + X
Form2.Top = Form2.Top - 原垂直 + Y
Form2.Left = Form2.Left - 原水平 + X
Form3.Top = Form3.Top - 原垂直 + Y
Form3.Left = Form3.Left - 原水平 + X
End Sub

3、其他窗体基本都这样。

最新问答

谁能帮我翻译一下这些日语!谢谢

渝发建设和重庆诚业建筑工程有限公司哪个好

我想查询国寿福禄双喜两全保险(分红型)合同号2014-420910-442-01501765-2金

中暑有哪些表现及如何诊断中暑后该如何急救

西安医学院第一附属医院

四年级下期末语文试卷的作文题目是什么

KID诡异的空中漫步那一集里园子曾经幻想自己抱着《大海的奇迹》然后被KID偷走京极真再来救她

刚出生的宝宝，是否可以缴纳社保？

前男友发朋友圈林深时见鹿，海蓝时见鲸，还配了一男一女在海边的图片，他什么意思

温州有哪几个长途车站？