无标题栏和边框的窗体.docxVIP

技巧 1 无标题栏和边框的窗体 如果希望制作无标题栏和边框的窗体，那么可以使用 API 函数。 在 VBE 窗口中单击菜单“插入”→“用户窗体” ，双击窗体，在其代码窗口中输入下面的代码： #001 Private Declare Function DrawMenuBar Lib user32 (ByVal Hwnd As Long) As Long #002 Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal Hwnd As Long, ByVal nIndex As Long) As Long #003 Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #004 Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #005