我的源程序如下,不是pyhjy写的那样的,
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const GWL_STYLE = (-16)
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_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Sub m1_Click()
Dim a As Form
For Each a In Forms
If Not a Is MDIForm1 Then Unload a
Next
End Sub
Private Sub MDIForm_Load()
Dim l1 As Long, l2 As Long
l1 = GetWindowLong(Me.hwnd, GWL_STYLE)
Call SetWindowLong(Me.hwnd, GWL_STYLE, l1 And Not WS_MAXIMIZEBOX And Not WS_MINIMIZEBOX)
l2 = GetSystemMenu(Me.hwnd, 0)
Call RemoveMenu(l2, 3, MF_BYPOSITION)
Call RemoveMenu(l2, 3, MF_BYPOSITION)
Form1.Show
Form2.Show
End Sub