怎么改变MDI窗体得边框样式？？？？？？？

Question

普通窗体可以改成无边框，可是我想改成无边框得然后自己绘制窗体啊，怎么办呢？

Answer 1

我估计想想改成什么都没有的,然后自己话
你将窗体边框风格改成NONE
然后加三个按钮改变窗体状态
Private Sub Command1_Click()
Me.WindowState = vbMinimized'最小化
End SubPrivate Sub Command2_Click()
Me.WindowState = vbNormal
End SubPrivate Sub Command3_Click()
Me.WindowState = vbMaximized'最大化End Sub其他的如皮肤自己画

Answer 2

边框样式就是borderstyle属性呀，无边框就是改成0也就是none，明白了吗？楼上没搞清状况啊，MDI窗口没有这个属性怎么改成none啊？？？？？？

Answer 3

那就不要用mdi窗体了
想做成这种效果用api
setparent

Answer 4

或者用下面APIPrivate 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 WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)
Private Sub MDIForm_Load()
    SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, _
        GWL_STYLE) And Not (WS_MAXIMIZEBOX Or WS_MINIMIZEBOX)
End Sub

Answer 5

补充：去掉标题兰
Option Explicit
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 WS_CAPTION = &HC00000
Const GWL_STYLE = (-16)
Private Sub MDIForm_Load()
    SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, _
        GWL_STYLE) And Not WS_CAPTION
End Sub