vb 实现漂亮的XP界面 :: vb在线
来源: BlogBus 原始链接: http://www.blogbus.com:80/blogbus/blog/diary.php?diaryid=541685 存档链接: https://web.archive.org/web/20050119010217id_/http://www.blogbus.com:80/blogbus/blog/diary.php?diaryid=541685
vb在线 vb在线 <<<游戏外挂制作 VB | 首页 | 用VB写歌词搜索程序>>> vb 实现漂亮的XP界面 时间: 2004-12-14 虽然 WindowsXP的 界面 非常华丽。 但是令人遗憾 的是， 我们 用 VB 写的程 序除 了菜 单和窗口 的外 观是XP 风格外，其他 控件 还是一如既往的是普通风格。我想，有的程序在XP下有XP的风格， VB 也一定有办法实现XP的风格。后 来笔者 在网上看到一 篇介绍XML 的 文章 ，又在 网上 找到了 一篇 实现XP 风格的 文章，经过 自己的实践 ，终于找到了 VB 程序实现 XP风格的办 法。为了 使其他 的网 友不至 于走 像我这样 的 多的 弯路， 将此办 法写 出来 ，与大 家共同提高 ！！ 具体 的 实现 方 法如下 ： ①： 在你 的 窗体 加入 代码 。如果是多个 窗口 ，可 以将 此 代码 放 到模块 中。 代码如下： ' 声明API函数 Private Declare Sub InitCommonControls Lib " comctl32.dll " () Private Sub Form_Initialize () InitCommonControls End Sub 注意 ： 千万不要在Form_load () 事件下写 I nitCommonControls 这句 话 ， 否则你 的 窗体 会 启动 不了。（ 不要怪我没告诉你啊
②：
建立
一
个和你的
.exe
同名的
.exe.
manife
st
文件
（
假如
：
如果你最
后编
译好
的
文件名为
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>
<
assemb
lyIdentity
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效果
呢~~，
没想到必须
编译
成执行
文件才
可以
）。
运行效
果如下
图所示：
相信
大家
也看到
了不
足
之处，
就是放
在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函数
都
可以
直接使用，
不用
事先
声明
。相对来
说更
简单！
vbzxnet
发表于
2004-12-14 11:37
引用(Trackback0)
|
编辑
评论
发表评论
最后更新
用VB写歌词搜索程序
vb 实现漂亮的XP界面
游戏外挂制作 VB