请问有没有办法使MDI窗体不出现标题栏以及最大、最小化按钮？谢！

Question

可在窗体的属性中将Control Box设为False如果单独要关掉最大最小化，可修改窗体的属性MatButton, MinButton

Answer 1

可是MDI窗体根本就没有Control Box这个属性！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

Answer 2

傻~~~~一楼和二楼的仁兄到底用没用过Mdi窗体啊~~~~~~
狂晕中
另：好像是要用到API的~~~~具体我也不太清楚~~~~抱歉

Answer 3

这个好像只能用 API 来实现！
查查以前的帖子！

Answer 4

MDI窗体属性中没有MatButton, MinButton选项

Answer 5

没找到不出现的办法，到是有禁止使用的办法
代码如下Option ExplicitPrivate Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Const MF_BYPOSITION = &H400&Private ReadyToClose As Boolean
Private Sub RemoveMenus(frm As MDIForm, _
    remove_restore As Boolean, _
    remove_move As Boolean, _
    remove_size As Boolean, _
    remove_minimize As Boolean, _
    remove_maximize As Boolean, _
    remove_seperator As Boolean, _
    remove_close As Boolean)
Dim hMenu As Long
    
hMenu = GetSystemMenu(hwnd, False)
    
    If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION
    If remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITION
    If remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITION
    If remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITION
    If remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITION
    If remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITION
    If remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITION
End Sub
Private Sub mdiForm_Load()
        RemoveMenus Me, True, True, False, True, True, True, True
End Sub新建一个mdi窗体，拷这些代码进去
可以禁止的功能很多了，最大，最小，移动，恢复，改变大小，关闭。。
一试就知道了
如果要用于普通窗体，把Private Sub RemoveMenus(frm As MDIForm...)
中的mdiform 改成 form 就行了,或者干脆 object