请问斑竹和各位DX，我如何控制一个MIDCHILD在打开的时候不显示右上角的最大、最小和关闭按纽以及左上角的图标不出现？

Question

请问斑竹和各位DX，我如何控制一个MIDCHILD在打开的时候不显示右上角的最大、最小和关闭按纽以及左上角的图标不出现？

Answer 1

把MDIChild.ControlBox=False就可以了

Answer 2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const GWL_STYLE = (-16)
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_REMOVE = &H1000&
Private Const SC_CLOSE = &HF060Private Sub MDIForm_Load()
    Dim TempLng As Long
    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
    TempLng = TempLng And Not WS_MINIMIZEBOX '最小化
    TempLng = TempLng And Not WS_MAXIMIZEBOX '最大化
    SetWindowLong Me.hwnd, GWL_STYLE, TempLng
    RemoveMenu GetSystemMenu(hwnd, 0), SC_CLOSE, MF_REMOVEEnd Sub

Answer 3

楼上的方法可以，还不会的话看下面的。
form1->属性->controlbox=false