2011年11月27日星期日

[原创][VB6] VB6实现Fade效果

笔者看到一个朋友用VB2010写了个Fade效果的程序
用了me.opacity + 2个Timer
发现很有趣
便打开自己那一过时了的VB6来写
突然
发现VB6竟然没有Opacity函数(可悲啊~)
灵感涌上
控制窗体的透明度就应该可以达成Fade效果了吧~
果然成功啦~

用了1个Timer + For
绕了个大圈
终于可以啦~

EXE文件下载地址:Fade

源代码+EXE文件下载地址:Fade+Code.zip

因为是开源的,可以任意更改,没有版权的哦~

注:Aero主题下似乎没有效果。。。

没有评论:

发表评论