请问怎样去掉MDI窗体的标题栏？

Question

怎样制作无边框MDI窗口？

Answer 1

同样问题。
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const WS_BORDER = &H800000Private Sub MDIForm_Load()
    Dim L As Long
    L = GetWindowLong(Me.hwnd, GWL_STYLE)
    L = L And Not (WS_BORDER) And Not (WS_CAPTION)
    L = SetWindowLong(Me.hwnd, GWL_STYLE, L)
End Sub

Answer 2

如果想把边框也去掉呢？就好象普通窗口的BorderStyle设成0那种样子。

Answer 3

watt(瓦特)说的对要用API函数

Answer 4

如果想把边框也去掉呢？就好象普通窗口的BorderStyle设成0那种样子。