VB编程实现XP风格之终结篇[组图](3)
二．在VB设计时或运行时实现XP风格
读者可能已经注意到，用上述方法实现的XP风格必须在编译成exe文件后才可以显示出来。那么是否可以实现在设计时或运行时的“所见即所得”呢。答案是肯定的。把上面提到的abc.exe.manifest文件改名为vb6.exe.manifest并拷贝到vb6的安装目录下（如C:Program FilesMicrosoft Visual StudioVB98），然后运行VB6，向窗体上画几个控件试试。再按F5运行程序看看效果。我们可以发现，此时的控件已经具备了XP风格。如图3所示。
经笔者测试，此时VB6中的颜色选择框会显示不正常，但你仍然可以通过输入数值来改变颜色。
读者在看完这一部分以后往往会触类旁通，将其他程序的安装目录中也放入manifest文件来使其具备XP风格。但要注意此法并非适用于所有程序。如果这个程序没有对引用组件的初始化操作，那么放入manifest文件后将可能导致该程序无法运行。在VC编译的程序中，MFC在注册窗口类时会调用_AfxInitCommonControls函数来加载comctl32.dll（版本6）。 而VB中的初始化操作需要程序员额外声明，所以要特别注意这一点。
三．让VB实现XP风格“无负担”
用上述方法实现XP风格还有一个遗憾，就是总有一个manifest文件如影随形。VB的程序员们为了使应用程序保持“绿色”而尽量少用ActiveX控件，却为实现XP风格而带上这个累赘的家伙。MSDN告诉VC程序员们可以把manifest文件编译到文件资源中，而VB程序员们照葫芦画个瓢时却得到程序无法运行的结果。
问题出在哪里？接着往下看。
把manifest文件编译进文件资源必须保证其资源ID为CREATEPROCESS_MANIFEST_RESOURCE_ID （即数值1），资源的类型为RT_MANIFEST（即数值24），而此类资源无法用VB资源编辑器直接编译，这是其一；其二，XML文件的第一句就提醒我们”encoding=UTF-8”，所以要把manifest保存为UTF-8编码格式。这里我们要让manifest文件的总字节数能够被4整除。例如你复制XML后得到的manifest文件是690字节，那么你就在文首或文尾补两个空格，使之成为692字节。这样得到的manifest文件就可以编译进资源了。如果不满足此要求，编译出来的文件将会出错（而VC中并无此额外要求）。具体编译方法如下：
在abc.exe.manifest文件的相同目录下新建一个文本文件，输入下行代码：
1 24 abc.exe.manifest
保存后将文件改名为xp.rc。如果您的电脑上装有VC，则直接双击xp.rc文件用VC运行之，然后另存为xp.res（这个另存为不简单，还具有编译功能）。如果没装VC，则从DOS下进入VB安装目录的Wizard目录（如C:Program FilesMicrosoft Visual StudioVB98Wizards），在提示符处输入下行命令：
rc /r d:vbxpxp.rc
这样，资源文件xp.res就编译好了。打开VB工程文件abc.vbp，按Ctrl +D加入该资源文件，编译生成abcd.exe（这里就不用abc.exe为文件名了，以免混淆），双击运行……。哈哈。大功告成。
最后说一下需要注意的地方。在Frame内的单选按钮运行后显示为黑色，解决方法是把它们先放入一个PictureBox内，并设置PictureBox的BorderStyle属性为2-None，然后再连同PictureBox一起剪切到一个Frame中。
本文提及的方法不仅可以使应用程序内部的控件具备XP风格，也可以使其调用的消息框及ActiveX控件具备XP风格。但要注意，在使用工具栏、进度条等ActiveX控件时要引用Microsoft Windows Common Controls 5.0 版本，否则不能使控件具备XP风格。
为了网友们的方便，我把manifest文件、rc文件、res文件和工程示例放在这里http://www.asanscape.com/vbxp.zip。本文内容在Windows XP+VB6中调试通过。
