VB程式實現WindowsXP效果的介面

雖然windowsxp

的介面非常華麗。但是令人遺憾的是，我們用vb

寫的程式除了選單和視窗的外觀是xp風格外，其他控制項還是一如既往的是普通風格。我想，有的程式在xp下有xp的風格，vb

也一定有辦法實現xp的風格。後來筆者在網上看到一篇介紹xml的文章，又在網上找到了一篇實現xp風格的文章，經過自己的實踐，終於找到了vb

程式實現

email：[email protected]

具體的實現方法如下：

①：在你的窗體加入**。如果是多個視窗，可以將此**放到模組中。

**如下：

'宣告api函式

private declare sub initcommoncontrols lib "comctl32.dll" ()

private sub form_initialize()

initcommoncontrols

end sub

注意：千萬不要在form_load()事件下寫initcommoncontrols這句話，否則你的窗體會啟動不了。（不要怪我沒告訴你啊~~~~）

②：建立乙個和你的.exe同名的.exe.manifest檔案（假如：如果你最後編譯好的檔名為windowxpstyle.exe，則建立乙個檔名為windowxpstyle.exe.manifest的檔案），並且此檔案必須存在於和你exe檔案的同一目錄下。

以windowxpstyle.exe為例，則這個windowxpstyle.exe.manifest的檔案的內容如下：

<?xml version="1.0" encoding="utf-8" standalone="yes"?>

version="1.0.0.0"

processorarchitecture="x86"

type="win32"

name="microsoft.windows.common-controls"

version="6.0.0.0"

processorarchitecture="x86"

publickeytoken="6595b64144ccf1df"

language="*"

將以上內容儲存為windowxpstyle.exe.manifest。並且和執行檔案放在乙個目錄下（一定要記住）。

到此為止，我們的程式已經完成，不過在vb

的設計環境下執行是看不到xp效果的。必須編譯成可執行檔案執行才可以。（因為這個我試了不知多少遍，以為vb

程式就是實現不了xp效果呢~~，沒想到必須編譯成執行檔案才可以）。

執行效果如下圖所示：

相信大家也看到了不足之處，就是放在frame控制項中的單遠按鈕有些「麻煩」！為了解決此問題，可以將單選按鈕放在picture控制項中（以picture控制項作為容器），再將picture控制項放在frame控制項中，就可以了。　

常見問題和注意事項

由於vb6自身的原因，windows xp再一次給我們留了一些難題：

一、工具欄問題：工具欄控制項一定要用microsoft windows common controls 5.0，而不要用microsoft windows common controls 6.0。因為此initcommoncontrols api函式是位於comctl32.dll（microsoft windows common controls 5.0控制項的動態鏈結庫中）。

二、圖形風格按鈕的問題：很遺憾，我們不能再使用graphical風格的命令按鈕（即style=1的命令按鈕控制項）了。因為一旦將命令按鈕的style屬性設為1，那麼它將失去windows xp風格。

只要注意以上幾點，並採取相應的措施，vb

編寫的程式在windows xp中看上去還是很華麗的！如下圖所示：

注：其它語言寫的程式也是一樣，實現起來不會有vb

這麼多的問題。如delphi、vc等，連api函式都可以直接使用，不用事先宣告。相對來說更簡單！

VB程式實現WindowsXP效果的介面

VB程式實現WindowsXP效果的介面

VB程式實現WindowsXP效果的介面

vb 打包程式

相關推薦