[原创分享]自定义无边框窗体效果

红尘如烟

除了没有控制栏菜单以外,完全和普通窗口的效果一样

5988143

非常漂亮，如果能缩放~就更好了~
谢谢分享 ~

luhao

ding

t小宝

非常不错！
如果能加上鼠标调节窗体大小功能，最大化时不挡住任务栏，可用于非弹出窗体等就更完美了

关于最大化问题：
1、Call Form_fsubHeader.Form_Resize
这样的代码是运行第一个打开的fsubHeader窗体中的事件过程，而该事件过程中的代码都只针对当前窗体及父窗体的，所以再打开第二个窗体运行此句代码，对第二个窗体没有什么影响。
2、解决办法
在fsubHeader窗体创建一个函数过程：
Public Function FormResize() As Long
    Form_Resize
End Function
把窗体的打开事件过程中的Me.Parent.OnResize = ...... 改为：
Me.Parent.OnResize = "=fsubHeader.form.FormResize"

t小宝

看到这一句：
'真奇怪,这里当变量blnFormIsMax为true时,条件表达式blnFormIsMax=true计算结果居然为false??!!
问题出在API声明上，在声明IsZoomed时把它声明为Boolean了，改为默认的声明类型Long就不会有这个现象了。

Grant

呵呵,小宝是API高手一站出来我只能观看了

koutx

漂亮，下了看看“费效比”如何

t小宝

呵呵,小宝是API高手一站出来我只能观看了
Grant 发表于 2009-5-9 12:42

惭愧，我是蒙的

红尘如烟

根据小宝的意见改进了一下,解决了之前的多个窗体打开时,最大化失效的问题,另外还解决了最大化时会遮住任务栏的问题
关于用鼠标调整窗体大小的问题,有空再加进去,或者哪位兄台有空帮忙做一下

13555609005

谢谢分享