用VB編寫的程序怎樣美化?

很簡單啊，可以用photoshop先做好窗體背景圖片，然后使用自繪的各種控件組織起來就行了。當然還可以做成不規則形狀的窗體等等。總的來說，選擇和設置一個漂亮的窗體背景圖片，是美化的重點和前提。有時間學習一下photoshop吧，讓自己全面發展，只有自己才能讓自己的程序完美。偶就是這樣滴。

創新互聯自2013年創立以來，是專業互聯網技術服務公司，擁有項目成都做網站、成都網站建設、成都外貿網站建設網站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元亞東做網站,已為上家服務,為亞東各地企業和個人服務,聯系電話:18980820575

vb中如何美化界面？

去學 WPF Windows Presentation Foundation（WPF）是微軟新一代圖形系統，運行在.NET Framework 3.0架構下，為用戶界面、2D/3D 圖形、文檔和媒體提供了統一的描述和操作方法。基于DirectX 9/10技術的WPF不僅帶來了前所未有的3D界面，而且其圖形向量渲染引擎也大大改進了傳統的2D界面，比如Vista中的半透明效果的窗體等都得益于WPF。在Windows Vista中，圖形系統已經移出了內核模式，并有自己的空間－－WPF。WPF不再唯一依靠GDI圖形API，更多的依靠Direct3D處理圖形操作，盡量不用CPU進行顯示，而是用顯示卡的圖形處理單元（Graphics Processing Unit, GPU），用矢量圖代替位圖。

vb.net 控件美化

有個辦法就是用圖片直接當按鈕，鼠標移到圖上時顯示一個圖，鼠標移出圖片時顯示另一個圖，按下時顯示一個圖 把圖的Click事件當按鈕的Click來用，松開鼠標時顯示另一個圖，我以前試過，效果不錯，就是事件處理時比用按鈕麻煩點，要寫鼠標移入、移出、按下、松開的代碼

在vb.net 2003上美化界面

現在越來越多的軟件都有了很Cool的2D造型，什么×××× XP啦，×××× 2002之類的，看來爭奪軟件霸權的地位，2D界面是必不可少的，有很多人認為Visual Basic語言的先天不足導致它不能夠很靈活的改變界面，讓俺們來看看究竟吧。

如果大家用過《Windows優化大師》，肯定會被它的界面所傾倒，其實利用ActiveSkin 就可以辦到,甚至更爽,但是如果要做的共享軟件只是一個文件,在加上幾個OCX累贅,似乎很是不爽,看看VB是怎么利用別的東東來實現的吧。

首先新建一個EXE工程，再在窗體上拖幾個Label控件，看看Label 的強大功能吧，原理就是利用Label來模擬一個按鈕，但是首先要將Label控件的屬性要調一下，

Name： LblBtn，

BorderStyle: 1，

Appearance: 0，

Alignment: 2，

這樣一個按鈕的雛形就已經出來了，如果工程量很大，可以將多個Label控件的Name屬性設為一樣的，對于按鈕的識別就要靠識別Index屬性了，為了方便起見，在進入到代碼編輯窗口，輸入以下代碼：

Private Const LBL_BACK_COLOR ＝ HE0E0E0 ’正常時Label控件的背景色

Private Const LBL_WHEN_MOUSE_MOVE ＝ HC0C0C0 ’鼠標移動時Label的背景色

Private Const LBL_WHEN_MOUSE_DOWN ＝ H808080 ’鼠標按下時Label的背景色

再在Form的Load事件中輸入以下內容

Private Sub Form_Load（）

Dim Count As Integer

For Count ＝ 0 To 3 ’請將此出的3換成你的LblBtn數量的個數－1

LblBtn（Count）.BackColor＝LBL_BACK_COLOR ’初始化LblBtn的背景

Next Count

End Sub

然后再在LblBtn的MouseMove和MouseDown事件中來搞定剩余部分：

