VBA for EXCEL 也玩怪异窗口
大家编程是不是编累了?用程序做点惊喜轻松一下吧[em11]
VBA也来玩玩怪异窗体,实现实现给窗体换肤的乐趣......
微软方方正正的窗口确实看腻了,到了xp里也只是圆滑了点,早就听说微软在WINDOWS API里给窗口的外型包装留了条后路,如建立圆形、椭圆形、多边形、三角形、菱形等特有形状,可是这些形状乃至形状组合其实仍然脱不了规则图形的圈子,因为它的效果完全达不到我们想随心所欲的外型。如我们想看到的自已设计的个性化播放器界面、卡通人物、美丽风景.....等等
曾在网上看到一篇相关文章,让眼前一亮,就有了试一试的勇气了,呵呵。
这种怪异窗体的实现原理仍然是前述利用API给窗口显示模式重新设置句柄的方法,关键是符合需要的、不规则的怪异窗口的显示句柄如何获得。文中一句话,道破天机,即:屏幕上任一象素点均可以看作是一小矩形,一幅图就是由象素矩形构成,只要把这个象素矩形的显示句柄一一融合成新显示句柄最后指定给准备变异的窗体就大功告成!
沿着上述思路,我的具体做法是:
1、自己绘制或从网上找幅图片;
2、对该图片通过图形处理软件,如photoshop进行轮廓处理,主体部分用某一纯色填充,并保证非主体部分(即窗体显示挖空部分)的色彩值不能与主体填充色相同。最好做成单色图。
3、把第2步取得的轮廓图用VBA调入窗体背景中,然后用逐行逐象素判断的方法,取得轮廓数据并保存,数据格式为矩形坐标:x1,y1,x2,y2......
4、窗体加载真正原图(非轮廓图),调用第3步预先存储的数据,对窗体实施变形,如此一来,窗体的不规则显示区域与背景一组合,怪异窗口跃然屏幕啦!
有了这个极具个性化的窗体外型,然后在上面放置些控件,加入些代码,来完成些自动化的工作,感觉挺爽,呵呵
放个例子上来,里面有五种界面,都是我从网上随便找的:)
[此贴子已经被作者于2003-4-29 11:27:51编辑过] |