VB程序实现xp风格

软件简介：
大家好,我是小鸟
( @: g' a( n* L7 V6 B7 M! _大家在使用VB6.0在XP操作系统下生成的程序的一些按钮控件样式还是VB自身的老土样式，为什么在漂亮的XP系统下无法生成和他一样漂亮的界面呢？这需要一个manifest文件，熟悉这个文件格式的朋友可以手动生成这个文件，但不熟悉的怎么办呢？
, O# I' M6 n9 m) W, f: M今天在浏览黑鹰网站时看到了一片文章

VB编程实现Windows XP风格的界面
6 g) @& ?* }; a2 h8 _4 Z
* N: w3 K2 z/ @. a3 x9 R( hhttp://www.3800hk.com/Article/cxsj/vb/jcjcvb/2007-04-02/Article_125990.html
9 h2 M5 R1 ^8 g8 l' z& k这是文章的地址
, J+ S1 y! W0 v+ V  f/ {5 Y! W我试了一下他所讲的方法并不成功
5 n/ }$ l  Z% e, s所以在网上搜了一下相关资料,发现文章提供的代码出了点错误
　＜?xml version=1.0 encoding=UTF-8 standalone=yes?＞
. m% _$ I7 q' E7 K8 x9 E＜assembly xmlns=urn:schemas-microsoft-com:asm.v1 manifestVersion=1.0＞
$ \6 R/ T5 h2 w3 c( ~1 v＜assemblyIdentity
' Q! w$ M0 u6 @0 }version=1.0.0.0
processorArchitecture=X86
name=CompanyName.ProductName.YourApp
' @3 T- Y7 G$ _. ^1 ltype=win32
# ?1 r5 l8 E5 q/＞
6 h/ ~5 S7 A. q0 e＜description＞Your application description here.＜/description＞
+ s# U3 n  D( D/ Z, `＜dependency＞
＜dependentAssembly＞
  T; o4 W+ s4 Y; H＜assemblyIdentity
; R# r0 [" m( m0 W7 h　type=win32
* p& ^! T) O6 M% n8 v　name=Microsoft.Windows.Common-Controls
2 X8 \, I2 [: u1 D, V* H　version=6.0.0.0
　processorArchitecture=X86
# s. r& i! R+ L' _* C　publicKeyToken=6595b64144ccf1df
$ I" n1 Y. n& q2 X　language=*
6 c8 Q2 F7 k; C" c6 O' j/＞
! ^8 S. ?( ?6 J2 [1 W＜/dependentAssembly＞
＜/dependency＞
＜/assembly＞
以上就是出错的代码,应该改为
' d9 g* b2 p0 t# M* f. k# P" a% P?xml version=1.0 encoding=UTF-8 standalone=yes?
9 a: K" [  z/ `assembly xmlns=urn:schemas-microsoft-com:asm.v1 manifestVersion=1.0
assemblyIdentity name=WindowsShell processorArchitecture=x86 version=5.1.0.0 type=win32/
/ d$ f6 _6 ]1 \* m+ y+ L3 CdescriptionWindows Shell/description
5 h6 u8 V1 N6 J" W8 D3 s' idependency
dependentAssembly
assemblyIdentity
/ v% w6 U4 ?; r0 x; U$ ~ type=win32
name=Microsoft.Windows.Common-Controls
. p3 L( |8 f! L2 Y7 a version=6.0.0.0
9 K; m3 f% p2 ~5 Z- e! q processorArchitecture=x86
publicKeyToken=6595b64144ccf1df
( N8 K2 f3 A; C language=*
/
* J0 a: A' z( p* @' a& ?3 d! e /dependentAssembly
/dependency
' @& l# z) v: W- ^, x0 c0 Y2 {1 P: f/assembly
好了,现在,我就来编写一个vb程序来实现这个方法
大家看我操作
( p, s$ }- {0 q: D4 B4 A, O% n好了,界面设计好了,我们来写代码
" }% [9 ]: H: n5 U保存一下
程序设计好了
" G$ v& a+ u5 K, V3 l6 `) j6 N7 D* |我们来试试这个程序的效果
( o/ L, [8 p7 w  _0 x: t  Z! V现在就用这个程序来做实验
不过要在这里写上必要的代码
不然就不能成功了
- a: `  [7 b' J+ U3 d" p, \Private Declare Sub InitCommonControls Lib comctl32.dll ()
: a6 W; d8 h. Q  U+ nPrivate Sub Form_Initialize()
" k3 f- H% R9 y' w( B　InitCommonControls
( X! K3 y' a; a  S3 s0 N/ K: yEnd Sub
就是这个
3 q0 ]  S( _: |, q% k如果程序是多窗口,可以把它声明在模块里
3 u; A+ [% K( a3 o6 v7 T先在把它添加进去
可以了
! v8 R: h! Q5 `6 f% p/ ]我们来试试
0 }- n) R7 z; N) |/ P* u这是原来的程序界面
看到了吧
, |1 K; h  N- k8 w% f5 e前后效果查大了吧
教程就到这里吧
下载地址：

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

文件大小:

未知

下载次数:

0

下载权限:

版本vip会员

VIP专享 检测资源

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

VIP专享,点击开通vip

确认