让程序轻松支持换肤功能--VB6示例
来源:互联网 发布:免费棋牌app源码 编辑:程序博客网 时间:2024/04/26 14:47
特别注明:如有转载请包含此出处http://blog.csdn.net/aohan
说到换肤,我们脑子当中可能就会浮现很多商业软件那些漂亮的皮肤,自从XP流行以来,程序的外观变得比以往更加引人注意,像Office 系列的界面,一直是很多程序员模仿的范例,今天我就利用Xtreme Suite Pro ActiveX 轻松的给自己程序加上皮肤应用功能,为我们自己的程序增色。
目标:制作一个具有换肤功能的程序,程序界面模仿Office 2007样式
一、准备工作
1、开发工具VB6,当然也可以用.Net,这里以VB6做示例
2、Xtreme Suite Pro ActiveX 12英文正式版
下载地址为:
Part1:http://download.csdn.net/source/744548
Part2:http://download.csdn.net/source/744597
二、工具安装
1、VB6的安装不多说
2、将上述下载地址的两个文件下载后放在同一个目录下,然后解压Part1,解压完成后,可以看到一个setup.exe文件,按提示安装,其中Sn在对应的文本中,注意我们选用的Sn为Xtreme Suite Pro ActiveX v12.0.1 英文正式版的,Xtreme Toolkit Pro v12.0.1是针对MFC的,不要输入错误。
现在假设Xtreme Suite Pro ActiveX 按照默认方式已安装成功,那边我们可以进入到下一步了。
三、正式开始
1、新建一个VB6的EXE工程
2、在工具栏上点击右键找到部件,因为Xtreme Suite Pro ActiveX 已安装成功,所以我们可以看到部件引用中有如下内容
(图1)
勾中xtreme SkinFramework ActiveX Control 12.0.1,此时我们的界面当中应该可以看到类似下面的图片
(图2)
到这里,我们的准备工作已完全准备妥当,下面是关键的代码,我们将其放在Form_Load事件中
Private Sub Form_Load()
Dim FileName as string
Dim IniFile as string
FileName ="C:/Program Files/Codejock Software/ActiveX/Xtreme SuitePro ActiveX v12.0.1/Samples/SkinFramework/Styles/Office2007.cjstyles"
IniFile="NormalBlue.ini"
SkinFramework1.LoadSkin Dlg.FileName, IniFile
SkinFramework1.ApplyWindow Me.hWnd
SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics
End Sub
这里我们利用SkinFramework的LoadSkin方法找到指定的皮肤文件,然后再调用ApplyWindow方法,并且设置了ApplyOptions 属性,注意这里的设置其实就是SkinFramework的默认值。
按F5运行工程,出现在我们眼前的界面将是下面这个样子了
(图3)
简单的引用,简单的代码,出现在我们面前的却已经是如此漂亮的界面,到这里我们已大告功成了。
四、扩展
Xtreme Suite Pro ActiveX 的SkinFramework 不但支持以cjstyles为扩展的皮肤文件,同时也支持XP的themes文件,即以msstyles为扩展名的文件,知道了这点我们的皮肤来源就非常广了。
下面为大家推荐一个地方,里面有很多免费的皮肤
http://customize.org/xpthemes
安装完Xtreme Suite Pro ActiveX ,官方即包含Office2007.cjstyles,Vista.cjstyles,WinXP.Luna.cjstyles,WinXP.Royale.cjstyles四个皮肤文件,同一个皮肤文件中可能包含几个配置文件,比如Office2007.cjstyles就包含NormalBlue.ini 、NormalAqua.ini 、NormalSilver.ini 、NormalBlack.ini 四个配置文件,可以放在LoadSkin方法的第二个参数中,就可以显示不同配置文件所达到的不同皮肤的效果。
为了读取皮肤文件所包含的配置文件,我们可以用下面的方法
Dim Discription As SkinDescription
Dim i As Integer
Dim FileName as string
FileName ="C:/Program Files/Codejock Software/ActiveX/Xtreme SuitePro ActiveX v12.0.1/Samples/SkinFramework/Styles/Office2007.cjstyles"
Set Discription = SkinFramework1.EnumerateSkinFile(FileName )
For i = 0 To Discription.Count - 1
debug.print "IniFile:" & Discription.IniFile(i).IniFileName & "/ColorScheme:" & Discription.IniFile(i).ColorScheme & _
"/FontSize:" & Discription.IniFile(i).FontSize
Next
写到这里,我们才真正搞定了皮肤的开发,为了大家的使用方便,我特意写了一个示例程序
下载地址为:http://download.csdn.net/source/744605
另外这里包含了几个皮肤文件:http://download.csdn.net/source/750741
有兴趣的可以参考一下
特别注明:如有转载请包含此出处http://blog.csdn.net/aohan
现在发现好多网站在转载的文章的时候会去头删尾,结果就变成他们的原创了,在这里严重表示不满一下。
- 让程序轻松支持换肤功能--VB6示例
- 让程序轻松支持换肤功能--VB6示例
- 全面拥抱 Qt 4.6 + 让Qt应用程序支持换肤(Skin)功能
- 支持换肤功能的窗口实例
- 支持换肤功能的窗口实例
- android程序换肤功能实现
- 【C#】WindowsForm程序的换肤功能
- 让VB6/VBA 编辑器支持鼠标滚轮
- 让VB6/VBA 编辑器支持鼠标滚轮
- DevExpress VCL 动态加载皮肤换肤示例,支持Ribbion
- 让ExtJs 2.02的例子也支持换肤
- 让ExtJs 2.02的例子也支持换肤
- 让ExtJs 2.02的例子也支持换肤
- #1 支持换肤功能的窗口实例(ZT)
- 让自己的程序支持CD刻录功能
- 怎样让VB6程序只能运行一次
- NET vs2010中使用IrisSkin2.dll轻松实现winForm窗体换肤功能
- .NET vs2010中使用IrisSkin2.dll轻松实现winForm窗体换肤功能
- hihoCoder 第157周 二进制小数
- Get 请求中文参数乱码解析
- Ubuntu下NFS服务器的搭建与配置
- Python UDP Server and Client
- git
- 让程序轻松支持换肤功能--VB6示例
- 【OpenVswitch源码分析之三】控制面关键接口与调用流程
- Hadoop配置完全分布式
- 1254: n-1位数
- laravel框架-实现简单的文件上传
- java基础之接口的介绍
- CodeVS 2645 Spore 题解 【图论】【SPFA】
- “超左眼”“画质优化”可能灰阶处理方案
- rabbitmq