VB取各顏色分量,將RGB轉爲HTML顏色.

 

1. '//取各顏色分量
2. Public Function GetRedValue(COLOR As Long) As Integer '取得紅色值
3.        GetRedValue = COLOR And 
4. End Function
6. Public Function GetGreenValue(COLOR As Long) As Integer '取得綠色值
7.        GetGreenValue = (COLOR And 65280) / 256
8. End Function
10. Public Function GetBlueValue(COLOR As Long) As Integer '取得藍色值
11.         GetBlueValue = (COLOR And &HFF0000) / 65536
12. End Function
14. '//將RGB轉化爲HTML顏色.
15. Public Function GetHexColor(Red As Integer, Green As Integer, Blue As Integer) As String 
16. '將RGB顏色轉換爲HTML顏色
17.   Dim StrRed As String, StrGreen As String, StrBlue As String
18.   StrRed = Hex(Red)
19.   StrGreen = Hex(Green)
20.   StrBlue = Hex(Blue)
21.   If Red <= 16 Then StrRed = "0" & StrRed
22.   If Green <= 16 Then StrGreen = "0" & StrGreen
23.   If Blue <= 16 Then StrBlue = "0" & StrBlue
24.   GetHexColor = StrRed & StrGreen & StrBlue
25. End Function