• Home
 · 
• VB function enhancement
 · 
• Convert Color

Convert Color

Convert color codes
RGB to VB
RGB to HTML
VB to RGB
VB to HTML
HTML to RGB
HTML to VB

Inputs
colConvertType: type of convertion strColor: string containing color value. if rgb then spesify r,g,b as 3 values

Returns
string containing new color value. If RGB then returns 1 string delimited by ","

Rate Convert Color

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Public Enum colConvertType
  colRGBtoVB = 0
  colRGBtoHTML = 1
  colVBtoRGB = 2
  colVBtoHTML = 3
  colHTMLtoRGB = 4
  colHTMLtoVB = 5
End Enum
Function convertColor(convert As colConvertType, ParamArray strColor()) As String
  Select Case convert
  
    Case colRGBtoHTML
      convertColor = Left("00" & Hex(strColor(0)), 2)
      convertColor = Left("00" & convertColor & Hex(strColor(1)), 2)
      convertColor = Left("00" & convertColor & Hex(strColor(2)), 2)
      
    Case colRGBtoVB
      convertColor = RGB(strColor(0), strColor(1), strColor(2))
      
    Case colVBtoRGB
      convertColor = Right("000000" & Hex(strColor(0)), 6)
      r = CByte("&h" & Mid(convertColor, 5, 2))
      g = CByte("&h" & Mid(convertColor, 3, 2))
      b = CByte("&h" & Mid(convertColor, 1, 2))
      convertColor = r & "," & g & "," & b
      
    Case colVBtoHTML
      convertColor = Right("000000" & Hex(strColor(0)), 6)
      r = Mid(convertColor, 5, 2)
      g = Mid(convertColor, 3, 2)
      b = Mid(convertColor, 1, 2)
      convertColor = r & g & b
    
    Case colHTMLtoRGB
      convertColor = Right("000000" & Hex(strColor(0)), 6)
      r = CByte("&h" & Mid(convertColor, 1, 2))
      g = CByte("&h" & Mid(convertColor, 3, 2))
      b = CByte("&h" & Mid(convertColor, 5, 2))
      convertColor = r & "," & g & "," & b
    
    Case colHTMLtoVB
      convertColor = Right("000000" & Hex(strColor(0)), 6)
      r = CByte("&h" & Mid(convertColor, 1, 2))
      g = CByte("&h" & Mid(convertColor, 3, 2))
      b = CByte("&h" & Mid(convertColor, 5, 2))
      convertColor = RGB(r, g, b)
  End Select
End Function