表单相黏问题 - 编程论坛

#2

yz10252022-04-20 11:24

若不行，退一步，只好让表单不能移动来解决，一开始就先订好主表单和副表单在屏幕上的相对位置。
使用RemoveMenu hMenu, 1, MF_BYPOSITION '移除移动选项
但是这API会开启Form_Resize()事件功能

若使用DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
Form能移动但是Form_Resize()事件功能则会变无效

[此贴子已经被作者于2022-4-20 11:37编辑过]

#3

风吹过b2022-04-23 18:23

试着向 B表彰发送移动的消息看看。太久了不记得了。感觉应该可以。

#4

xiaofisher2022-04-29 10:39

向工程中添加两个窗体Form1、Form2和一个模块，名称随意
模块代码：

程序代码：

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 CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GWL_WNDPROC = (-4)
Public Const WM_MOVE = &H3

Public lOldProc As Long

Public Function wndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If Msg = WM_MOVE Then
        Call Form1.WindowMove
    End If
    wndProc = CallWindowProc(lOldProc, hWnd, Msg, wParam, lParam)
End Function

Form1代码：

程序代码：

Dim fm As Form2

Private Sub Form_Load()
    Set fm = New Form2
    fm.Show 0
    lOldProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf wndProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Unload fm
    SetWindowLong hWnd, GWL_WNDPROC, lOldProc
End Sub

Public Sub WindowMove()
    If Me.WindowState = vbMaximized Then Exit Sub
    If fm.Visible Then
        fm.Move Form1.Left + Form1.Width, Form1.Top
    End If
End Sub