在VB窗体中去掉关闭按钮的方法?

来源：百度知道 编辑：UC知道 时间：2024/05/12 12:40:31
VB窗体标题栏上有一个关闭按钮,怎么去掉?

在VB6.0窗体中去掉关闭按钮的方法：

  1. 在窗体属性窗口设置ControlBox 属性为False。

    ControlBox 属性，返回或设置一个值，指示在运行时控制菜单框是否在窗体中显示。在运行时为只读。

  2. 在窗体属性窗口设置BorderStyle 属性为0，使窗体没有边框或与边框相关的元素。

  3. 在窗体的UnLoad事件代码中使用Cancel = -1语句，使关闭按钮失效。

    Private Sub Form_Unload(Cancel As Integer)
        Cancel = -1 '或Cancel = True
    End Sub

在属性窗口中切换到窗体的属性设置，然后在 BorderStyle 选项里选择
0-none 就可以把那个讨厌的小按钮给删了，不过整个标题栏也没有了！

用API可以：
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As