vb6下的xp界面效果开发

源代码在线查看: xp效果界面制作.txt

软件大小: 3 K
上传用户: xfzzp_0321
关键词: vb6
下载地址: 免注册下载 普通下载 VIP

相关代码

				  虽然WindowsXP的界面非常华丽。但是令人遗憾的是,我们用VB写的程序除了菜单和窗口的外观是XP风格外,其他控件还是一如既往的是普通风格。我想,有的程序在XP下有XP的风格,VB也一定有办法实现XP的风格。后来笔者在网上看到一篇介绍XML的文章,又在网上找到了一篇实现XP风格的文章,经过自己的实践,终于找到了VB程序实现XP风格的办法。为了使其他的网友不至于走像我这样的多的弯路,将此办法写出来,与大家共同提高!! 
				                                                                    作者:崔占民
				Email:CuiZM@163.com
				    具体的实现方法如下:
				    ①:在你的窗体加入代码。如果是多个窗口,可以将此代码放到模块中。
				    代码如下:
				
				    '声明API函数
				    Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
				    Private Sub Form_Initialize()
				        InitCommonControls
				    End Sub
				
				    注意:千万不要在Form_load()事件下写InitCommonControls这句话,否则你的窗体会启动不了。(不要怪我没告诉你啊~~~~)
				    ②:建立一个和你的.exe同名的.exe.manifest文件(假如:如果你最后编译好的文件名为WindowXPStyle.exe,则建立一个文件名为WindowXPStyle.exe.manifest的文件),并且此文件必须存在于和你Exe文件的同一目录下。
				    以WindowXPStyle.exe为例,则这个WindowXPStyle.exe.manifest的文件的内容如下:
				
				
								version="1.0.0.0"
				processorArchitecture="X86"
				name="CompanyName.ProductName.YourApp"
				type="win32"
				/>
				Your application description here.
				
				
								type="win32"
				name="Microsoft.Windows.Common-Controls"
				version="6.0.0.0"
				processorArchitecture="X86"
				publicKeyToken="6595b64144ccf1df"
				language="*"
				/>
				
				
				
				
				   将以上内容保存为WindowXPStyle.exe.manifest。并且和执行文件放在一个目录下(一定要记住)。
				    到此为止,我们的程序已经完成,不过在VB的设计环境下运行是看不到XP效果的。必须编译成可执行文件运行才可以。(因为这个我试了不知多少遍,以为VB程序就是实现不了XP效果呢~~,没想到必须编译成执行文件才可以)。
				    运行效果如下图所示: 
				     相信大家也看到了不足之处,就是放在FRAME控件中的单远按钮有些“麻烦”!为了解决此问题,可以将单选按钮放在PICTURE控件中(以PICTURE控件作为容器),再将PICTURE控件放在FRAME控件中,就可以了。 
				常见问题和注意事项
				   由于VB6自身的原因,Windows XP再一次给我们留了一些难题:
				    一、工具栏问题:工具栏控件一定要用Microsoft Windows Common Controls 5.0,而不要用Microsoft Windows Common Controls 6.0。因为此InitCommonControls API函数是位于comctl32.dll(Microsoft Windows Common Controls 5.0控件的动态链接库中)。
				    二、图形风格按钮的问题:很遗憾,我们不能再使用Graphical风格的命令按钮(即Style=1的命令按钮控件)了。因为一旦将命令按钮的Style属性设为1,那么它将失去Windows XP风格。
				    只要注意以上几点,并采取相应的措施,VB编写的程序在Windows XP中看上去还是很华丽的!如下图所示:
				    注:其它语言写的程序也是一样,实现起来不会有VB这么多的问题。如DELPHI、VC等,连API函数都可以直接使用,不用事先声明。相对来说更简单!
				
				
				
				
				
				'---------------------------------------------------------------------------------------
				  在看完《VB程序实现WindowsXP效果的界面》一文后,感觉非常好,用VB也能做出XP风格的界面。
				    但是有一个可能让大家都觉得不太舒服或者说很累赘的地方。就是在《VB程序实现WindowsXP效果的界面》一文的具体实现方法的第2点里,说“建立一个和你的.exe同名的.exe.manifest文件(假如:如果你最后编译好的文件名为WindowXPStyle.exe,则建立一个文件名为WindowXPStyle.exe.manifest的文件),并且此文件必须存在于和你Exe文件的同一目录下。”大家是否觉得这样做有些奇怪呢,难道用VB实现XP风格的界面就这样麻烦吗?别的程序也没见过还带着什么.manifest文件啊?
				    是的,采用.manifest文件确实能达到效果,但也给发布程序带来了不便,因为总要在安装包中带上这个文件。其实,不用.manifest文件也能使VB编写的程序具体XP风格的界面。
				    具体做法就是把.manifest写成资源文件(大致内容并没有变,只是加上了资源文件头),并和程序一起编译,这样就相当于把.manifest文件和编译后的.exe文件合到了一起,在发布程序时就不用再带着.manifest文件了。
				    
				    这个资源文件我这里有,但由于没有FTP,也没有合适的地方。所以如果谁想要的话请回复并注明邮箱地址,我会发给大家的。
				
				感谢IceMe提供空间:
				
				http://web.bbstx.com/~IceMe/upload/xpstyles.rar
							

相关资源