如何去除窗体四周的边框(即窗体没有边框)？

foshan

在论坛上，看到的代码多是去除窗体的标题栏、关闭按钮，现在有一个问题想请教大家：如何去除窗体四周的边框(即窗体没有边框)？

以下的代码不能实现去除窗体的边框的功能：

Private Declare Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long 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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Const GWL_STYLE As Long = (-16) Private Const WS_BORDER = &H800000 '窗口带有一个薄边框 Private Const WS_DLGFRAME = &H400000 '带有一般对话框的风格，但没有标题栏 Private Const WS_CAPTION = &HC00000 '窗口带有一个标题栏，经测试，实际上等于 (WS_BORDER Or WS_DLGFRAME) Private Const WS_SIZEBOX = &H40000 '窗口带有一个可以调整窗口大小的边框(即VB里的Sizable，其他地方的边框均指不具调整大小功能的边框) Private Const WS_THICKFRAME = &H40000 Private Const WS_MAXIMIZEBOX = &H10000 '窗口带有最大化按钮，该窗口必须具有 WS_CAPTION 风格 Private Const WS_MINIMIZEBOX = &H20000 '窗口带有最小化按钮，该窗口必须具有 WS_CAPTION 风格 Private Const WS_SYSMENU = &H80000 '在窗口的标题栏上增加一个系统菜单，该窗口必须具有 WS_CAPTION 风格(即WS_BORDER和WS_DLGFRAME) Private Const WS_HSCROLL = &H100000 '窗口带有一个水平滚动条 Private Const WS_VSCROLL = &H200000 '窗口带有一个垂直滚动条 Private Const WS_OVERLAPPED = &H0& '窗口是一个交迭式窗口。交迭式窗口带有一个标题栏和一个边框 Private Const WS_TILED = &H0& '窗口是一个交迭式窗口。交迭式窗口带有一个标题栏和一个边框 Private Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX) _ '窗口是一个交迭式窗口，并且组合了 WS_OVERLAPPED, WS_CAPTION, WS_SYSMENU,WS_THICKFRAME, WS_MINIMIZEBOX 以及 WS_MAXIMIZEBOX 这些风格 Private Const WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW Private Sub UserForm_Click() Unload Me End Sub Private Sub UserForm_Initialize() Dim IStyle As Long, Hwnd As Long If Val(Application.Version) < 9 Then Hwnd = FindWindow("ThunderXFrame", Me.Caption) '获取窗口句柄 Else Hwnd = FindWindow("ThunderDFrame", Me.Caption) '获取窗口句柄 End If IStyle = GetWindowLong(Hwnd, GWL_STYLE) ' IStyle = IStyle And WS_CAPTION SetWindowLong Hwnd, GWL_STYLE, IStyle And Not WS_OVERLAPPEDWINDOW DrawMenuBar Hwnd End Sub

在VB中，用 SetWindowLong Hwnd, GWL_STYLE, IStyle And Not WS_OVERLAPPEDWINDOW 是可以实现没有边框的窗体的。

arb2gY5J.rar (136.97 KB, 下载次数: 474)

2005-11-3 09:40 上传

点击文件名下载附件
如何去除窗体四周的边框(即窗体没有边框)？

[此贴子已经被作者于2005-11-3 9:41:28编辑过]

york888

请看一看我的“登录界面”有实例啊！

[此贴子已经被作者于2005-11-3 9:38:43编辑过]

foshan

york888 兄：您的作品上，也是有窗体的边框的，如何把他们给去掉？

york888

请看第9楼，有例子。同时请兄台foshan优化一下！谢谢。http://club.excelhome.net/viewthread.php?tid=124161

foshan

york888 兄，您误解我所说的窗体无边框的意思了，我指的窗体无边框不但是指没有蓝色的边框，而且也指窗体四周没有约2毫米宽的框线。您的作品是把标题栏给去掉了(包括窗体四周蓝色的边框)，但窗体的四周依然有约2毫米宽的框线。您看我在第一楼的第二个附件，那个窗体就是什么边框都没有的，我是想在VBA中实现这种窗体效果。

york888

foshan 你好！

我明白了，我也只能量力而为，我的水平暂时未能实现到你要求的水平，无能为力，看那位高手帮忙一下吧，我也想学习！谢谢。

[此贴子已经被作者于2005-11-3 10:27:13编辑过]

学习分享

几位都是高人，我什么时候能聊到这些话题呢，唉，等待今生。。。。。。

york888

以下是引用学习分享在2005-11-3 10:32:07的发言：

几位都是高人，我什么时候能聊到这些话题呢，唉，等待今生。。。。。。

你的作品我看过，非常专业有水平！还望多多交流。

foshan

学习分享：不必灰心，我学API函数也不过一个来月，API函数也是有难有易的，关键是兴趣。我现在学习API函数，甚感到困难和阻力重重，而且非常无助---主要是书籍方面。有很多知识目前只能是“记住”API函数的不成文的规则，无法真正理解。

学习分享

好,谢谢你们的鼓励,我努力吧!