哪位高手知道怎么屏蔽掉对标题栏的双击和关闭按钮？？？

Question

没有标题兰就是了不过用api也可以思想，不过，忘记了

Answer 1

Dim hSysMenu As Long        hSysMenu = GetSystemMenu(youform.hWnd, 0)        Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)        Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)有关函数及常量的声明请从API浏览器中复制

Answer 2

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 GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Const MF_BYCOMMAND = &H0&
Const MF_REMOVE = &H1000&
Const MF_BYPOSITION = &H400&Private Sub Form_Load()
    Dim hSysMenu As Long, nCnt As Long
    hSysMenu = GetSystemMenu(Me.hwnd, False)
    If hSysMenu Then
        nCnt = GetMenuItemCount(hSysMenu)
        If nCnt Then
            RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
            RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
            RemoveMenu hSysMenu, 0, MF_BYPOSITION Or MF_REMOVE
        End If
    End If
End Sub去掉关闭与还原

Answer 3

很簡單,將窗體的ControlBox屬性設為false;MaxButton屬性設為false;MinButton屬性設為false.

Answer 4

改一下form得borderstyle试试

Answer 5

使用4个API 函数的组合，使标题栏隐藏：SETWINDOWLONG
GETWINDOWLONG
SETWINDOWPOS
GETWINDOWRECT

Answer 6

同意flywlsj() (  )的说法

Answer 7

gump2000(阿甘)的方法好。要全封闭就用
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 GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Const MF_BYCOMMAND = &H0&
Const MF_REMOVE = &H1000&
Const MF_BYPOSITION = &H400&Private Sub Form_Load()
    Dim hSysMenu As Long, nCnt As Long
    hSysMenu = GetSystemMenu(Me.hwnd, False)
    If hSysMenu Then
        nCnt = GetMenuItemCount(hSysMenu)
        Do While nCnt > -1
            RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
            nCnt = nCnt - 1
        Loop
    End If
End Sub