发一个窗体特效模块

zodane · 发表于 2006-10-2 10:42:00

搜集了网上的资料 ,自己整理了一下,做了一个公用的模块发上来 .

这个模块主要有6个功能
1.窗体全屏显示
2.渲染窗体边框(颜色可自选)
3.圆角矩形窗体
4.半透明窗体
5.窗体裁减
6.窗体总在最前 .

xikema · 发表于 2006-10-2 22:15:00

下来看看是什么

Miu.C · 发表于 2006-10-3 12:23:00

Sub Clarity(frm As Form) '窗体半透明
Dim rtn As Long
rtn = GetWindowLong(frm.hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong frm.hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes frm.hwnd, 0, 159, LWA_ALPHA
End Sub

你这个半透明可以在98下用吗？？谢谢。

kimja · 发表于 2006-10-3 19:03:00

先收下！~谢谢啦！~~
有嗲效果图看一下会更好些！~

zodane · 发表于 2006-10-3 23:36:00

回MIU ，不好意思，在98下，不能用。因为这个效果使用了自WIN 2K系统才有的一个API函数
所以这个效果只支持win 2k 和win 2k以后的操作系统，（理论上）。因为我没有98系统，所以不能测试了。

zodane · 发表于 2006-10-3 23:51:00

这是窗体效果。

zodane · 发表于 2006-10-3 23:54:00

这是控件效果，因为可以把这个应用到picture控件中。

Miu.C · 发表于 2006-10-4 16:56:00

zodane: Re:发一个窗体特效模块

回MIU ，不好意思，在98下，不能用。因为这个效果使用了自WIN 2K系统才有的一个API函数
所以这个效果只...

现在用98的人多吗？？如果不是很多，可以考虑忽略98用户。

psic · 发表于 2006-10-4 20:48:00

Miu.C: Re: Re:发一个窗体特效模块

现在用98的人多吗？？如果不是很多，可以考虑忽略98用户。

不能忽略98啊，有人公司里一半的都是用的98……

xpertsoft · 发表于 2006-10-4 22:47:00

SetLayedWindow?

账号		自动登录	找回密码
密码			立即注册

发一个窗体特效模块

Re:发一个窗体特效模块

Re:发一个窗体特效模块

Re:发一个窗体特效模块

Re:发一个窗体特效模块

Re: 发一个窗体特效模块

Re: 发一个窗体特效模块

Re: Re:发一个窗体特效模块

Re: Re: Re:发一个窗体特效模块

Re:发一个窗体特效模块