首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

急MDI的子窗体在最大化时怎么去除最大化、最小化和关闭按钮

2012-01-01 
急急急:MDI的子窗体在最大化时如何去除最大化、最小化和关闭按钮?请问MDI的子窗体在最大化时如何去除最大化

急急急:MDI的子窗体在最大化时如何去除最大化、最小化和关闭按钮?
请问MDI的子窗体在最大化时如何去除最大化、最小化和关闭按钮?

[解决办法]
'将以下代码粘贴到mdi主创体中

Option Explicit
Private Declare Function SetWindowLong Lib "user32 " Alias "SetWindowLongA " (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000

Private Const WS_MINIMIZEBOX = &H20000
Private Declare Function GetWindowLong Lib "user32 " Alias "GetWindowLongA " (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub MDIForm_Load()
Dim hStyle As Long
hStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
hStyle = hStyle And Not WS_MAXIMIZEBOX
hStyle = hStyle And Not WS_MINIMIZEBOX
hStyle = SetWindowLong(Me.hwnd, GWL_STYLE, hStyle)
End Sub

[解决办法]
属性窗口中不是有样式属性吗,就在那儿设置

热点排行