tetou 发表于 2013-7-7 22:30:55

【VB】用manifest文件实现XP风格

(本文发表于《软件报》2006年第17期)网上讨论编程实现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="1.0.0.0" 
   type="win32"/>  
  <dependency>  
   <dependentAssembly>  
   <assemblyIdentity 
   type="win32"  
   name="Microsoft.Windows.Common-Controls"  
   version="6.0.0.0"  
   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 Boolean
Private Type tagInitCommonControlsEx      
   lngSize As Long   
      lngICC As Long
End Type
Private 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 0
End Function
   注意初始化动作必须在所有窗体加载前完成,所以要把相关语句放到Sub Main()中,并设置工程从Sub Main()启动。代码如下:

Sub Main()

      InitCommonControlsVB

      Form1.Show

End Sub

至此,你编译后的abc.exe将具备XP风格,如图2所示:


二.在VB设计时或运行时实现XP风格

读者可能已经注意到,用上述方法实现的XP风格必须在编译成exe文件后才可以显示出来。那么是否可以实现在设计时或运行时的“所见即所得”呢。答案是肯定的。把上面提到的abc.exe.manifest文件改名为vb6.exe.manifest并拷贝到vb6的安装目录下(如C:\Program Files\Microsoft Visual Studio\VB98),然后运行VB6,向窗体上画几个控件试试。再按F5运行程序看看效果。我们可以发现,此时的控件已经具备了XP风格。如图3所示。


经笔者测试,此时VB6中的颜色选择框会显示不正常,但你仍然可以通过输入数值来改变颜色。

读者在看完这一部分以后往往会触类旁通,将其他程序的安装目录中也放入manifest文件来使其具备XP风格。但要注意此法并非适用于所有程序。如果这个程序没有对引用组件的初始化操作,那么放入manifest文件后将可能导致该程序无法运行。在VC编译的程序中,MFC在注册窗口类时会调用 _AfxInitCommonControls函数来加载comctl32.dll(版本6)。   而VB中的初始化操作需要程序员额外声明,所以要特别注意这一点。

三.让VB实现XP风格“无负担”

用上述方法实现XP风格还有一个遗憾,就是总有一个manifest文件如影随形。VB的程序员们为了使应用程序保持“绿色”而尽量少用ActiveX控件,却为实现XP风格而带上这个累赘的家伙。MSDN告诉VC程序员们可以把manifest文件编译到文件资源中,而VB程序员们照葫芦画个瓢时却得到程序无法运行的结果。

问题出在哪里?接着往下看。

把manifest文件编译进文件资源必须保证其资源ID为CREATEPROCESS_MANIFEST_RESOURCE_ID (即数值1),资源的类型为RT_MANIFEST(即数值24),而此类资源无法用VB资源编辑器直接编译,这是其一;其二,XML文件的第一句就提醒我们”encoding=UTF-8”,所以要把manifest保存为UTF-8编码格式。这里我们要让manifest文件的总字节数能够被4整除。例如你复制XML后得到的manifest文件是690字节,那么你就在文首或文尾补两个空格,使之成为692字节。这样得到的manifest文件就可以编译进资源了。如果不满足此要求,编译出来的文件将会出错(而VC中并无此额外要求)。具体编译方法如下:

在abc.exe.manifest文件的相同目录下新建一个文本文件,输入下行代码:

1 24 abc.exe.manifest

保存后将文件改名为xp.rc。如果您的电脑上装有VC,则直接双击xp.rc文件用VC运行之,然后另存为xp.res(这个另存为不简单,还具有编译功能)。如果没装VC,则从DOS下进入VB安装目录的Wizard目录(如C:\Program Files\Microsoft Visual Studio\VB98\Wizards),在提示符处输入下行命令:

rc /r d:\vbxp\xp.rc

这样,资源文件xp.res就编译好了。打开VB工程文件abc.vbp,按Ctrl +D加入该资源文件,编译生成abcd.exe(这里就不用abc.exe为文件名了,以免混淆),双击运行……。哈哈。大功告成。

最后说一下需要注意的地方。在Frame内的单选按钮运行后显示为黑色,解决方法是把它们先放入一个PictureBox内,并设置PictureBox 的BorderStyle属性为2-None,然后再连同PictureBox一起剪切到一个Frame中。

本文提及的方法不仅可以使应用程序内部的控件具备XP风格,也可以使其调用的消息框及ActiveX控件具备XP风格。但要注意,在使用工具栏、进度条等 ActiveX控件时要引用Microsoft Windows Common Controls 5.0 版本,否则不能使控件具备XP风格。

为了网友们的方便,我把manifest文件、rc文件、res文件和工程示例放在这里http://www.asanscape.com /vbxp.zip。本文内容在Windows XP+VB6中调试通过。
页: [1]
查看完整版本: 【VB】用manifest文件实现XP风格