如何禁用最大化按钮？

Question

在VB中如何禁用窗体的最大化按钮呢？这个问题是不是很菜呀。请各位大虾多多指教。

Answer 1

在属性里有maxbutton选项
将该选项设置为false即可

Answer 2

maxbutton设为false
或把窗体的borderstytle属性设为1或3

Answer 3

maxbutton设为false
或者在窗体的style里调合适的

Answer 4

maxbutton.enable = false 禁止最大话或者将controlbox.enable = false 将最小最大都给屏蔽掉！

Answer 5

窗体的MaxButton 属性设置为false

Answer 6

在属性里有maxbutton选项
将该选项设置为false即可
或在程序中用formname.maxbutton = false

Answer 7

走过路过不要错过
在form的属性窗口设置
maxbutton=false

Answer 8

form1.maxbutton = false

Answer 9

如果是普通窗口,将MaxButton设置为False,这是只读属性,只能在设计时候用!
如果是MDI窗口,可以用以下方法~~Option Explicit
Private 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 Long
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&
Const SC_CLOSE = &HF060
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
 Const GWL_STYLE = (-16)Private Sub MDIForm_Load()    Dim TempLng As Long    RemoveMenu GetSystemMenu(Me.hwnd, 0), SC_CLOSE, MF_REMOVE
    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)    TempLng = TempLng And Not WS_MINIMIZEBOX '最小化    TempLng = TempLng And Not WS_MAXIMIZEBOX '最大化    SetWindowLong Me.hwnd, GWL_STYLE, TempLng
    End Sub

Answer 10

给你一个链接http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=4669

Answer 11

谢谢各位指教。特别感谢cuizm(射天狼)的不辞劳苦和toneyxw(加蓝)，虽然英文网页我看不大懂，呵呵。可惜小弟积分可怜，不能多给各位几分了。