如何禁止mdi窗体最小化和最大化

Question

请教各位高手一个简单问题,在程序运行中,如何禁止mdi窗体最小化和最大化.

Answer 1

你在窗体属性里把MINBUTTON及MAXBUTTON的属性设置为FALSE就可以了！

Answer 2

楼上正解今天好像csdn没人啊........

Answer 3

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
    Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long 
    Private Const SC_MAXIMIZE = &HF030 
    Private Const MF_BYCOMMAND = &H0& 
    Private Const WS_MAXIMIZEBOX = &H10000 
    Private Const GWL_EXSTYLE = (-20) 
    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 hMenu As Long, Success As Long 
     
     hMenu = GetSystemMenu(hwnd, 0) 
     Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND) 
     Dim xl As Long 
     
     Me.Show 
     xl = GetWindowLong(hwnd, GWL_STYLE) 
     xl = xl And (Not WS_MAXIMIZEBOX) 
     SetWindowLong hwnd, GWL_STYLE, xl 
    End Sub 
这是一个可以禁止最大化的代码，使MAXBUTTON无效，但我不知道如何改成使MINBUTTON无效的
请高手赐教