×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 3759|回复: 25

[vb,vc,delphi] VB程序实现WindowsXP效果的界面

[复制链接]
发表于 2007-9-29 11:02:33 | 显示全部楼层 |阅读模式
虽然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的文件的内容如下:


<?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="CompanyName.ProductName.YourApp"

type="win32"

/>


<description>Your application description here.</description>

<dependency>

<dependentAssembly>

<assemblyIdentity

type="win32"

name="Microsoft.Windows.Common-Controls"

version="6.0.0.0"


processorArchitecture="X86"

publicKeyToken="6595b64144ccf1df"

language="*"

/>

</dependentAssembly>

</dependency>

</assembly>

  将以上内容保存为WindowXPStyle.exe.manifest。并且和执行文件放在一个目录下(一定要记住)。

  到此为止,我们的程序已经完成,不过在VB的设计环境下运行是看不到XP效果的。必须编译成可执行文件运行才可以。(因为这个我试了不知多少遍,以为VB程序就是实现不了XP效果呢~~,没想到必须编译成执行文件才可以)。

常见问题和注意事项

  由于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风格。
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=120113
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2008-6-3 15:11:58 | 显示全部楼层

酷素材
顶一下
回复 支持 反对

使用道具 举报

发表于 2008-6-14 15:47:46 | 显示全部楼层
jc:look jc:look jc:look jc:look
回复 支持 反对

使用道具 举报

发表于 2008-6-18 14:30:34 | 显示全部楼层
jc:look 看看
回复 支持 反对

使用道具 举报

发表于 2008-7-10 02:55:44 | 显示全部楼层
酷素材
雖然看起來不是很懂~但是還是支持一下!
回复 支持 反对

使用道具 举报

发表于 2008-8-26 21:03:19 | 显示全部楼层
酷素材
非常经典的方法
回复 支持 反对

使用道具 举报

发表于 2017-10-7 12:31:42 | 显示全部楼层
很不错。。。
回复 支持 反对

使用道具 举报

发表于 2017-10-7 12:09:39 | 显示全部楼层
好帖就是要顶
回复 支持 反对

使用道具 举报

发表于 2017-10-7 11:57:18 | 显示全部楼层
说的非常好
回复 支持 反对

使用道具 举报

发表于 2017-10-7 12:19:03 | 显示全部楼层
好帖子要收藏
回复 支持 反对

使用道具 举报

发表于 2017-10-7 11:50:31 | 显示全部楼层
教程网我挺你
回复 支持 反对

使用道具 举报

发表于 2018-4-17 12:46:20 | 显示全部楼层
楼主是超人
回复 支持 反对

使用道具 举报

发表于 2018-4-17 12:32:34 | 显示全部楼层
很好哦。。。
回复 支持 反对

使用道具 举报

发表于 2018-4-17 12:50:35 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

发表于 2018-4-17 13:12:49 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345