VB中的又一大意外（MDI窗体最大化无效问题）。。。近来看看！！

[Gutta2]

今天真是丢人透顶了！~~~

一MM请教我一个很简单的问题，说是让MDI窗口的最大化按钮变灰色，还拿来一本书说就是这个样子。

哈哈，不就是MaxButton属性嘛，简单，于是我就拿自己的电脑做给她看看。。。

后果是什么。。。没有MaxButton属性，靠！！！
也没有ControlBox属性，BorderStyle属性也没有，这可怎么办。。。

大哥大姐们，为了小弟的终生幸福，帮帮我吧~~

：( 55555555555555555555555555

[Gutta2]

怎么实现让最大化按钮失效？？？

在线急等啊~~！！！！！！！！！！！！！！！

• 打赏
• 举报

回复 赞

[lyxhappy]

用API函数实现
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&
Public Const SC_CLOSE = &HF060
Public Const SC_MAXIMIZE = &HF030
Public Const SC_MINIMIZE = &HF020
‘最大化无效
RemoveMenu GetSystemMenu(hwnd, 0), SC_MAXIMIZE, MF_REMOVE
’最小化无效
RemoveMenu GetSystemMenu(hwnd, 0), SC_MINIMIZE, MF_REMOVE

‘关闭无效
RemoveMenu GetSystemMenu(hwnd, 0), SC_CLOSE, MF_REMOVE
’屏蔽关闭按钮
Dim hSysMenu As Long
Dim n As Long
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' 取得系统菜单中的数量
n = GetMenuItemCount(hSysMenu)
If n Then
RemoveMenu hSysMenu, n - 1, MF_BYPOSITION Or MF_REMOVE
'去掉 关闭 按钮
RemoveMenu hSysMenu, n - 2, MF_BYPOSITION Or MF_REMOVE
DrawMenuBar Me.hwnd
End If
End If

• 打赏
• 举报

回复 赞

[cloudawind]

我试了上面的代码，按纽仍然在，只是不起作用

• 打赏
• 举报

回复 赞

[zyg0]

消失只能全消失，包括最小和其他的关闭什么的

• 打赏
• 举报

回复 赞

[leolan]

//我试了上面的代码，按纽仍然在，只是不起作用

試試發送一個刷新標題欄的消息:

SendMessage MDIForm1.hwnd,WM_NCPAINT,1,Byval 0&

• 打赏
• 举报

回复 赞

[fantazxh]

不行的，还原还是可用啊

• 打赏
• 举报

回复 赞

[cdsun]

不知道
我看SQL Server里面的子窗体

其余按钮都可用就是关闭按钮不好用

不知道他们怎么做

还有就是vb中模态窗口只能出现一个

但是为什么在outlook里面可以在模态窗口上面继续打开别的模态窗口？

这个又怎么做？

• 打赏
• 举报

回复 赞

[lsftest]

我试了上面的代码，按纽仍然在，只是不起作用
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
试试用前面lyxhappy(RosyClouds)兄的方法使它失效，然后用api：DrawMenuBar重画一下行不行？？
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

• 打赏
• 举报

回复 赞

[yinweihong]

意外什么,哪个关闭按钮去不掉的,顶多是无效,除非你自己画窗体

• 打赏
• 举报

回复 赞