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