关于mdiform如何屏蔽掉最大化按钮？而且要拉动mdiform的时候大小超过800×600的大小就不变，？

Question

屏蔽最大化 你在属性里把 MaxButton 调为falsePrivate Sub Form_Resize()
 Form1.ScaleMode = 3
If Form1.ScaleHeight >= 600 Or Form1.ScaleWidth >= 800 Then
Form1.ScaleHeight = 600
Form1.ScaleWidth = 800
End If
End Sub

Answer 1

以下是限制窗口缩放的代码：以下是窗口代码Option ExplicitPrivate Const GWL_WNDPROC As Long = (-4&)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
                                                              
Private Sub Form_Load()
  procOld = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
End SubPrivate Sub Form_Unload(Cancel As Integer)
  Call SetWindowLong(hWnd, GWL_WNDPROC, procOld)
End Sub以下是模块代码
Option ExplicitType POINTAPI
x As Long
y As Long
End TypePublic Const WM_GETMINMAXINFO As Long = &H24Type MINMAXINFO
ptReserved As POINTAPI
ptMaxSize As POINTAPI
ptMaxPosition As POINTAPI
ptMinTrackSize As POINTAPI
ptMaxTrackSize As POINTAPI
End TypePublic procOld As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes&)
Public Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, ByVal hWnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&)
  
Public Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Select Case iMsg
    Case WM_GETMINMAXINFO
      Dim udtMINMAXINFO As MINMAXINFO
      Dim nWidthPixels&, nHeightPixels&
      nWidthPixels = Screen.Width \ Screen.TwipsPerPixelX
      nHeightPixels = Screen.Height \ Screen.TwipsPerPixelY
      CopyMemory udtMINMAXINFO, ByVal lParam, 40&
      With udtMINMAXINFO
        .ptMaxSize.x = nWidthPixels - (nWidthPixels \ 4)
        .ptMaxSize.y = nHeightPixels - (nHeightPixels \ 4)
        .ptMaxPosition.x = nWidthPixels \ 8
        .ptMaxPosition.y = nHeightPixels \ 8
        .ptMaxTrackSize.x = .ptMaxSize.x
        .ptMaxTrackSize.y = .ptMaxSize.y
        .ptMinTrackSize.x = nWidthPixels \ 4
        .ptMinTrackSize.y = nHeightPixels \ 4
      End With
      CopyMemory ByVal lParam, udtMINMAXINFO, 40&
      WindowProc = False
      Exit Function
  End Select
  WindowProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam)
End Function
互相交流
E-mail: [email protected]