您的当前位置:我要购书网>在线阅读>Visual Basic

vb程序实现windowsxp效果的界面!!

来源:互联网  作者:  发布:我要购物网收集整理  发布时间:2006-8-31 人气:325

虽然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的文件的内容如下: Your application description here.  将以上内容保存为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打造超酷个性化菜单(五)
· vb实现sql server数据库备份/恢复
· vb程序实现windowsxp效果的界面!!
· vb中使用excel输出
· vb自动登陆网络站点详解(四):在webbrowser中..
· vb自动登陆网络站点详解(三):internet exp..
· vb自动登陆网络站点详解(二):inet控件与webbr..
· vb打造超酷个性化菜单(六)
· vb打造超酷个性化菜单(一)
· vb与vc通信初探(一)
热点文章
%>
· creating user controls
· 提高fastreplace速度 (fstrrep.pas)
· asc ii 完整码表及简介
· 自动生成拼音(汉字反查到拼音)
· sql2000无法安装的解决办法
· 浏览器集成教学 自定义浏览器
· vc++技术内幕(第四版)笔记(第7章)
· mysql5.0中文乱码解决方案
· sql server日期计算
· vc下利用ado连接access数据库
 淘宝旺旺:我要购书网上书店『图书目录
本购书中心地址: 杭州市延安路111号清波商厦南楼D座(总部) 上海市闸北区老沪太路网上购书中心(沪部),  邮编:310002
电子邮件:books@51goushu.com  经营许可证编号:沪ICP备06038574号
版权所有 2003-2008 © All Rights Reserved .购书网