99%的Vista Aero窗体VB源码

作者:枕善居主 / 查看次数: 18381 / 评论: 27

图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/

测试系统：vista sp1 , vb 6.0 sp6

i'm so tired, but it can be shown to people finally.

test in: vista sp1, vb 6.0 sp6

ps: you need a hi-speed cpu to run this program
========================================================
beta3
失去焦点时窗体透明度降低

dec alpha when form lost focus
失去焦点时窗体阴影减弱

dec shadow when form lost focus
失去焦点时标题阴影透明度降低

dec title shadow then form lost focus
按钮光晕mouse_on时alpha渐变（不会多线程。。用了loop）

shade button when mouse_on(i dunno how to use multi-thread,so i use loop)
左上角程序图标可弹出系统菜单

popup system menu when click control box

忘了还加了点什么了。。。反正是完全一样了。。。。
拖动窗体我为了完美，用了比较消耗cpu的方法。。所以cpu需要比较强劲。。。。
累死我了。。。不高兴优化了。。就这么样了。。。
话说。。写完这个，我把GDI+基本功能都学会了。。。。。汗一个。。
国内VB使用GDI+的资料真的是一点都没有。。。唉。。。。
过些天把代码贴出来，这里人气还是严重不足啊。。。。。
接下来开始研究怎么在上面显示控件...目前比较好的方法是用2个窗体....

========================================================
beta2
加入左右边框的光影
加入左/右上角光晕
窗体无焦点时按钮透明
Aurora效果已经完全和vista的算法一致了，误差在2像素以内。

还剩下一个无焦点时阴影减弱,那么就是99%了...
========================================================
beta1
使用GDI+技术。所有图片均提取自vista sp1内置资源。
Aurora效果在我nnnn次的试验之下，终于研究出了vista的算法。像素误差应该在个位数，懒得再去调节了。
文字阴影、按钮光晕、色彩调节。
最大化“不大”的问题我还没搞，还有失去焦点时的阴影减弱，关闭按扭透明我也没弄。其他都全了。

本人感觉占用资源比较厉害，呵呵！不过还是感谢作者：蓝色炫影的热情发布共享！