VB程序实现XP效果的界面
2006-02-27 11:50:51 来源:WEB开发网①:在你的窗体加入代码。如果是多个窗口,可以将此代码放到模块中。
代码如下:
'声明API函数
PRivateDeclareSubInitCommonControlsLib"comctl32.dll"()
PrivateSubForm_Initialize()
InitCommonControls
EndSub
注意:千万不要在Form_load()事件下写InitCommonControls这句话,否则你的窗体会启动不了。(不要怪我没告诉你啊~~~~)
②:建立一个和你的.exe同名的.exe.manifest文件(假如:如果你最后编译好的文件名为WindowXPStyle.exe,则建立一个文件名为WindowXPStyle.exe.manifest的文件),并且此文件必须存在于和你Exe文件的同一目录下。
以WindowXPStyle.exe为例,则这个WindowXPStyle.exe.manifest的文件的内容如下:
version="1.0.0.0"
processorArchitecture="X86"
name="CompanyName.ProductName.YourApp"
type="win32"
/>
Yourapplicationdescriptionhere.
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
将以上内容保存为WindowXPStyle.exe.manifest。并且和执行文件放在一个目录下(一定要记住)。
->更多精彩
赞助商链接