Private Sub LblBtn_MouseDown（Index As Integer， Button As Integer， Shift As Integer， X As Single， Y As Single） ’當鼠標按在LblBtn上時

LblBtn（Index）.BackColor ＝ LBL_WHEN_MOUSE_DOWN ’臨時改變LblBtn背景顏色

End Sub

Private Sub LblBtn_MouseMove（Index As Integer， Button As Integer， Shift As Integer， X As Single， Y As Single） ’鼠標在LblBtn上面移動時觸發該事件

Dim Count As Integer

DoEvents ’暫時將系統控制權教給系統

If Button Then Exit Sub ’如果按鈕被按下就退出該過程

For Count ＝ 0 To 3

If Count Index Then ’如果按下的不是其它按鈕

LblBtn（Index）.BackColor ＝ LBL_BACK_COLOR ’將背景設為正常

Else

LblBtn（Index）.BackColor ＝ LBL_WHEN_MOUSE_MOVE ’將背景設為鼠標移動的背景

End If

Next Count

End Sub

Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

Dim Count As Integer

DoEvents

For Count＝0 To 3

LblBtn（Count）.BackColor＝LBL_BACKCOLOR ’恢復背景

Next Count

End

本來利用Windows的消息系統來完成這一“艱巨”的任務最簡單，可問題就來了，Label控件沒有窗口句柄怎么辦？可是此問題與題無關，寫了會有騙稿費之：）

OK，Label控件就講到這里，在來說說TextBox控件，

各位看關恐怕看慣了白顏色的背景，那么就換換顏色以養養俺們那和綿羊一樣的眼睛（為什么說綿羊？俺也不知道），可是VB提供的RGB函數弄出來的顏色不是怎么好看，這里俺來教大家一個小Tip，RGB函數的Red，Green，Blue這三個參數若一樣，則產生的顏色是灰度，當然越接近白顏色越好，但也不能讓各位看不出來，俺建議TextBox的背景為RGB（235，235，235），各位還是實戰一下，將一個TextBox拖到窗體上，屬性設置如下

Appearance 0

BorderStyle 1

MutilLine True

千萬不要設置ScrollBars屬性，否則會影響效果

在Form的Load事件中初始化TextBox

Dim bkColor As Long

Private Sub Form_Load（）

bkColor＝RGB（235，235，235）

Text1.BackColor＝bkColor

End Sub

在Form和Text1的MouseMove事件中:

Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

Text1.BorderStyle ＝ 0

End Sub

Private Sub Text1_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

DoEvents

Text1.BorderStyle ＝ 1

End Sub

在按下F5試試是不是很Cool?

可能各位看關玩過石器時代，一定會對里面的TextBox的效果感到很爽，VB還不是可以做到，有焦點的控件可以使用SetFocus方法來為其設置焦點，可是一個窗體上如果控件太多了，一個一個的用SetFocus是不是太傻了?這一節的主角就是－－－－－－－－API函數，

首先聲明:

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" （lpPoint As POINTAPI） As Long

Private Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" （ByVal xPoint As Long， ByVal yPoint As Long） As Long

Private Declare Function SetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long

但是這里的SetFocus會和控件的SetFocus會搞混淆，改改吧，

Private Declare Function nSetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long

只要Alias指向的接口是對的前面的函數名稱簡直就是擺設，

在建立一個過程:

Public Function sSetFocus（） As Long

Dim CPos As POINTAPI，Successfull As Boolean，hWnd As Long

DoEvents

Successfull ＝GetCursorPos（CPos）

If Not Successfull Then Exit Sub ’如果未成功則退出該過程

hWnd＝WindowFromPoint（CPos.x，CPos.y）

sSetFocus=nSetFocus(hWnd)

End Sub

在窗體上放一個Timer控件，Interval 屬性設為100，就是0.1秒，在Timer1控件的Timer事件中填入sSetFocus，在運行一下看看，效果怎么樣?

