请问VB如何设置窗口的最大尺寸

[MAXWELLTAN]

就是最大化的时候 不超过我设置的尺寸
另外问下 怎么取消窗口的 关闭按钮

[九桔猫]

尺寸调整：先去掉最大化按钮，然后在Resize事件里监测窗口大小并处置。
关闭按钮：这个要用API，楼主找找吧。

[supergreenbean]

子类处理窗口,然后拦截WM_GETMINMAXINFO消息。帮你google了一个以前的帖子

http://topic.csdn.net/t/20031107/14/2437511.html

[舉杯邀明月]

在设计时，把Formr的ControlBox属性设置成 False 。

[hpygzhx520]

绿豆说的，一般都是对的。WM_GETMINMAXINFO

[dyy830606]

属性里边有吧

[liwenhuanhuan]

实现这个功能是要用到api的 代码我这里有 百度上搜去吧 我就是从那里搜的

[cbm6666]

【屏蔽右上角的 X】

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 Form_Load()
Dim hSysMenu As Long, nCnt As Long
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
DrawMenuBar Me.hwnd
Me.Caption = "试着点 X 把我关掉吧,否则你只有点击我的身体啦!!"
End If
End If
End Sub

Private Sub Form_Click()
Unload Me
End Sub

[嗷嗷叫的老马]

[Quote=引用 2 楼 supergreenbean 的回复:]
子类处理窗口,然后拦截WM_GETMINMAXINFO消息。帮你google了一个以前的帖子

http://topic.csdn.net/t/20031107/14/2437511.html
[/Quote]

[东方之珠]

禁止"关闭"按钮，用API，或者窗体属性中设置