VB程式實現WindowsXP效果的介面

2021-04-17 08:57:51 字數 1946 閱讀 1367

雖然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"

/>

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效果的介面

具體的實現方法如下 在你的窗體加入 如果是多個視窗,可以將此 放到模組中。如下 宣告api函式 private declare sub init moncontrols lib ctl32.dll private sub form initialize init moncontrols end su...

VB程式實現WindowsXP效果的介面

在看完 vb程式實現windowsxp效果的介面 一文後,感覺非常好,用vb也能做出xp風格的介面。但是有乙個可能讓大家都覺得不太舒服或者說很累贅的地方。就是在 vb程式實現windowsxp效果的介面 一文的具體實現方法的第2點裡,說 建立乙個和你的.exe同名的.exe.manifest檔案 假...

vb 打包程式

visual basic 安裝程式製作 安裝程式製作是做專案必不可少的一道工序,網上的安裝軟體很多,可以用五花八門來開形容了 在此筆者介紹乙個最簡單的安裝方法,就是用 自帶的打包程式進行打包,雖然比較普通,不過內部卻有不少竅門,相信這一點知道的人可能不多吧!請大家一定看到最後,好戲在後頭 好了,不廢...