问一个很基础的问题：怎样去掉标题栏？

Question

本来我把form1.BorderStyle=0就行了，后来我加了个隐藏的菜单后就不行了 
请问我该怎么做？

Answer 1

你可以將菜單寫在其它的form中,在該form中就使用
popupmenu 表單名.菜單名  來調用不就ok

Answer 2

将form的moveable属性设置为false

Answer 3

Option ExplicitPrivate 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
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
Private Const WS_CAPTION = &HC00000
Private Const WS_SIZEBOX = &H40000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
'为窗体指定一个新位置和状态函数
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOZORDER = &H4
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOREPOSITION = &H200
'获得整个窗体的大小和位置
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End TypePrivate Sub Form_Load()
    Dim lStyle As Long
    Dim MyRect As RECT
    Dim Change As Boolean
    '获取窗体的大小和位置
    GetWindowRect Me.hwnd, MyRect
    '取得当前窗体信息
    lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
    lStyle = lStyle And Not WS_SYSMENU
    lStyle = lStyle And Not WS_CAPTION
    lStyle = lStyle And Not WS_SIZEBOX
    lStyle = lStyle And Not WS_MAXIMIZEBOX
    lStyle = lStyle And Not WS_MINIMIZEBOX
    '按lStyle的值设置窗体信息
    SetWindowLong Me.hwnd, GWL_STYLE, lStyle
    '保持窗体的大小与位置不变
    SetWindowPos Me.hwnd, 0, MyRect.Left, MyRect.Top, MyRect.Right - MyRect.Left, MyRect.Bottom - MyRect.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
    
End Sub

Answer 4

在窗体的border sytle属性中选择0-None就行了

Answer 5

在窗体的border sytle属性中选择0-None就行了