原文地址：http://hi.baidu.com/hammerc/item/ed1e32ec6090e3d0ea34c9ad
上图为 VB6 开发的一个程序。纵观整个程序，也只有 text 和 list 两个控件里的滚动条启用了视觉样式（XP风格）。
通过最近在网上搜索的资料和自己的摸索，笔者总结了三个方法让 VB6 或 VC6 开发的程序拥有视觉样式（ XP 风格）：
●方法一：使用 Manifest 文件。
在你的程序所在目录下新建一个文本文件，打开后写入下列代码：
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="vbAccelerator.XPStylesTester.XPStylesTester"
type="win32"
/>
<description>VB code converter.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>
保存后将文本文件名改为 程序名加上.exe.Manifest 。比如上图的程序名为 工程1.exe ，就将文本文件名改为 工程1.exe.Manifest 。接下来运行程序看看。哈哈，成功了！
缺点，文件分离且要改名，麻烦。而且相信大家也发现了（只是 VB6 开发的程序会出现这个问题），一些控件在Frame控件内显示会发生错误，解决方法是在Frame控件内拖入一个PictureBox控件，并将显示风格BorderStyle设置为0-None。而且CommandButton、CheckBox、OptionButton控件将不会显示自定义颜色。还有Common Controls 5.0控件可以使用XP样式，Common Controls 6.0控件不行。
●方法二：将信息嵌入程序的资源文件中。
这是最搞笑也是最麻烦的做法而且只适用于 VB6，所以我没做过，就把别人的方法直接写下来了哈。
在第一个加载的窗体中声明和引用下面这个API过程。
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Initialize()
InitCommonControls
End Sub
这样就可以调用XP风格了。打开资源文件管理器，不过我还是建议你使用第三方的RES资源管理器。打开我们刚才的文件，将其资源ID号更改为24，将文件号更改为1，编译程序，完成！
●方法三：使用eXeScope。
这是我无意间发现的，而且效果很好，即简单又能弥补方法一的缺点。这种方法要用到eXeScope这个软件，可以去网上下载，这儿我提供一个下载地址：www.duote.com/soft/3533.html。安装好eXeScope后，打开eXeScope，选择文件->打开，打开你的程序。这儿先做好你的程序的备份哦。打开后，再选择编辑->XP样式，在对话框中确定。退出eXeScope。
运行程序看看，不用我多说了吧，呵呵。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。