VB程序实现xp风格

软件简介：
大家好,我是小鸟
大家在使用VB6.0在XP操作系统下生成的程序的一些按钮控件样式还是VB自身的老土样式，为什么在漂亮的XP系统下无法生成和他一样漂亮的界面呢？这需要一个manifest文件，熟悉这个文件格式的朋友可以手动生成这个文件，但不熟悉的怎么办呢？
3 w6 G! T; ~/ C  p8 P9 w! d3 L今天在浏览黑鹰网站时看到了一片文章
9 U# }) ^& m4 ?1 n. T
5 t0 y0 |5 V2 X$ ^9 F$ nVB编程实现Windows XP风格的界面

http://www.3800hk.com/Article/cxsj/vb/jcjcvb/2007-04-02/Article_125990.html
这是文章的地址
9 B4 ~. U/ J9 \我试了一下他所讲的方法并不成功
所以在网上搜了一下相关资料,发现文章提供的代码出了点错误
+ q4 I2 Q: u) Q* ~" b7 E6 H% W* X8 I　＜?xml version=1.0 encoding=UTF-8 standalone=yes?＞
＜assembly xmlns=urn:schemas-microsoft-com:asm.v1 manifestVersion=1.0＞
- M0 K0 [9 y8 R+ }5 P& H# o$ q＜assemblyIdentity
version=1.0.0.0
$ \/ D( S+ F" n0 iprocessorArchitecture=X86
name=CompanyName.ProductName.YourApp
type=win32
/＞
＜description＞Your application description here.＜/description＞
& r5 i  x6 u# x, u% C6 \2 S5 l＜dependency＞
＜dependentAssembly＞
＜assemblyIdentity
( q/ Y  V/ S: }+ \* p; t# c　type=win32
1 p& w) X, \7 M, Z3 c' v　name=Microsoft.Windows.Common-Controls
) _  m* l7 U+ D- c) g　version=6.0.0.0
" t0 H! m, v$ }" V: f　processorArchitecture=X86
/ p8 k( J( p+ e3 p　publicKeyToken=6595b64144ccf1df
　language=*
/＞
+ d( S; {: Y+ n＜/dependentAssembly＞
5 F: @3 U. ^9 y( ?% h0 E6 a) X' e＜/dependency＞
＜/assembly＞
以上就是出错的代码,应该改为
?xml version=1.0 encoding=UTF-8 standalone=yes?
+ A+ a8 }& P) y, }assembly xmlns=urn:schemas-microsoft-com:asm.v1 manifestVersion=1.0
$ D  M: W3 g0 W; A+ i- LassemblyIdentity name=WindowsShell processorArchitecture=x86 version=5.1.0.0 type=win32/
descriptionWindows Shell/description
dependency
/ C# Y$ h  ]3 F3 s( o* |2 \ dependentAssembly
4 j9 d3 H- @2 _4 Z1 q assemblyIdentity
) V; D1 W/ t9 _9 h( m1 X type=win32
name=Microsoft.Windows.Common-Controls
version=6.0.0.0
" p* W2 R; h; D2 h4 G processorArchitecture=x86
publicKeyToken=6595b64144ccf1df
) V- k8 x' ?- c) _+ f9 v language=*
, Y( {# `1 N, R/ z /
/dependentAssembly
/dependency
/assembly
5 z' d8 Z0 [/ _0 U, j) w6 p" Z好了,现在,我就来编写一个vb程序来实现这个方法
, I9 B( M, p3 U& s7 R' ~大家看我操作
. u1 K& |: T& N! }  J& |好了,界面设计好了,我们来写代码
7 |! p4 \8 E% C% Q* }. Y; C保存一下
程序设计好了
我们来试试这个程序的效果
现在就用这个程序来做实验
不过要在这里写上必要的代码
- ?) v! I5 T0 J. H* j7 G+ I不然就不能成功了
Private Declare Sub InitCommonControls Lib comctl32.dll ()
Private Sub Form_Initialize()
　InitCommonControls
$ Y$ i# m; d0 T- ZEnd Sub
- G% r4 t* s+ h3 W: _7 p! J! T$ E就是这个
如果程序是多窗口,可以把它声明在模块里
9 i3 U% e4 w7 \: `% }# H: Y. g# N先在把它添加进去
5 u4 Q0 c7 S" q0 u# l可以了
我们来试试
这是原来的程序界面
8 C+ g2 V# Q" k3 R# {看到了吧
前后效果查大了吧
7 C8 P9 j5 }; d$ x9 V% u教程就到这里吧
下载地址：

2008-8-18 13:36 上传 VB程序实现xp风格.rar

下载权限:

版本vip会员

本地下载 检测资源   提取码: 需要终身vip或更高权限

有些游戏资源需要vip下载开通请点击开通vip