RE:colores en hexadecimal!!!!!
Hola,
Tengo este código que devuelve el nombre del color a partir de un color en formato hexadecimal RGB.
No se si es esto lo que estas buscando.
Private Sub ObtenerNombreColor()
Dim valorColor As Integer
Dim _nombreColor As String
'aquí entramos el valor como hexadecimal
'el valor esta en formato &H RR GG BB
'donde
'RR: cantidad de rojo (de 00 a FF)
'GG: cantidad de verde (de 00 a FF)
'BB: cantidad de azul (de 00 a FF)
valorColor = &HFFFFF0
'añadimos el componente alfa, ya que .net
'trabaja con alfa+16 bits color
valorColor = valorColor + &HFF000000
_nombreColor = NombreColor(valorColor)
MsgBox(_nombreColor)
End Sub
Private Function NombreColor(ByVal argb As Integer) As String
Dim _color As Color
'obtenemos el color a partir del argb
_color = Color.FromArgb(argb)
'de toda la lista de colores, comparamos el argb del color
'com el argb de cada color hasta encontrar el correspondiente
For Each col As String In [Enum].GetNames(GetType(KnownColor))
If Color.FromName(col).ToArgb = _color.ToArgb Then
Return col
End If
Next
Return ""
End Function