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，放在與可執行文件相同的目錄下(一定要記住)。

位律師廻複