Programación de información de color
¿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