Devuelve un tipo de datos Long que representa el código de color RGB correspondiente al número de color especificado.
Sintaxis
QBColor ( color )
El color necesarioargumento es un número entero en el rango de 0 a 15.
Configuración
El argumento color tiene esta configuración:
Número |
Color |
Número |
Color |
0 |
Negro |
8 |
Gris |
1 |
Azul |
9 |
Azul claro |
2 |
Verde |
10 |
Verde claro |
3 |
Cian |
11 |
Cian claro |
4 |
Rojo |
1,2 |
Rojo claro |
5 |
Magenta |
1,3 |
Magenta ligera |
6 |
Amarillo |
14 |
Amarillo claro |
7 |
Blanco |
15 |
Blanco brillante |
Observaciones
El argumento color representa valores de color usados por versiones anteriores de Basic (como Microsoft Visual Basic para MS-DOS y el compilador básico). Comenzando por el byte menos significativo, el valor devuelto especifica los valores rojo, verde y azul que se usan para establecer el color apropiado en el sistema RGB usado por Visual Basic para Aplicaciones.
Ejemplo
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se usa la función QBColor para cambiar la propiedad BackColor del formulario pasado como MyForm al color indicado por ColorCode. QBColor acepta valores enteros entre 0 y 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form) MyForm.BackColor = QBColor(ColorCode) End Sub