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

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

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


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()

'設置窗口在最上層

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

'設置滾動條的范圍(0-255)

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

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


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

text_Change

ColorChange_hsl

End Sub