说到换肤,我们脑子当中可能就会浮现很多商业软件那些漂亮的皮肤,自从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 已安装成功,所以我们可以看到部件引用中有如下内容
勾中xtreme SkinFramework ActiveX Control 12.0.1,此时我们的界面当中应该可以看到类似下面的图片
到这里,我们的准备工作已完全准备妥当,下面是关键的代码,我们将其放在Form_Load事件中
Private Sub Form_Load()
Dim FileName as string
Dim IniFile as string
FileName ="C:Program FilesCodejock SoftwareActiveXXtreme SuitePro ActiveX v12.0.1SamplesSkinFrameworkStylesOffice2007.cjstyles"
IniFile="NormalBlue.ini"
&n