網(wǎng)上討論編程實現(xiàn)XP風(fēng)ge已經(jīng)很久了，但對于VB編程實現(xiàn)XP風(fēng)ge，卻終沒有一個完美的解決方案。筆者通過N個日夜的刻苦鉆研終于揭開其中奧秘。下面分為三個方面與大家共享之。

點擊下載源代碼文件

一．用manifest文件實現(xiàn)XP風(fēng)ge

正常情況下，在Windows XP系統(tǒng)中，用VB6開發(fā)的應(yīng)用程序只有窗口標(biāo)題條具備XP風(fēng)ge，窗體上的按鈕、文本框等控件仍然顯示W(wǎng)indows傳統(tǒng)風(fēng)ge。如圖1所示：



通過查閱MSDN里的Visual Style章節(jié)知道，Windows XP通過Comctl32.dll（版本6）來加載具備XP風(fēng)ge的組件，應(yīng)用程序則通過一個XML資源文件來通知系統(tǒng)來做這些。XML文件的內(nèi)容如下：

＜?xml version="1.0" encoding="UTF-8" standalone="yes"?＞　
　　＜assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"＞　
　　＜assemblyIdentity　
　　 name="XP style manifest"　　
　　 processorArchitecture="x86"　
　　 version="1.0.0.0"　
　　 type="win32"/＞　　
　　＜dependency＞　　
　　 ＜dependentAssembly＞　　
　　 ＜assemblyIdentity　
　　 type="win32"　　
　　 name="Microsoft.Windows.Common-Controls"　　
　　 version="6.0.0.0"　　
　　 processorArchitecture="x86"　　
　　 publicKeyToken="6595b64144ccf1df"　　
　　 language="*"　　
　　 /＞　　
　　 ＜/dependentAssembly＞　　
　　＜/dependency＞　　
　　＜/assembly＞

假設(shè)你最終編譯的程序名是abc.exe，工作目錄是d:/vbxp。復(fù)制上述XML內(nèi)容并保存為文本文件。然后將該文件改名為abc.exe.manifest（注意.txt擴(kuò)展名要去掉）。在VB程序中，我們要在所有窗體加載之前調(diào)用InitCommonControlsEx函數(shù)從comctl32.dll（版本6）中對組件類進(jìn)行初始化。API函數(shù)InitCommonControlsEx及相關(guān)常數(shù)、數(shù)據(jù)類型的聲明如下：

Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
　　　　(iccex As tagInitCommonControlsEx) As Boolean
Private Type tagInitCommonControlsEx
　　　　lngSize As Long
　　　　lngICC As Long
End Type
Private Const ICC_USEREX_CLASSES = &H200
　　這里我們編寫一個函數(shù)封裝初始化操作：
Public Function InitCommonControlsVB() As Boolean
　　　　On Error Resume Next
　　　　Dim iccex As tagInitCommonControlsEx
　　　　With iccex
　　　　　 .lngSize = LenB(iccex)
　　　　　 .lngICC = ICC_USEREX_CLASSES
　　　　End With
　　　　InitCommonControlsEx iccex
　　　　InitCommonControlsVB = (Err.Number = 0)
　　　　On Error Goto 0
End Function
注意初始化動作必須在所有窗體加載前完成，所以要把相關(guān)語句放到Sub Main()中，并設(shè)置工程從Sub Main()啟動。代碼如下：

Sub Main()

　　 InitCommonControlsVB

　　 Form1.Show

End Sub

至此，你編譯后的abc.exe將具備XP風(fēng)ge，如圖2所示：