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

lotustower · 发表于 2005-11-14 10:31

他說應是 http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0464.shtml 下方的 Download 連結

翻譯網站

http://babel.altavista.com/translate.dyn?lin=en&translate_me=yes

QUfcKjgg.zip (136.61 KB, 下载次数: 131)

[此贴子已经被作者于2005-11-14 10:35:34编辑过]

foshan · 发表于 2005-11-28 16:12

经多番查找资料，终于找到了最简捷的方法来实现去除窗体的边框：扩展窗口风格常量 WS_EX_ACCEPTFILES 窗口可接收拖放文件 WS_EX_DLGMODALFRAME 具有双线边框 WS_EX_NOPARENTNOTIFY 当一个子窗口创建或取消时，不向其父窗口发送WM_PARENTNOTIFY 消息 WS_EX_LAYERED 窗口可设置透明程度 (与SetLayeredWindowAttributes API函数配合做使用，可设置窗体的透明度) WS_EX_TOPMOST 窗口放在所有非顶层窗口之上，即使窗口不工作。 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 GWL_EXSTYLE = (-20) Private Const WS_CAPTION As Long = &HC00000 Private Const WS_EX_DLGMODALFRAME = &H1& 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 Not WS_CAPTION SetWindowLong Hwnd, GWL_STYLE, IStyle DrawMenuBar Hwnd '******去除窗体四周的边框****** IStyle = GetWindowLong(Hwnd, GWL_EXSTYLE) And Not WS_EX_DLGMODALFRAME SetWindowLong Hwnd, GWL_EXSTYLE, IStyle End Sub

fSRn6sft.rar (56.26 KB, 下载次数: 1598)

[此贴子已经被作者于2005-11-28 16:13:56编辑过]

plxmm · 发表于 2005-11-28 16:15

真是佩服 foshan GG的精神。待到新的Excel12问世，不知道还有没有这样的问题了。[em17]

york888 · 发表于 2005-11-28 16:20

多謝,我也學會了!

lotustower · 发表于 2005-11-28 17:11

foshan

Thanks for your message

丸究阵引 · 发表于 2005-11-28 22:24

收到!谢谢！

清风_ll · 发表于 2005-11-28 23:27

感谢foshan,精华!

lotustower · 发表于 2005-11-28 23:39

Win32 Window Hierarchy and Styles

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwui/html/msdn_styles32.asp

http://www.contnew.com/tech/platform/windows/2004/11/30_968126_01.html

[此贴子已经被作者于2005-11-28 23:45:34编辑过]

shuyee · 发表于 2005-11-29 09:51

主要是我也不知道你想要什么样的窗口. 这幅图不知道能不能说明你的窗口还是有边框的?

abcd20051102 · 发表于 2005-11-29 10:13

32楼是个好东西,收下了.谢谢楼主!!!

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

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

好象还是有边框.