最大化和还原图标屏蔽，怎么做？

Question

我的mdi窗体，它怎么没有maxbotton属性和bodysyle属性
我设置窗体启动后就是最大化，我不允许人家改动窗体大小，所以我就需要把窗体上的最大化和还原图标屏蔽，但是窗体可以最小化！
我要怎么做！

Answer 1

＂它怎么没有maxbotton属性和bodysyle属性＂你用的是VB　？你要屏蔽的是父窗口还是子窗口？拜托说说清楚

Answer 2

我的程序就一个窗体，即mdi窗体

Answer 3

把BorderStyle设为1
窗体就不可以最小化了

Answer 4

＂我的程序就一个窗体，即mdi窗体＂mdi窗体有父窗体和子窗体之分，你还是没有说清楚

Answer 5

Private Sub MDIForm_Resize()
  Me.WindowState = 2
End Sub这样在显示上效果有些不好！继续关注...

Answer 6

BorderStyle设为1
在把minbutton设为true就行了

Answer 7

Private Sub MDIForm_Resize()
  Me.WindowState = 2
End Sub
这个方法我试了,窗体不可以最小化了,它总是最大化状态!
我就一个mdiform窗体!

Answer 8

在你的还有一个帖子里也贴了，这里也贴一下吧：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'''新建一个　MDI　窗体，COPY　下面的代码：
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&Private Sub MDIForm_Load()
    Me.WindowState = 2
    Dim hSysMenu As Long, nCnt As Long
    hSysMenu = GetSystemMenu(Me.hwnd, False)
    If hSysMenu Then
        nCnt = GetMenuItemCount(hSysMenu)
        If nCnt Then
            RemoveMenu hSysMenu, 0, MF_BYPOSITION Or MF_REMOVE
            DrawMenuBar Me.hwnd
        End If
    End If
    
    prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
    SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WndProc
End SubPrivate Sub MDIForm_Unload(Cancel As Integer)
    SetWindowLong Me.hwnd, GWL_WNDPROC, prevWndProc
End Sub
''''新建一个模块，COPY　下面的代码：
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
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Const GWL_WNDPROC = (-4)
Public Const WM_NCLBUTTONDBLCLK = &HA3Public prevWndProc As LongPublic Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo ShowErr    If Msg = WM_NCLBUTTONDBLCLK Then
        Exit Function
    End If
    WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)
    Exit Function
ShowErr:
    WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)
    Exit Function
End Function

Answer 9

在代码窗口中将MAXBUTTON的属性设置为FALSE