请问有办法让MDI窗体按设置时的大小显示，而不被随意拉动大小吗？

班主，没有知道吗，可以还是不可以

Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX = &H20000
Private Const GWL_STYLE = (-16)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub MDIForm_Load()
        Dim lStyle     As Long

        lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
        lStyle = lStyle And Not WS_MAXIMIZEBOX             '最大化
        lStyle = lStyle And Not WS_MINIMIZEBOX             '最小化
        lStyle = lStyle And Not WS_THICKFRAME             '可改变大小的边框
        SetWindowLong Me.hwnd, GWL_STYLE, lStyle
End Sub

[ 本帖最后由 jiashie 于 2010-10-21 22:23 编辑 ]

加载时出现上面提示，请问要怎么样使用？

无语。
把
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX = &H20000
Private Const GWL_STYLE = (-16)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

一定要放到一个模块的所有代码之前（option explicit之后，如果有option explicit的话）

结果是这样的

重复 5 楼的回复.

Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX = &H20000
Private Const GWL_STYLE = (-16)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long


这些语句, 放在窗体 代码的最前面. 所有的
Private Sub XXX  之前.

如果你代码 第一句是
option explicit
那么就放在这句之后.
还是在 Private Sub XXX  之前.

--------------
你四楼提示,说明位置放错了.
你 6 楼错误,说明 你没放,或者该窗体里没放.
--------------
如果你有多少窗体需要使用,那么你把这些代码的
Private  改成 Public ,然后放在 模块 (.bas ) 文件中.

嗯，版主、辛苦了。

没那么复杂，窗体有一个resize事件，对它处理就行了，比如需要窗体大小为8000，6000
响应resize事件的代码为
Private Sub Form_Resize()
  If Me.WindowState <> 1 Then
    '窗体不是最小化时执行固定窗口大小的操作
    Me.Height = 6000
    Me.Width = 8000
  End If
End Sub

谢谢班主