lin102524 lin102524
这个人比较懒。。。
关注数: 36 粉丝数: 7 发帖数: 464 关注贴吧数: 12
给那些还不知道如何实现XP风格界面的网友 相信好多人都知道VB其实是可以实现XP风格的,毕竟VB自带的风格太丑了,既然可以有更好看的,谁不会用呢,这里说的就是VB6.exe.manifest文件(就是和exe文件名一样,然后后面加(".manifest"),相信大家都不陌生,老听网上讲如何实现,然后自己依样画瓢做了个,结果硬是实现不了,我也是其中一个,后来慢慢研究,终于找到了可以实现的教程了,现在分享出来。 摘自网上的一段文章: VB编程实现XP风格之终结篇 一.用manifest文件实现XP风格 通过查阅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 version="1.0.0.0" processorArchitecture="X86" name="vbAccelerator.XPStylesTester.XPStylesTester" type="win32" /> <description>VB code converter.</description> <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风格。 教程到些差不多结束了,另附上我自己成功运行的界面图:工程界面图:好了,接下来就是发源码的时候了,这个是我自己根据教程写的
1 下一页