把系统菜单项“大小”删掉,使用api GetSystemMenu DeleteMenu h Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Public Const MF_BYPOSITION = &H400& Dim h As Long h = GetSystemMenu(Me.hwnd, False) DeleteMenu h, 2, MF_BYPOSITION
将窗体的Borderstyle属性设置为非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 Const GWL_STYLE = (-16) Const WS_THICKFRAME = &H40000Private Sub MDIForm_Load() Dim CurStyle As Long Dim NewStyle As Long
'固定单边框 CurStyle = GetWindowLong(MDIfrmMain.hwnd, GWL_STYLE) NewStyle = SetWindowLong(MDIfrmMain.hwnd, GWL_STYLE, CurStyle And Not (WS_THICKFRAME))
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Dim h As Long
h = GetSystemMenu(Me.hwnd, False)
DeleteMenu h, 2, MF_BYPOSITION
"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
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000Private Sub MDIForm_Load()
Dim CurStyle As Long
Dim NewStyle As Long
'固定单边框
CurStyle = GetWindowLong(MDIfrmMain.hwnd, GWL_STYLE)
NewStyle = SetWindowLong(MDIfrmMain.hwnd, GWL_STYLE, CurStyle And Not (WS_THICKFRAME))
End Sub