VB编程实现XP风格之终结篇
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
manifestXP
Windows XPVB6XPWindows1
MSDNVisual StyleWindows XPComctl32.dll6XPXMLXML ?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=&mon-Controls&
version=&6.0.0.0&
processorArchitecture=&x86&
publicKeyToken=&ccf1df&
language=&*&
/dependentAssembly /dependency /assembly
abc.exed:/vbxpXMLabc.exe.manifest.txtVBInitCommonControlsExcomctl32.dll6APIInitCommonControlsEx
&&&&&&(iccex As tagInitCommonControlsEx) As Boolean
&&&&&lngSize As Long
&&&&&lngICC As Long
&&&&&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
注意初始化动作必须在所有窗体加载前完成，所以要把相关语句放到Sub Main()中，并设置工程从Sub Main()启动。代码如下：
Sub Main() &&&& InitCommonControlsVB &&&& Form1.Show End Sub abc.exeXP2
XPexeabc.exe.manifestvb6.exe.manifestvb6C:/Program Files/Microsoft Visual Studio/VB98VB6F5XP3
VB6 manifestXPmanifestVCMFC_AfxInitCommonControlscomctl32.dll6& VB
XPmanifestVBActiveXXPMSDNVCmanifestVB
manifestIDCREATEPROCESS_MANIFEST_RESOURCE_ID 1RT_MANIFEST24VBXML”encoding=UTF-8”manifestUTF-8manifest4XMLmanifest690692manifestVC
abc.exe.manifest
1 24 abc.exe.manifest
xp.rcVCxp.rcVCxp.resVCDOSVBWizardC:/Program Files/Microsoft Visual Studio/VB98/Wizards
rc /r d:/vbxp/xp.rc
xp.resVBabc.vbpCtrl +Dabcd.exeabc.exe
FramePictureBoxPictureBoxBorderStyle2-NonePictureBoxFrame
XPActiveXXPActiveXMicrosoft Windows Common Controls 5.0 XP
manifestrcresWindows XP+VB6 &
嘿嘿，
&br&我在网吧了
&br&在VBGOOD太卡了，找得麻烦死了
&br&就搜索“终结 XP风格”
&br&就找到你的BLOG了。
&br&哈哈
你好，看了你这篇讲解，确实获益匪浅，有个问题请教你，在实现效果的同时，当鼠标在文本框或者单选框上移动时，label控件会出现闪烁现象
hexinchun148
就是在用frame时，边框都看不到了。
第一种方法，我没有用InitCommonControl，而是直接放个manifest文件，也能够实现，这是为什么呢？
第三种方法，这样做了以后就不能往该项目里添加其他资源了是吗？要如何解决呢？
如果有时间，麻烦回答一下，谢谢了。
这样做了以后就不能往该项目里添加其他资源了是吗？回答:仍然可以添加资源.你可能没有打开VB的资源编辑器.请在菜单外接程序管理中打开VB资源管理器,然后双击右侧&相关文件&的xp.res就可以进行编辑了.
附:VB资源编辑器支持光标图标和BMP,二进制等,但把许多本是资源的东西屏蔽了,如窗体,文本,版本信息,以及本例中用到的24号资源.所以此例中生成资源的方式才如此这般.
谢谢楼主了，看来真是大长见识呀??d=0.35996
trademark2004
thank you very much!
sndgv926468
呵呵，以前看过这个介绍，但是不太全面，今天终于见到了！
lindalijun
该方法也可以改变VC6的界面效果[e01]
smallspirite
你好，看了你这篇讲解，确实获益匪浅，有个问题请教你，在实现效果的同时，当鼠标在文本框或者单选框上移动时，label控件会出现闪烁现象，这种现象不能解决，麻烦告知解决方法
哪用那么复杂啊？还弄个文件，其实很简单的，我刚才上传了一个示例。http://download.csdn.net/detail/cn1613
本分类共有文章11篇,更多信息详见
& 2012 - 2016 &
&All Rights Reserved. &
/*爱悠闲图+*/
var cpro_id = "u1888441";}