Valor del color
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.