首先申明：以下純屬個(gè)人觀點(diǎn)！

　　近來(lái)ＶＢ版中有一部分人問(wèn)關(guān)于界面的美化問(wèn)題．其實(shí)作為一個(gè)菜鳥．我也無(wú)法提供很專業(yè)的代碼給大家．想必大家對(duì)如下代碼應(yīng)該很熟悉吧！

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Private Sub Form_Load()
Me.BackColor = &HFF0000
Dim rtn As Long
BorderStyler = 0
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, 2, 0

End Sub

這是美化窗體的時(shí)候很好的辦法，比用編程語(yǔ)句描述一個(gè)特殊形狀的窗體要簡(jiǎn)單的多，只要選自己合意的圖片即可！

我們都知道象ＰＩＣＴＵＲＥＢＯＸ，ＣＯＭＢＯＸ，菜單，等等其實(shí)都是窗體．由此可以推出我們可以用替換法將其替換．當(dāng)然這是我的設(shè)想了；畢竟我不是高手．

舉個(gè)例子：

我想做一個(gè)圖形化的按紐．那么我們可以用ＩＭＡＧＥ來(lái)摸擬.用ＩＭＡＧＥＬＩＳＴ放三張圖片用來(lái)表示ＭＯＵＳＥ＿ＯＮ，ＭＯＵＳＥ＿ＤＯＷＮ，ＭＯＵＳＥ＿ＵＰ．當(dāng)然如果你要求高一點(diǎn)可以用ＡＰＩ來(lái)彌補(bǔ)其中的不足，使之更完善．

當(dāng)然象ＣＨＥＣＫＢＯＸ，ＯＰＴＩＯＮＳ用ＩＭＡＧＥ來(lái)模擬都足足有余．-------------

只要設(shè)一個(gè)全局變量為ＢＯＯＬＥＡＮ就行了．它們只要兩張圖片就夠了．自己畫還是引用　就隨你便了．

好了例子也舉完了．總結(jié)一下：

我想說(shuō)的就是其實(shí)做界面并不是技術(shù)高才能做的．轉(zhuǎn)個(gè)圈其實(shí)用一些簡(jiǎn)單的方法也可以解決的．

只要大家敢想什么都會(huì)變成現(xiàn)實(shí)！

希望我也能拋磚引玉啊，當(dāng)然前提是老大們能用啊^_^.