【搬运】VB6实现XP风格控件样式

VB6不支持XP风格？ 我以前也是这么认为的，呵呵…… 在第一个加载的窗体中声明和引用下面这个API过程 Private Declare Sub InitCommonControls Lib "comctl32.dll" () Private Sub Form_Initialize() InitCommonControls End Sub 这样就可以调用XP风格了。 有两个方法。 一个是生成程序后，在程序目录下新建一个manifest文件，文件是一个XML格式的文本文件，可以直接用记事本写，具体代码如下： <?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="yourname"            type="win32" /> <description>hello world.</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 这个方法可以给一些C++和Delphi程序套用XP样式，但是，直接给普通VB6程序使用该文件将会造成程序错误！ 第二个方法是嵌入式，将XML信息嵌入程序的资源文件中。 打开资源文件管理器，不过我还是建议你使用第三方的RES资源管理器。 打开我们刚才的文件，将其资源ID号更改为24，将文件号更改为1，编译程序，完成！ 同理，如果直接给未引用上面API过程的VB6程序使用该资源，也会造成程序无法执行。 当然，就算这样，生成的VB程序仍然是有副作用的，已知的几个BUG如下： 1.选择控件Option会在Frame控件内显示不正确，解决方法是在Frame控件内拖一个PictureBox控件，并将显示风格BorderStyle设置为0-None。 2.CommandButton、CheckBox、OptionButton控件将不会显示自定义颜色。 3.标准控件和Common Controls 5.0控件可以使用XP样式，Common Controls 6.0控件不行...-_-b ……………… 再怎么说，能让咱的VB6用上XP样式，已经算是很不容易了…… 将就将就吧…… 下载演示：已失效...