VB窗体无边框

来源：百度知道 编辑：UC知道 时间：2024/05/04 21:01:49
不知大家注意到没有，只要是窗体内有菜单，就无法无边框化，不知大家有没有好办法搞定这一点啊。！

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
Dim sy As Long
Dim newsy As Long
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Const WS_BORDER = &H800000
sy = GetWindowLong(Me.hwnd, GWL_STYLE)
newsy = SetWindowLong(Me.hwnd, GWL_STYLE, sy - WS_CAPTION - WS_BORDER)
End Sub