VB程序实现XP效果的界面

新客网 XKER.COM 2007-02-01 来源：收藏本文

　　具体的实现方法如下：　　

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

　　代码如下：　　

　　 '声明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的文件的内容如下：　　

　　
　　　
　　　　version="1.0.0.0"
　　 processorArchitecture="X86"
　　 name="CompanyName.ProductName.YourApp"
　　 type="win32"
　　 />
　　Your application description here.
　　
　　
　　　　type="win32"
　　 name="Microsoft.Windows.Common-Controls"
　　version="6.0.0.0"
　　processorArchitecture="X86"
　　 publicKeyToken="6595b64144ccf1df"
　　language="*"
　　/>
　　
　　
　　　

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

上一篇：如何用VB在窗体中实现闪烁文字下一篇：Visual Basic 安装程序的制作

【收藏】【评论】【推荐】【投稿】【打印】【关闭】