Red de conocimiento informático - Consumibles informáticos - Valor del color

Valor del color

1. El código de color en la página web es ***6, los dígitos 1 y 2 representan rojo, los dígitos 2 y 3 representan verde, los dígitos 4 y 5 representan azul, es hexadecimal, de "00" a "FF", correspondiente a números decimales del "0" al "255" respectivamente.

2. El método de representación de la función RGB en VB es similar a la representación del código de color en la página web, utilizando una combinación de los tres colores primarios de R, G y B, pero la función RGB. utiliza 10, como RGB (255) para rojo y RGB (255) para verde. Utilice RGB (255, 255, 0).

3. Entonces, la conversión de color es en realidad la conversión entre 16 y 10.

4. El siguiente es el código de conversión para 16 y 10.

Dim DecimalInt to Double

Atenuar cadena hexadecimal a cadena

HexString = "FF "

Dim I está marcado como un número entero

Para i = 1 a Len(cadena hexadecimal)

TmpHexStr = Mid(HexString, I, 1)

Si IsNumeric(TmpHexStr) entonces

f1 =True

Otros

f1 =False

Si... terminará

If (Asc(TmpHexStr )>= Asc("A ") y Asc(TmpHexStr) <= Asc("F ")) entonces

f2 =True

Otro

f2 = false

Terminará si...

Si f1 o f2, entonces

Si f1 Entonces 'Si es un número.

decimal int = decimal int cint(tmphexstr)* 16 ^(len(hex string)-I)

Si es un carácter, es "Else".

decimal int = decimal int (ASC(tmphexstr)-55)* 16 ^(len(hex string)-I)

Terminará si...

Otro

Cuadro de mensaje "¡¡¡Escribiste incorrectamente!!!"

Salir del conector

Terminará si...

Entonces

p>

MsgBox DecimalInt

Si hay algo que no entiendes, puedes preguntarlo en las preguntas complementarias~ ` `Aprendamos unos de otros.