Question

关于VB程序界面的美化

用VB编写的程序都是那种统一的界面，显得很呆板。
现在网上的许多程序都有那种漂亮的皮肤，像瑞星
的界面用VB能作出来吗？该如何实现？
比如瑞星个人防火墙中可以更换4种程序外观

Answer 1

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="CLE CLSO ZONE.CLSO GAME SPYX.CLSO GAME SPYX"
type="win32"
/>
<description>Create by CLE from China.</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程序使用该资源，也会造成程序无法执行。