Devuelve un valor Long que representa el código de color RGB correspondiente al número de color especificado.
Sintaxis
QBColor ( color )
El colorargumento 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 básico). A partir del byte menos significativo, el valor devuelto especifica los valores rojo, verde y azul usados para establecer el color adecuado 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 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 junto a Buscar y escriba uno o más 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