VB如何生成WINDOW XP风格界面！

 虽然WindowsXP的界面非常华丽。但是令人遗憾的是，我们用VB写的程序除了菜单和窗口的外观是XP风格外，其他控件还是一如既往的是普通风格。我想，有的程序在XP下有XP的风格，VB也一定有办法实现XP的风格。后来笔者在网上看到一篇介绍XML的文章，又在网上找到了一篇实现XP风格的文章，经过自己的实践，终于找到了VB程序实现XP风格的办法。为了使其他的网友不至于走像我这样的多的弯路，将此办法写出来，与大家共同提高！！

                                                                     

    具体的 实现方 法如下：

    ①： 在你的 窗体加入 代码。如果是多个 窗口，可 以将此 代码放 到模块中。

 

    代码如下：

    ' 声明API函数

    Private Declare Sub InitCommonControls Lib " comctl32.dll" ()

    Private Sub Form_Initialize()

         InitCommonControls

    End Sub

    注意： 千万不要在Form_load() 事件下写I nitCommonControls这句 话， 否则你的 窗体会 启动不了。（ 不要怪我没告诉你啊~~~~）

　

    ②： 建立一 个和你的.exe 同名的.exe. manifest 文件（ 假如： 如果你最后编 译好的 文件名为WindowXPStyle.exe，则 建立一个文件 名为WindowXPStyle.exe.manifest 的文件）， 并且此文件 必须存在于 和你Exe 文件的同一 目录下。

　

    以WindowXPStyle.exe 为例， 则这个WindowXPStyle.exe.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="CompanyName.ProductName.YourApp"

type="win32"

/>

<description>Your application description here.</description>

<dependency>

<dependentAssembly>

< assemblyIdentity

type="win32"

name="Microsoft.Windows.Common-Controls"

version="6.0.0.0"

processorArchitecture="X86"

publicKeyToken="6595b64144ccf1df"

language="*"

/>

</dependentAssembly>

</dependency>

</assembly>

　

    将以上内 容保存为WindowXPStyle.exe.manifest。 并且和执行 文件放在一个目录下（ 一定要记住）。

   

    到此为止， 我们的程序已经 完成，不过在 VB的设计 环境下运 行是看不到 XP效果的。 必须编译成可执行文 件运行才可以。（ 因为这个我试了不 知多少遍，以为 VB程 序就是实现不了 XP效果呢~~， 没想到必须编译 成执行文件才 可以）。

    运行效 果如下图所示： 

 

     相信大家 也看到了不 足之处， 就是放在FRAME 控件中的 单远按钮有些“麻烦”！ 为了解决此问题， 可以将单选 按钮放在PICTURE 控件中（以PICTURE 控件作为容器），再将PICTURE 控件放在FRAME 控件中，就可以了。　

 

常见问题和 注意事项

 

    由于 VB6自身的原因，Windows XP 再一次给 我们留了一些难题：

 

    一、工具栏问题：工具栏控件一定要用Microsoft Windows Common Controls 5.0，而不要用Microsoft Windows Common Controls 6.0。因为此InitCommonControls API函数是位于comctl32.dll（Microsoft Windows Common Controls 5.0控件的动态链接库中）。

    二、 图形风格按钮的问题： 很遗憾， 我们不能再使用Graphical风格的 命令按钮（即Style=1的命令按钮控件）了。 因为一旦将命 令按钮的Style 属性设为1， 那么它将失去Windows XP风格。

    只要注意以上几点， 并采取相应的 措施， VB编写的 程序在Windows XP中 看上去还 是很华丽的！

 

    注： 其它语言写的 程序也是一样， 实现起来 不会有 VB这么多 的问题。如 DELPHI、 VC等，连 API函数都 可以直接使用， 不用事先 声明。相对来 说更简单！