如何调用API函数来屏蔽窗体上的还原按钮
编号：QA004169
建立日期: 2001年5月8日 最后修改日期：2001年5月8日
所属类别：
cyliu:
如何调用API函数来屏蔽窗体上的还原按钮？
回答:
可以这样做：
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
Private Const SC_MAXIMIZE = &HF030
Private Const MF_BYCOMMAND = &H0&
Private Const SC_RESTORE = &HF120
Private Sub Form_Load()
Dim hMenu As Long, Success As Long
hMenu = GetSystemMenu(hwnd, 0)
Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)
End Sub
相关问题：
QA003257 "如何禁止窗口改变大小，同时允许最小化、最大化"
QA001108 "如何更改“关闭”按钮状态成无效"
QA001304 "如何禁止或修改窗口的系统菜单"
此问题由李海回答。
| |
|
|
| |
|
|
