VB程序实现WindowsXP效果的界面

<P>虽然WindowsXP的界面非常华丽。但是令人遗憾的是，我们用VB写的程序除了菜单和窗口的外观是XP风格外，其他控件还是一如既往的是普通风格。我想，有的程序在XP下有XP的风格，VB也一定有办法实现XP的风格。后来笔者在网上看到一篇介绍XML的文章，又在网上找到了一篇实现XP风格的文章，经过自己的实践，终于找到了VB程序实现XP风格的办法。为了使其他的网友不至于走像我这样的多的弯路，将此办法写出来，与大家共同提高！！
  作者：崔占民
  Email：<a href="mailtCuiZM@163.com" target="_blank" >CuiZM@163.com</A></P>
<P>具体的实现方法如下：</P>
<P>    ①：在你的窗体加入代码。如果是多个窗口，可以将此代码放到模块中。</P>
<P>    代码如下：</P>
<P>
<BR clear=all>
 </P>
<P>
<TABLE borderColor=#55aaff cellSpacing=0 cellPadding=0 rules=none width=500 align=center bgColor=#ddedfb border=1>

<TR>
<TD width=10>
</TD>
<TD>
<P>    '声明API函数</P>
<P>    Private Declare Sub InitCommonControls Lib "comctl32.dll" ()</P>
<P>    Private Sub Form_Initialize()</P>
<P>        InitCommonControls</P>
<P>    End Sub</P></TD></TR></TABLE></P>

<P>    注意：千万不要在Form_load()事件下写InitCommonControls这句话，否则你的窗体会启动不了。（不要怪我没告诉你啊~~~~）</P>
<P>    ②：建立一个和你的.exe同名的.exe.manifest文件（假如：如果你最后编译好的文件名为WindowXPStyle.exe，则建立一个文件名为WindowXPStyle.exe.manifest的文件），并且此文件必须存在于和你Exe文件的同一目录下。</P>
<P>    以WindowXPStyle.exe为例，则这个WindowXPStyle.exe.manifest的文件的内容如下：</P>
<P>
<TABLE borderColor=#55aaff cellSpacing=0 cellPadding=0 rules=none width=500 align=center bgColor=#ddedfb border=1>

<TR>
<TD width=10>
</TD>
<TD><?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<P><assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"></P>
<P><assemblyIdentity</P>
<P>version="1.0.0.0"</P>
<P>processorArchitecture="X86"</P>
<P>name="CompanyName.ProductName.YourApp"</P>
<P>type="win32"</P>
<P>/>
</P>
<P><description>Your application description here.</description></P>
<P><dependency></P>
<P><dependentAssembly></P>
<P><assemblyIdentity</P>
<P>type="win32"</P>
<P>name="Microsoft.Windows.Common-Controls"</P>
<P>version="6.0.0.0"
</P>
<P>processorArchitecture="X86"</P>
<P>publicKeyToken="6595b64144ccf1df"</P>
<P>language="*"</P>
<P>/></P>
<P></dependentAssembly></P>
<P></dependency></P>
<P></assembly></P></TD></TR></TABLE></P>

   将以上内容保存为WindowXPStyle.exe.manifest。并且和执行文件放在一个目录下（一定要记住）。<P>    到此为止，我们的程序已经完成，不过在VB的设计环境下运行是看不到XP效果的。必须编译成可执行文件运行才可以。（因为这个我试了不知多少遍，以为VB程序就是实现不了XP效果呢~~，没想到必须编译成执行文件才可以）。</P><P>   <b> 运行效果如下图所示：</b>

</P><P align=center><img src="http://www.pconline.com.cn/pcedu/empolder/gj/vb/0406/pic/040622xp1.jpg"></P><P>     相信大家也看到了不足之处，就是放在FRAME控件中的单远按钮有些“麻烦”！为了解决此问题，可以将单选按钮放在PICTURE控件中（以PICTURE控件作为容器），再将PICTURE控件放在FRAME控件中，就可以了。　</P><P><b>  常见问题和注意事项</b></P><P>    由于VB6自身的原因，Windows XP再一次给我们留了一些难题：</P><P>    一、工具栏问题：工具栏控件一定要用Microsoft Windows Common Controls 5.0，而不要用Microsoft Windows Common Controls 6.0。因为此InitCommonControls API函数是位于comctl32.dll（Microsoft Windows Common Controls 5.0控件的动态链接库中）。</P><P>    二、图形风格按钮的问题：很遗憾，我们不能再使用Graphical风格的命令按钮（即Style=1的命令按钮控件）了。因为一旦将命令按钮的Style属性设为1，那么它将失去Windows XP风格。</P><P>    只要注意以上几点，并采取相应的措施，VB编写的程序在Windows XP中看上去还是很华丽的！如下图所示：</P><P align=center><img src="http://www.pconline.com.cn/pcedu/empolder/gj/vb/0406/pic/040622xp2.jpg"></P><P>    注：其它语言写的程序也是一样，实现起来不会有VB这么多的问题。如DELPHI、VC等，连API函数都可以直接使用，不用事先声明。相对来说更简单！
 
</P>