VB如何生成WINDOW XP風格介面!

2021-05-21 11:50:51 字數 3032 閱讀 4583

雖然

windowsxp的介面

非常華麗。但是令人遺憾

的是,我們

用vb寫的程式除

了選單和視窗

的外觀是xp

風格外,其他控制項

還是一如既往的是普通風格。我想,有的程式在xp下有xp的風格,vb

也一定有辦法實現xp的風格。後來筆者

在網上看到一篇介紹xml

的文章,又在網上

找到了一篇

實現xp風格的

文章,經過自己的實踐

,終於找到了vb

程式實現xp風格的辦

法。為了使其他

的網友不至

於走像我這樣

的多的彎路,將此辦

法寫出來

,與大家共同提高

!! 具體

的 實現

方 法如下:①:

在你的窗體加入

**。如果是多個

視窗,可

以將此**放

到模組中。**如下:

' 宣告api函式

private

declare sub

initcommoncontrols lib

" comctl32.dll

" ()

private

subform_initialize

()initcommoncontrols

end sub注意:

千萬不要在form_load

() 事件下寫

i nitcommoncontrols

這句 話

, 否則你

的 窗體

會 啟動不了。(

不要怪我沒告訴你啊~~~~)

②: 建立

一 個和你的

.exe

同名的.exe.

manife

st 檔案

( 假如

: 如果你最

後編 譯好

的 檔名為

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"

/>

<

assemb

lyidentity

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函式

都 可以

直接使用,

不用事先

宣告。相對來

說更簡單!

如何利用 VB6 Addin 動態生成選單

使用 addin 程式可以加快我們的開發速度 以下幾個例子,是我個人在平常工作中常用到 1.統一改變窗體的控制項字型及字型大小 set objcom vbinstance.selectedvbcomponent if objcom.type vbext ct vbform and objcom.ty...

在VB中製作VC中具有PUSHLIKE風格的核取方塊

code by 魑魅魍魎 mailto demonstudio hotmail.private declare function setwindowlong lib user32 alias setwindowlonga byval hwnd as long,byval nindex as long...

VB的程式如何破解

vb的程式,不會告訴你這個vb寫的,但是從介面來看就很像vb,一般是單檔案的exe,然後軟體還比較小 早期的傻瓜式軟體寫的東西 比如說我們想要知道這個 手動採集 按鈕幹了什麼 我們用vb decompiler開啟這個exe,然後從forms裡面找到視窗控制項 類似於c 的窗體檔案,c 的對話方塊檔案...