用Api函数控制最大化按钮和还原按钮不可用

Question

用VB自身来解决:
设置Form对象的MaxButton为False即可。
还有一种用API的:
'Form1代码
Option Explicit
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&
Const SC_MAXIMIZE = &HF030&
Const SC_RESTORE = &HF120&Private Sub Form_Load()
    Dim result As Long
    result = GetSystemMenu(Me.hwnd, 0)
    result = DeleteMenu(result, SC_MAXIMIZE, MF_BYCOMMAND) '使最大化按钮不可用
    result = DeleteMenu(result, SC_RESTORE, MF_BYCOMMAND)  '使还原按钮不可用
End Sub
如果对API感兴趣,请告诉我你的E-Mail,我发个“VB API函数速查表”给你,里面有大部分API函数的用法介绍。

Answer 1

谢谢老兄了。我的信箱是[email protected]
另外请教一下  Const MF_BYCOMMAND = &H0&
这些Long型值怎么可以 查到，能有用法更好了。
再次感谢

Answer 2

gladisionboy(编程子弟) ,我把您的代码拷贝进去，怎么不好用？

Answer 3

DeleteMenu(GetSystemMenu(Handle,false),0,MF_BYPOSITION );
DeleteMenu(GetSystemMenu(Handle,false),4,MF_BYPOSITION );

Answer 4

这个呀，把窗体属性设为没有系统菜单条的（即没有蓝条）
然后 在窗体中加入一label控件后把其背景颜色属性设为蓝色
这样不就好了吗？
够简单吧
不知实用否

Answer 5

作为一个mdi 主窗体，这些属性是不能实现的