怎样将一个工程里的所有窗口变为WINDOWS XP 窗口风格？（得到满意答复，马上解帖！）

Question

要求代码简单！最好一次能改变所有窗口！

Answer 1

http://www.sijiqing.com/vbgood/forum/forum_posts.asp?TID=10259&PN=2

Answer 2

<?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> 将以上内容保存为(假设你的工程exe应用程序文件名为YourApp.exe)YourApp.exe.manifest文件然后在每个窗体下加代码
 
    Private Sub Form_Initialize() 
    InitCommonControls 
    End Sub 
这个写在模块中
Declare Sub InitCommonControls Lib "comctl32.dll" () 
注意的是：
要生成exe文件才可以看见效果的
-----------------------------------------------------------
另外也可以把哪个文件作为资源文件嵌到工程中……

Answer 3

还有就是xp系统下面theme服务一定要开着
要不也没效果~

Answer 4

http://www.sijiqing.com/vbgood/widget/index.asp?action=read&id=117

Answer 5

TO 2楼
程序在XP下执行时就是XP风格的窗口呀

Answer 6

http://dev.csdn.net/develop/article/28/28987.shtm这个是你所要的！

Answer 7

http://www.a1vbcode.com/app.asp?ID=2551
这个可以看看~

Answer 8

上传了个给你,自己看啊,弄不好不要怪俺,俺没试验过.
这个号称能改VB做的EXE东西成XP.
自己测试看哦.
http://lulersoft.5uer.com/down/visualstyleswizardforwindowsxp.zip

Answer 9

to yinweihong(yige) :
   经过简单测试：   该控件似乎对中文支持不好，按钮控件上的文字显示不全（如 “打印（&P）”只显示出“打印（”，丢了字母和一个右括号），还有listview控件也有问题。text、combo、Option、check等控件效果较好。
   大侠可以修改他的代码解决这些问题吗？