怎样使form只留最小话按钮，最多化和关闭都不要

Question

我不同意黑蚂蚁的意见。
因为有许多的理由需要关闭X按钮及最大化最小化按钮，包括WINDOWS里的程序都有这样的窗口。难道你说WINDOWS不是一个好的编程方法？

Answer 1

　cow8063(网际浪子)　的做法最合理了。

Answer 2

先将maxbutton设为false，再调用api函数：getsystemmenu;removemenu;getmenucount即可；
其他的你自己琢磨，搞不懂可以找我，有代码：[email protected]
OICQ:89100953

Answer 3

简单，我编过类似的！
------------------------------------------------------
魔法师——就是能随心所欲的奇异生物！ 
　
欢迎访问：《爽吧》http://shuang8.myrice.com

Answer 4

你问的问题在csdn发行的《程序员大本营》光盘2001里有讲述,我把其中的代码
写在这里，你可以参考：Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As LongPrivate Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As LongPrivate Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&Private Sub Form_Load()
Call DisableX(Me)
End SubPrivate Sub DisableX(Frm As Form)
Dim hMenu As Long, nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub