怎样去掉窗体的关闭按钮？

Question

窗体的最大化和最小化按钮都可以通过修改窗体的属性去掉，那关闭按钮又应该怎样去掉呢？

Answer 1

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 Long
Private Const MF_BYPOSITION = &H400&
Private ReadyToClose As BooleanPrivate Sub RemoveMenus(frm As Form, _
    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 SubPrivate Sub cmdClose_Click()
    ReadyToClose = True
    Unload Me
End SubPrivate Sub Form_Load()
    RemoveMenus Me, False, False, False, False, False, True, True
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = Not ReadyToClose
End Sub

Answer 2

窗体属性borerstyle
改为0试试看，符不符合你的要求。

Answer 3

窗体属性中的bordersyle改为0试试看。符不符合你的要求。