关于MDI

[hnzsy]

1） 请问如何禁止用鼠标拖动的方式改变MDI窗体大小
2） 如何去掉标题栏

[hnzsy]

是分感谢hedane(hedane) ，还有一个问题：此时如何移动窗口？

[二师兄的老公]

用API：
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 GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_THICKFRAME = &H40000

Private Sub MDIForm_Load()
Dim dwStyle As Long

dwStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
dwStyle = dwStyle - WS_CAPTION '去掉标题栏
dwStyle = dwStyle And Not WS_THICKFRAME '禁止改变大小
dwStyle = SetWindowLong(Me.hwnd, GWL_STYLE, dwStyle)
End Sub

[oceanmap]

把系统菜单项“大小”删掉，使用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

[Larzy]

gz