求助~~MDImain窗体如何禁止最大化/还原按钮

Question

求助~~MDImain窗体如何禁止最大化/还原按钮

Answer 1

Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongConst WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)Private Sub MDIForm_Load()    Dim TempLng     As Long    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)    TempLng = TempLng And Not WS_MAXIMIZEBOX    SetWindowLong Me.hwnd, GWL_STYLE, TempLngEnd Sub

Answer 2

这个有问题
比如你在mdi下面放上statubar
最大化mdi后statubar超出显示区，看不见了