如何禁用最大化按钮？

[22wolf]

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

[countliu]

在Boderstyle属性改成1－fix..

[LeoUltraman]

up

[ysx789790706]

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

[hdslah]

formname.maxbutton = false

[didishu0807]

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

[beckham1122]

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

[hzf005]

maxbutton.enable = false 禁止最大话

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

[lihonggen0]

窗体的MaxButton 属性设置为false

[lzj34]

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

[Ge]

同学，窗口属性里不是有吗？

[yijiansong]

路过

[lxcc]

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

[lxcc]

走过路过不要错过

在form属性窗口设置maxbutton=false

[allangoing]

hook WM_SIZE 消息么~

[zmrok]

form1.maxbutton = false

[射天狼]

如果是普通窗口,将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

[toneyxw]

给你一个链接

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=4669

[22wolf]

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