我們編寫程序或?qū)懢W(wǎng)頁時(shí)經(jīng)常需要得知某種顏色的RGB值或16位進(jìn)制值（例如:RGB(255,0,0)為紅色，相應(yīng)的16位進(jìn)制值應(yīng)該是#ff0000）。這時(shí)，你是否會(huì)為這么一件小事兒而去打開龐大的Photoshop或 Dreamweaver？其實(shí)根本沒有這個(gè)必要，只要自己動(dòng)動(dòng)手，一個(gè)強(qiáng)大的調(diào)色盤就會(huì)出現(xiàn)在我們眼前！不信？下面我要為大家介紹的就是一個(gè)具有全屏取色功能的調(diào)色盤——魔法調(diào)色盤（如圖1）。用鼠標(biāo)點(diǎn)中吸管不要松開，然后移到屏幕的任意地方，該處的顏色將在調(diào)色盤中即時(shí)顯示，而且還能夠給出顏色的十六進(jìn)制值，很有意思吧？

　　現(xiàn)在讓我們先設(shè)計(jì)程序界面。啟動(dòng)VB6.0并新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。首先修改窗體的Name屬性為“frmColor”。接著添加一個(gè)較大的圖形框Picture1作為顏色顯示器，和一個(gè)較小的圖形框Picture2作為顏色拾取工具，注意Picture2的Icon屬性和Picture1屬性為同一個(gè)圖標(biāo)，圖標(biāo)任意。添加一個(gè)文本框，設(shè)置其Name屬性為txtHex，用來顯示相應(yīng)顏色的16 位進(jìn)制值。添加三個(gè)標(biāo)簽，Name屬性分別為lblRed、lblGreen、lblBlue，以及相應(yīng)的三個(gè)水平滾動(dòng)條，Name屬性分別為hslRed、hslGreen、hslBlue。最后設(shè)計(jì)好的窗體如圖2所示。

　　好了，現(xiàn)在我們開始編寫代碼。打開代碼編輯器，輸入以下代碼:


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 Const HWND_TOPMOST = -1

Private Const SWP_NOSIZE = &H1

Private Sub Form_Load()

'設(shè)置窗口在最上層

SetWindowPos frmColor.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE

'設(shè)置滾動(dòng)條的范圍(0-255)

hslRed.Max = 255: hslGreen.Max = 255: hslBlue.Max = 255

hslRed.LargeChange = 10: hslGreen.LargeChange = 10: hslBlue.LargeChange = 10


End Sub
滾動(dòng)條箭頭變化
Private Sub hslBlue_Change()

text_Change

ColorChange_hsl

End Sub