读书人

急MDI的子窗体在最大化时怎么去除最大

发布时间: 2012-01-01 23:10:55 作者: rapoo

急急急: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

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

读书人网 >VB Dotnet

热点推荐