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