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

lotustower

他說應是 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 上传

点击文件名下载附件

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

foshan

经多番查找资料，终于找到了最简捷的方法来实现去除窗体的边框： 扩展窗口风格常量 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 上传

点击文件名下载附件

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

plxmm

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

york888

多謝,我也學會了!

lotustower

foshan

Thanks for your message

丸究阵引

收到!谢谢！

清风_ll

感谢foshan,精华!

lotustower

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

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

abcd20051102

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