VB编程实现XP风格之终结篇.docVIP

网上讨论编程实现XP风格已经很久了，但对于VB编程实现XP风格，却终没有一个完美的解决方案。笔者通过N个日夜的刻苦钻研终于揭开其中奥秘。下面分为三个方面与大家共享之。下载源代码一．用manifest文件实现XP风格正常情况下，在Windows XP系统中，用VB6开发的应用程序只有窗口标题条具备XP风格，窗体上的按钮、文本框等控件仍然显示Windows传统风格。如图1所示：通过查阅MSDN里的Visual Style章节知道，Windows XP通过Comctl32.dll（版本6）来加载具备XP风格的组件，应用程序则通过一个XML资源文件来通知系统来做这些。XML文件的内容如下：＜?xml version=1.0 encoding=UTF-8 standalone=yes?＞　 　　＜assembly xmlns=urn:schemas-microsoft-com:asm.v1 manifestVersion=1.0＞　 　　＜assemblyIdentity　 　　 name=XP style manifest　　 　　 processorArchitecture=x86　 　　 version=　 　　 type=win32/＞　　 　　＜dependency＞　　 　　 ＜dependentAssembly＞　　 　　 ＜assemblyIdentity　 　　 type=win32　　 　　 name=Microsoft.Windows.Common-Controls　　 　　 version=　　 　　 processorArchitecture=x86　　 　　 publicKeyToken=6595b64144ccf1df　　 　　 language=*　　 　　 /＞　　 　　 ＜/dependentAssembly＞　　 　　＜/dependency＞　　 　　＜/assembly＞假设你最终编译的程序名是abc.exe，工作目录是d:\vbxp。复制上述XML内容并保存为文本文件。然后将该文件改名为abc.exe.manifest（注意.txt扩展名要去掉）。在VB程序中，我们要在所有窗体加载之前调用InitCommonControlsEx函数从comctl32.dll（版本6）中对组件类进行初始化。API函数InitCommonControlsEx及相关常数、数据类型的声明如下：Private Declare Function InitCommonControlsEx Lib comctl32.dll _　　　　(iccex As tagInitCommonControlsEx) As BooleanPrivate Type tagInitCommonControlsEx　　　　lngSize As Long　　　　lngICC As LongEnd TypePrivate Const ICC_USEREX_CLASSES = H200　　这里我们编写一个函数封装初始化操作：Public Function InitCommonControlsVB() As Boolean　　　　On Error Resume Next　　　　Dim iccex As tagInitCommonControlsEx　　　　With iccex　　　　　 .lngSize = LenB(iccex)　　　　　 .lngICC = ICC_USEREX_CLASSES　　　　End With　　　　InitCommonControlsEx iccex　　　　InitCommonControlsVB = (Err.Number = 0)　　　　On Error Goto 0End Function注意初始化动作必须在所有窗体加载前完成，所以要把相关语句放到Sub Main()中，并设置工程从Sub Main()启动。代码如下：Sub Main()　　 InitCommonControlsVB　　 Form1.ShowEnd Sub至此，你编译后的abc.exe将具备XP风格，如图2所示：二．在VB设计时或运行时实现XP风格读者可能已经注意到，用上述方法实现的XP风格必须在编译成exe文件后才可以显示出来。那么是否可以实现在设计时或运行时的“所见即所得”呢。答案是肯定的。把上面提到的abc.exe.manifest文件改名为vb6.exe.manifest并拷贝到vb6的安装目录下（如C:\Program Files\Microsoft Visual Studio\VB98），然后运行VB6