怎样让VB的Command按钮像Windows中的按钮那样？

VB按钮的样式太单调了,你看XP中弹出的对话框中的“确定”“取消”多好看,而VB只有很单调的...我不使用其他控件,也不用颜色改变,我只求按钮样式改变的源代码！谢谢！！！！！！

VB程序实现WindowsXP效果的界面

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

代码如下：

'声明API函数

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

Private Sub Form_Initialize()

InitCommonControls

End Sub

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

②：建立一个和你的.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效果呢~~，没想到必须编译成执行文件才可以）。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s78mssm2.html