[原创]VBA for EXCEL 也玩怪异窗口

ldhyob

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编辑过]

bigbigpig

酷！

xiaog

同意，酷！

shizuniao

good

sinomos

不错

flli883

请教： 以象素点为矩形，CreatRectRgn 的x1,y1.x2,y2可以为同一值吗？ 用CreatRectRgn 和 combinRgn 时 Rect 能否重合？ 为何我取了这样一些点后运行发生资源不足的现象，EXCEL 逼迫终止？

ldhyob

TO flli883： CreatRectRgn 的x1,y1.x2,y2取值可以为x1=x2或y1=y2但二者不能同时相等,CreatRectRgn 必须建立有至少一象素的区域(否则程序尚可执行但显示区域为空,不过此举达到了使窗体隐藏的效果)即当x1=x2时，ABS(y1-y2)>=1；当y1=y2时，ABS(X1-X2)>=1。我专门做了个程序来分析轮廓图片，其中就是按行来取值，如x1,y1,x2,y2===>1,10,1,11这样就取得了一个象素点的显示区域。另外在使用完句柄后一定要及时释放资源，否则运行几次就会发生你所说的EXCEL被迫终止的情况。

[此贴子已经被作者于2003-4-30 7:30:47编辑过]

yanjian

真的是很棒

flli883

谢谢 ldhyob 。

Barry

酷。 研究一下再提问题。