没有边框的窗体能不能用Setwindowlong改变为有无框吗?

Question

如题

Answer 1

Dim wStyle As Long
    Dim Rc As Long
    
    wStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
    wStyle = wStyle And WS_BORDER
    
    Rc = SetWindowLong(hwnd, GWL_STYLE, wStyle)试试看

Answer 2

Dim wStyle As Long
    Dim Rc As Long
    
    wStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
    wStyle = wStyle Or WS_BORDER
    
    Rc = SetWindowLong(hwnd, GWL_STYLE, wStyle)试试看（窃取 ClassicWuHao(Mouse) 的，呵呵）