Devuelve un valor Long que representa el código de color RGB correspondiente al número de color especificado.
Sintaxis
QBColor(color)
El argumento de colorrequerido 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 claro |
| 6 | Amarillo | 14 | Amarillo claro |
| 7 | Blanco | 15 | Blanco brillante |
Observaciones
El argumento color representa los valores de color usados por versiones anteriores de Basic (como Microsoft Visual Basic para MS-DOS y el compilador de Basic). Comenzando por el byte menos significativo, el valor devuelto especifica los valores de rojo, verde y azul utilizados para establecer el color apropiado en el sistema RGB utilizado 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 en cuanto 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