VB程序实现XP效果的界面

具体实现方法如下:

①:在表单中添加代码。如果有多个窗口，可以将这段代码放在模块中。

代码如下:

声明API函数

private Declare Sub InitCommonControls Lib " comctl 32 . dll "()

私有子窗体_Initialize()

InitCommonControls

末端接头

注意:千万不要在Form_load()事件下写InitCommonControls这个句子，否则你的窗体不会启动。(别怪我没告诉你~ ~ ~)

②:创建一个。Exe.manifest文件，该文件与。exe(如果:如果你上一次编译的文件名是WindowXPStyle.exe，创建一个名为WindowXPStyle.exe.manifest的文件)，这个文件必须和你的exe文件存在同一个目录下。

例如，在WindowXPStyle.exe，此windows XP style . exe . manifest文件的内容如下:

版本="1.0.0.0 "

处理器架构="X86 "

name="CompanyName。ProductName.YourApp "

type="win32 "

/>

您的应用程序描述在这里。

type="win32 "

name= "微软。Windows .公共控件"

版本="6.0.0.0 "

处理器架构="X86 "

public key token = " 6595 b 64144 CCF 1 df "

语言="* "

/>

将以上内容保存为windows XP style . exe . manifest，放在与可执行文件相同的目录下(一定要记住)。