可用分押宝游戏火热进行中...	专题改版：Java Web 专题

如何禁用最大化按钮？

楼主22wolf（绝地孤狼）2003-09-03 00:33:08 在 VB / 基础类提问

在VB中如何禁用窗体的最大化按钮呢？这个问题是不是很菜呀。请各位大虾多多指教。问题点数：20、回复次数：17Top

1 楼ysx789790706（）回复于 2003-09-03 02:31:37 得分 2

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

2 楼hdslah（）回复于 2003-09-03 07:36:23 得分 2

formname.maxbutton = falseTop

3 楼didishu0807（虫虫）回复于 2003-09-03 08:42:19 得分 2

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

4 楼raul1122（小贝）回复于 2003-09-03 08:48:50 得分 1

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

5 楼hzf005（红蜘蛛）回复于 2003-09-03 09:30:02 得分 2

maxbutton.enable = false 禁止最大话

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

6 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2003-09-03 09:33:00 得分 1

窗体的MaxButton 属性设置为falseTop

7 楼lzj34（缘来如此）回复于 2003-09-03 09:53:40 得分 1

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

8 楼shmiluwei（宝宝最爱）回复于 2003-09-03 10:01:47 得分 0

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

9 楼yijiansong（不知路在何方）回复于 2003-09-03 10:47:03 得分 0

路过Top

10 楼lxcc（）回复于 2003-09-03 10:51:45 得分 1

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

11 楼lxcc（）回复于 2003-09-03 10:54:17 得分 0

走过路过不要错过

在form属性窗口设置maxbutton=falseTop

12 楼allangoing（已经改行）回复于 2003-09-03 12:13:37 得分 0

hook WM_SIZE 消息么~Top

13 楼zmrok（朱朱）回复于 2003-09-03 12:33:31 得分 1

form1.maxbutton = false
Top

14 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2003-09-03 12:49:28 得分 4

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

Top

15 楼toneyxw（加蓝）回复于 2003-09-03 12:52:25 得分 2

给你一个链接

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

16 楼countliu（liuzhen）回复于 2003-09-03 13:32:49 得分 1

在Boderstyle属性改成1－fix..Top

17 楼LeoUltraman（King）回复于 2003-09-03 14:29:28 得分 0

up
Top

18 楼22wolf（绝地孤狼）回复于 2003-09-04 00:51:42 得分 0

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