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

plxmm · 发表于 2005-11-3 10:59

学习分享的确厉害。想当初偶在你的这个等级阶段，对VBA还是沙沙的呢。要继续努力吖。

york888 · 发表于 2005-11-3 13:46

都离题了，有人能实现完全无边框吗？figfig大师帮帮忙吧！

asdf1001 · 发表于 2005-11-3 15:40

insa134Y.rar (77.13 KB, 下载次数: 420)

无边框无标题栏

窗体移动需通过其他代码来实现...此处仅针对题意提供示例

foshan · 发表于 2005-11-3 15:57

asdf1001 兄的想法很好! 但不足之处是代码通用性不强，不能对不同大小的窗体都起到去除窗体边框的作用。

我也做了一个示例，好像通用性会强些，请大家指正错误，谢谢!

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub UserForm_Click() Unload Me End Sub Private Sub UserForm_Initialize() Dim hWnd As Long, new_rgn As Long If Val(Application.Version) < 9 Then hWnd = FindWindow("ThunderXFrame", Me.Caption) '获取窗口句柄 Else hWnd = FindWindow("ThunderDFrame", Me.Caption) '获取窗口句柄 End If new_rgn = CreateRectRgn(3, 29, (Me.Width * 1.33) - 2, (Me.Height * 1.33) - 2) SetWindowRgn hWnd, new_rgn, True Call DeleteObject(new_rgn) End Sub

PwiE2EEm.rar (77.59 KB, 下载次数: 364)

york888 · 发表于 2005-11-3 16:10

向asdf1001、foshan兄台学习，好作品！

foshan · 发表于 2005-11-6 10:22

我现在在考虑一个问题：上述的变通地将窗体四周的边框去掉的方法，是将窗体有边框的那部分给“删除(或者叫变透明)”了，即把原窗体的大小在四周各缩减了约2毫米，从而达到效果。但是，既然窗体四周的边框是窗体风格之一，也就是说可以通过设置窗体的风格来去除窗体四周的边框。

请大家帮忙再想想如何才能通过设置窗体的风格来实现去除窗体四周的边框，谢谢!

[此贴子已经被作者于2005-11-6 10:26:01编辑过]

丸究阵引 · 发表于 2005-11-6 18:32

恐怕不行，这跟控件的自有样式有关。

hy8888 · 发表于 2005-11-7 09:33

不是恐怕不行，是根本不行。除非自己写个控件代替……

asdf1001 · 发表于 2005-11-7 09:33

有点舍近求远了。

foshan · 发表于 2005-11-7 10:30

stanleypan 版主能解决这个问题吗？您曾发表了一篇纯API函数构成的窗体的作品，因我的水平有限，看不明白。既然您清楚窗体的构成，也许能解决这个问题。谢谢!

		自动登录	找回密码
密码			免费注册

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