99%的完美Vista Aero窗体VB源码
[attach]99053[/attach]转载自：枕善居[url]http://www.mndsoft.com/blog/article.asp?id=1111[/url]
测试系统：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的算法。像素误差应该在个位数，懒得再去调节了。
文字阴影、按钮光晕、色彩调节。
最大化“不大”的问题我还没搞，还有失去焦点时的阴影减弱，关闭按扭透明我也没弄。其他都全了。
本人感觉占用资源比较厉害，呵呵！不过还是感谢作者：蓝色炫影 的热情发布共享！ 高手，向你学习了！！
页:
[1]