如何使窗体始终处于最大化状态，而且只有最小化和关闭按钮，没有最大化按钮

[mickwang]

如何使窗体始终处于最大化状态，而且只有最小化和关闭按钮，没有最大化按钮，清说的详细些

[liuxia]

是不是我理解错误。
可以用以下方式解决：
在窗体LOAD时定义
form1.maxbotton=false
form1.windowState=normal

[xinchen_zh]

给分哪，我想就这么回事吧，我的专家分才为0哪，好不容易碰到一个简单问题，赏我一点吧

[ONnet]

怎么查以前的贴子？

[icbcnbxs]

设置form的2个属性就好了，MAXBUTTON=FALSE，WINDOWSTATE=2

[fraser01]

你查一下以前的贴子，这个问题是有的标准答案的

[xinchen_zh]

设置窗体的MaxButton属性为false就可以了

[foolishtiger]

如何使窗体始终处于最大化状态
Me.WindowState=VbMaximized '或用立即数2

[KingOf007]

贴一下：
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&

Private Sub Form_Load()
Dim hwndMenu As Long
Dim c As Long
hwndMenu = GetSystemMenu(Me.hwnd, 0)

c = GetMenuItemCount(hwndMenu)
'slet det nederste menupunkt ("LUK ALT+F4")

DeleteMenu hwndMenu, c - 1, MF_BYPOSITION

c = GetMenuItemCount(hwndMenu)
'slet det nederste menupunkt ("Skillelinje")
DeleteMenu hwndMenu, c - 1, MF_BYPOSITION

End Sub

这个程序同时会使右上角的×变灰。

[KingOf007]

类似的，c-2就是去掉最大化按钮
DeleteMenu hwndMenu,c-2,MF_BYPOSITION

[KingOf007]

有一点错误，c-2是那条横线，应该c-3....