【叶帆控件】用控件仅一条指令实现界面换肤和多语言版本(YFSkins)

叶帆
博客专家认证
业界专家认证
2005-03-29 04:58:45
这一段时间做程序,一直在做界面方面的工作,刚开始是简单的贴图操作,后来感觉不通用,代码重用性不好,并且要做很多基本工作(要在界面上添加图片,此外还要设定叠放顺序)。后来,把它封装成类,代码重用性提高了,可是界面上还要自己添好多控件,此外窗体变化和放缩,也得添好多代码。后来突然想到VB可以实现控件的自动添加,一试,果然好使,后来有把一些事件也集成到类中了。

目前又把类封装成了控件,使用更加简单了,仅需一条指令就可完成界面换肤和多语言版本

Private Sub Form_Load()
YFSkin1.SkinInit Me '仅需这一行代码

End Sub

这是我已经设计好的几个界面截图(皮肤和语言文件可自定义,可无限扩充)

界面图一:
http://www.bjjr.com.cn/yefan/pic/yfskins1.gif

界面图二:
http://www.bjjr.com.cn/yefan/pic/yfskins2.gif

界面图三:
http://www.bjjr.com.cn/yefan/pic/yfskins3.gif

代码下载地址:
http://blog.csdn.net/yefanqiu 【叶帆源码】- [016]界面皮肤(YFSkins)


(控件完全免费发布) 欢迎大家讨论
...全文
608 43 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
43 条回复
切换为时间正序
请发表友善的回复…
发表回复
wachel 2005-06-13
  • 打赏
  • 举报
回复
我发现瑞星2005的皮肤做得很完美,不知道它是怎样做到的
wachel 2005-06-13
  • 打赏
  • 举报
回复
做得真不错,有些建议

既然原来的标题栏都删掉了,它下面的菜单也应该删掉,我觉得应该把菜单复制一份,然后删掉,然后在标题栏下画出来。

没有标题栏的窗体最大化时候会盖住整个屏幕,我觉得应该可以检测任务栏高度然后重设窗体大小的,不过这样做也有问题,就是我不知道怎样通知windows这个窗体已经变成了最大化状态。
yoban 2005-04-13
  • 打赏
  • 举报
回复
楼主,有个问题,窗体不能加载工具栏、菜单等,否则整个窗体就很难看甚至无法移动了,是否有解决办法?
wfront 2005-04-13
  • 打赏
  • 举报
回复
有一个很严重的问题:menu不能为可视的,否则整个from的skin会走样.
cool_man 2005-04-13
  • 打赏
  • 举报
回复
Mark
wzzwwz 2005-04-13
  • 打赏
  • 举报
回复
好东西
laviewpbt 2005-04-13
  • 打赏
  • 举报
回复
TO:yefanqiu(叶帆)
用的时候窗体中没有其他控件遮住的地方有时候会黑屏,还有就是换一个路径的时候皮肤可能会换成另外一个。
叶帆 2005-04-13
  • 打赏
  • 举报
回复
我只是抛砖引玉,希望大家提出最好的解决方案
byeshuang 2005-04-13
  • 打赏
  • 举报
回复
有这样的成绩很不错了,再稍微改进一下,赶得上ActiveSkin了。
支持
江海门户 2005-04-12
  • 打赏
  • 举报
回复
真的很好,谢了
intocsdn 2005-04-12
  • 打赏
  • 举报
回复
好啊,支持!
阿_浩 2005-04-12
  • 打赏
  • 举报
回复
支持
twtyypeuxk 2005-04-10
  • 打赏
  • 举报
回复
如果能做到支持MDIForm窗体就好了
llfly147 2005-04-10
  • 打赏
  • 举报
回复
haha 我支持

chendjin 2005-03-31
  • 打赏
  • 举报
回复
不错,收藏了,学习啊。谢谢!!!!
zyg0 2005-03-30
  • 打赏
  • 举报
回复
caption需要必须写在配置文件里面
,配置文件在一个文件夹中,自己找,改ini文件,文件名酒变了
chendjin 2005-03-30
  • 打赏
  • 举报
回复
谢谢叶帆!!
试了一下,很好用。有两个问题:(1)如果把skin移动位置,窗体表单部分全黑了,右上角的按钮没有了。(2)新建一个窗体测试,form1.caption="..."没有按用户的要求显示,而是继续显示“叶帆软件系列”。我测试的问题就这些;顺便问一下,如果您没有共享打算,能否开源让大家学学,大虾?
hpygzhx520 2005-03-30
  • 打赏
  • 举报
回复
强!先看看!
zyg0 2005-03-30
  • 打赏
  • 举报
回复
支持
叶帆 2005-03-30
  • 打赏
  • 举报
回复
下载地址:http://www.bjjr.com.cn/yefan/yfskins.rar
加载更多回复(23)

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