如何把from窗体中的标题栏去掉？

Question

form1.borderstyle=0
用不着.caption=""
不过这样的话连FORM周围的框也没了

Answer 1

  Private 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_CAPTION = &HC00000     ' WS_BORDER 或 WS_DLGFRAME
    Private Const WS_MAXIMIZEBOX = &H10000
    Private Const WS_MINIMIZEBOX = &H20000
    Private Const WS_SYSMENU = &H80000load事件
lStyle = GetWindowLong(.Hwnd, GWL_STYLE)
        lStyle = lStyle And Not WS_SYSMENU
        lStyle = lStyle And Not WS_MAXIMIZEBOX
        lStyle = lStyle And Not WS_MINIMIZEBOX
        lStyle = lStyle And Not WS_CAPTION
        Call SetWindowLong(.Hwnd, GWL_STYLE, lStyle)
        Call SetWindowPos(.Hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED)

Answer 2

controlbox=flase
borderstyle=1
me.caption=""

Answer 3

我是这样做的，把属性里的CONTROL= FALSE

Answer 4

不好意思，打错了，应该是controlbox=false

Answer 5

如果你是想要把标题栏自己重画，给我发邮件[email protected]
如果只是去掉标题栏，同志们都已经说得够好了！