可是有的先生小姐要問了，TextBox難道就不能用ScrollBar嗎?非也非也，選 工程－部件－Microsoft Windows Common Controls－2 6.0 （SP3）就是你的答案，至于卷動TextBox就去研究SendMessage函數吧，否則又有騙稿費之嫌，如果想作綠色軟件，不想用控件，可以用俺前面講到的Label控件，利用字體 Webdings 來模擬ScrollBar，需要注意的是，如果模擬ScrollBar，上下左右箭頭分別是5，6，3，4，別忘了把字體設為Webdings

再來講講窗體的美化，其實將BorderStyle屬性設為0就是很好的2D美化;）可是，這樣一來，問題又來了，怎么辦?凡事都要請API來幫忙，這里需要兩個API，一下是該API的聲明:

Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" （） As Long '這個API是用來解下鼠標的追蹤器，關于他的過多用法以及詳細介紹可以寫信向俺咨詢，

還有

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" （ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， lParam As Any） As Long’這個該不要俺多介紹了吧

Public Const HTCAPTION ＝ 2 ’代表窗體的標題區

Public Const WM_NCLBUTTONDOWN ＝ HA1 ’表示非工作區左鍵按下

原理很簡單，卸下鼠標追蹤器后向Form發送一個移動窗體的消息，其實做到這一點的方法很多，但俺個人認為這一種最簡單，添加一個過程:

Public Sub MoveForm（hWnd As Long）

DoEvents

ReleaseCapture

SendMessage hWnd， WM_NCLBUTTONDOWN， HTCAPTION， 0

End Sub

在Form的MouseMove事件中:

Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

If Button＝vbLeftButton Then MoveForm hWnd’如果按下鼠標左鍵就移動窗體

End Sub

臺下的這位小姐又納悶了，可是光禿禿的窗體沒有了標題欄也不好看，俺要向這為小姐推薦俺的東東－ActiveX控件，ToolSign，需要的人可以寫信給俺聯系，

該控件需要在代碼編輯區域內添加一下代碼:

’一下聲明是用在ToolSign的 AutoQuit屬性的

Public Const EXIT_FORCE ＝ 2 ’注意，在VB中運行的時候如果選用此退出方式，VB也會退出

Public Const EXIT_MESSAGE ＝ 1 ’由操作系統發送關閉消息

Public Const EXIT_CUSTOM ＝ Not （EXIT_FORCE Or EXIT_MESSAGE） ’自定義

將其注冊后在部件欄中把e－Dogkid Studio Tools Sign打鉤，添加到工具箱中，雙擊加入到窗體中，

在Form的Load事件中添加一下初始化代碼:

Private Sub Form_Load（）

With Sign1

.AutoQuit ＝ EXIT_CUSTOM

.ParentsHWND ＝ hWnd ’填了此屬性可以直接用ToolSign來移動窗體而不需要前面的代碼

End With

End Sub

Sign1的Click事件

Private Sub Sign1_Click（）

End ’關閉程序

End Sub

在Form的Resize事件中添加一下代碼:

Private Sub Form_Resize（）

Sign1.Width ＝ Width

End Sub

如果想讓窗體可以改變大小，可以修改一下屬性

Caption ""

BorderStyle 2或5

ControlBox False

實際情況如圖

不知道各位看關見過爆炸試的窗體沒有?，沒有見過可以從俺要另外一個俺自己的ActiveX DLL，我的那個東東其實是給我的Software作運行庫的，各位若不嫌棄，可以用用，注冊后在工程－引用－e－Dogkid Runtime Library

然后在窗體Load事件中輸入:

Private Sub Form_Load(）

Dim System As e_Dogkid_Runtime_Library.System

Set System ＝ New e_Dogkid_Runtime_Library.System

Show

System.BoomIt hDC， 60， Width， Height， Left， Top

Set System ＝ Nothing

End Sub