[分享]根据 ldhyob 版主的作品模仿了一个窗体界面，请大家批评!

foshan

谢谢 ldhyob 版主 不厌其烦地教导!直接做一整张图片会遇到一个问题：就是用API函数实现圆角的窗体时，哪些数据如何才能调到窗体的圆角与图片的圆角吻合？在您提供的通用代码中，是难以实现窗体的圆角与图片的圆角吻合的。晚上我再试多几次，同时也希望 ldhyob 版主 能够想出一个万全之策，谢谢!

阿土

thanks for sharing

foshan

昨天晚上再研究了如何给圆角镶条“边线”，决定采用先用图像软件制作出一幅有边线的圆角图片，然后再加载在窗体上。上传附件的“汇总表 (2)”工作表中有我在 Excel 中用绘图工具栏中的 自选图形---线条---曲线 画出来的圆角曲线，再加上四条直线，就构成了一个圆角的框架了，然后再染色。制作过程用到的图像软件就是微软自带的“画图”工具。请大家看看这个窗体界面设计还有哪些方面需要改进的，谢谢 GjOvN3lb.rar (38.83 KB, 下载次数: 26)

2005-8-12 08:51 上传

点击文件名下载附件

[此贴子已经被作者于2005-8-12 11:00:20编辑过]

lj1226189

加载位图！

foshan

谢谢 lj1226189 兄 的好建议。

[此贴子已经被作者于2005-8-12 10:19:59编辑过]

foshan

您说“最好把制作按钮的代码封装成类.就更方便了.”您所指的“封装成类”是指在VB中对Excel文件进行封装吗？还是指在VB中制成一个DLL文件，就如您的换肤精品中的DLL文件和int文件那样？

foshan

明白了!就正如您发表的圆形按钮的精品那样，如果封装成类，制作多个圆形按钮，也就是一句代码的事情。希望您能联合 button 版主及其他高人，能制作出一个这样的类精品出来，到时将又是一个划时代的巨作了，设计出一个漂亮的窗体界面就会变得更加容易了。

foshan

已用类完成了对标签控件的设置，这个类是借鉴了清风老师的作品，其中还有一些地方还没有完全明白，但却设置成功了。请 ldhyob 版主 指正错误，谢谢!

zzPEBsGA.rar (43.06 KB, 下载次数: 49)

2005-8-13 19:59 上传

点击文件名下载附件
[分享]根据 ldhyob 版主的作品模仿了一个窗体界面，请大家批评!

foshan

套用 ldhyob 版主 已有的代码，实现了 按钮的文字在按下时需要有被按下的动作即下移一点的状态，请 ldhyob 版主 再指点，谢谢!

第二个要求：“在设计时不需要布置标签控件,在代码运行时,由类动态增加或删除.即只要指定图片及文字还有位置即可”，现在还没有思路。

我有一个想法：如何才能在采用类时，其三幅图片能与Excel文件合为一体，也就是嵌入到Excel文件中，而不必用一个文件夹装着四个文件，这样很不方便，能实现吗？

hCGNHAiN.rar (46.13 KB, 下载次数: 35)

2005-8-13 20:36 上传

点击文件名下载附件
[分享]根据 ldhyob 版主的作品模仿了一个窗体界面，请大家批评!

[此贴子已经被作者于2005-8-13 20:39:42编辑过]

foshan

我已将图片放到工作表了，但以代码却行不通，如何处理？谢谢!

Lbl.Picture = LoadPicture(Sheet2.Shapes("Picture 58"))

Lbl.Picture = Sheet2.Shapes("Picture 58")

如果将图片放到窗体的图像控件上，以下的代码可行：Lbl.Picture = Image12.Picture

还有一个问题：每次手工新增加一个标签控件后，均需修改加载窗体时的循环代码：

For i = 2 To 4 Mylbl(i).Attach Me.Controls("label" & i) With Me.Controls("label" & i) .Picture = LoadPicture(ThisWorkbook.Path & "\Button1.gif") End With Next

手工新增加一个标签控件后，循环代码要改成For i = 2 To 5，再手工新增加一个标签控件后，循环代码要改成For i = 2 To 6……。能否用代码获取窗体上标签控件的总数量放到循环中，从而实现每次手工新增加一个标签控件后不需要修改循环代码，而又能实现新增加的标签控件与原有的标签控件同样的功能？谢谢!

[此贴子已经被作者于2005-8-14 10:26:41编辑过]