Office中国论坛/Access中国论坛

标题: [原创分享]自定义无边框窗体效果 [打印本页]

作者: 红尘如烟 时间: 2009-5-8 18:43
标题: [原创分享]自定义无边框窗体效果
本帖最后由红尘如烟于 2009-5-9 21:03 编辑

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

作者: 5988143 时间: 2009-5-8 21:49
非常漂亮，如果能缩放~就更好了~
谢谢分享 ~

作者: luhao 时间: 2009-5-8 23:19
ding

作者: t小宝 时间: 2009-5-9 10:23
非常不错！
如果能加上鼠标调节窗体大小功能，最大化时不挡住任务栏，可用于非弹出窗体等就更完美了

关于最大化问题：
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小宝 时间: 2009-5-9 11:12
看到这一句：
'真奇怪,这里当变量blnFormIsMax为true时,条件表达式blnFormIsMax=true计算结果居然为false??!!
问题出在API声明上，在声明IsZoomed时把它声明为Boolean了，改为默认的声明类型Long就不会有这个现象了。

作者: Grant 时间: 2009-5-9 12:42
呵呵,小宝是API高手一站出来我只能观看了

作者: koutx 时间: 2009-5-9 13:45
漂亮，下了看看“费效比”如何

作者: t小宝 时间: 2009-5-9 15:47

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

惭愧，我是蒙的

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

作者: 13555609005 时间: 2009-5-9 23:46
谢谢分享

作者: apsfxc1 时间: 2009-5-11 10:10
感谢分享

作者: df 时间: 2009-5-26 23:46
谢谢分享

作者: cavin88 时间: 2009-9-7 21:57
非常感谢啊

作者: AJKLS 时间: 2015-9-18 17:04
学习

作者: AJKLS 时间: 2015-9-18 17:05
学习

作者: 1828737@qq.com 时间: 2019-12-21 23:43
学习借鉴

作者: luohua 时间: 2021-11-12 13:52
厉害厉害，学无止境

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)