Red de conocimiento informático - Consumibles informáticos - Programación de información de color

Programación de información de color

De hecho, este problema es muy simple, pero los tres colores deben ingresarse a través de tres cuadros de texto (controles de matriz) respectivamente para configurar rojo, verde y azul. Simplemente configure el color de Text2 en el evento Text1_Change del cuadro de texto.

¿Privado? ¿Sub? Form_Load()

Texto2. ¿Palabra? ="¿Cómo estás?"

Texto 2. ¿Tamaño de fuente? =?20

Texto 2. ¿Fuente en negrita? =?Real

¿Fin? Submarino

¿Privado? ¿Sub? Text1_Change(index?as?integer)

¿Atenuado? ¿AUTOMÓVIL CLUB BRITÁNICO? ¿Como? Entero,? ¿CAMA Y DESAYUNO? ¿Como? ¿Línea

AA? =?Índice

Si? ¿AUTOMÓVIL CLUB BRITÁNICO? =?0?¿Y entonces qué? ¿CAMA Y DESAYUNO? =?"Rojo"

¿Si? ¿AUTOMÓVIL CLUB BRITÁNICO? =?1?¿Y entonces qué? ¿CAMA Y DESAYUNO? =?"Verde"

¿Si? ¿AUTOMÓVIL CLUB BRITÁNICO? =?2?¿Y entonces qué? ¿CAMA Y DESAYUNO? =?"Azul"

¿Si? EsNumeric(Texto1(AA)). texto)? =?Falso? Entonces

¿MsgBox? ¿"Tú entraste"? y amplificador? ¿CAMA Y DESAYUNO? y amplificador? "¡Números no, todos los valores de color deben ser números enteros positivos entre 0 y 255!"

Texto1(AA). ¿Palabra? =?""

Texto1(AA). Establecer enfoque

¿Salir? Submarino

¿Fin? Si

¿Y si? Val(Texto1(AA)). texto)? <? 0? Val(Texto1(AA)). texto)? >? 255? Entonces

¿MsgBox? ¿"Tú entraste"? y amplificador? ¿CAMA Y DESAYUNO? y amplificador? "El número es incorrecto. ¡No puede ser menor que 0 ni mayor que 255!"

Texto1(AA). ¿Palabra? =?""

Texto1(AA). Establecer enfoque

¿Salir? Submarino

¿Fin? Si

¿Y si? Val(Texto1(0)). texto)? & gt=?0? Entonces qué. Val(Texto1(0)). texto)? & lt=?255?Y luego qué. Val(Texto1(1)). texto)? & gt=?0? Entonces qué. Val(Texto1(1)). texto)? & lt=?255?Y luego qué. Val(Texto1(2)). texto)? & gt=?0? Entonces qué. Val(Texto1(2)). texto)? & lt=?255?Luego

Texto 2. ¿Color de primer plano? =?RGB(Val(Texto1(0)).Texto),? Val(Texto1(1)). texto),? Val(Texto1(2)). Texto))

¿Fin? Si

¿Finalizar? Submarino