QBColor (función)

Nota: Nos gustaría proporcionarle el contenido de ayuda actual lo más rápido posible en su idioma. Esta página se ha traducido mediante un sistema automático y es posible que contenga imprecisiones o errores gramaticales. Nuestro objetivo es que este contenido sea útil para usted. ¿Puede informarnos sobre si la información le ha sido útil al final de la página? Aquí tiene el artículo en inglés para que pueda consultarlo fácilmente.

Devuelve un valor Long que representa el código de color RGB correspondiente al número de color especificado.

Sintaxis

QBColor color del ()

La necesaria colorargumento es un número entero en el intervalo de 0-15.

Configuración

El argumento color tiene los siguientes valores:

Número

Color

Número

Color

0

Negro

8

Gris

1

Azul

9

Azul claro

2

Verde

10

Verde claro

3

Aguamarina

11

Cian claro

4

Rojo

12

Rojo claro

5

Magenta

13

Magenta claro

6

Amarillo

14

Amarillo claro

7

Blanco

15

Blanco brillante


Comentarios

El argumento color representa los valores de color utilizados en versiones anteriores de Basic (como Microsoft Visual Basic para MS-DOS y el compilador básico). Comenzando con el byte menos significativo, el valor devuelto especifica los valores de rojo, verde y azul que se usa para establecer el color apropiado en el sistema RGB que utiliza Visual Basic para aplicaciones.

Ejemplo

Nota: Los ejemplos siguientes muestran el uso de esta función en un Visual Basic para aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione la Referencia del programador en la lista desplegable situada junto a Buscar y escriba uno o varios términos en el cuadro de búsqueda.

Este ejemplo 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
Ampliar sus conocimientos de Office
Explorar los cursos
Obtener nuevas características primero
Únase a los participantes de Office Insider

¿Le ha sido útil esta información?

¡Gracias por sus comentarios!

Gracias por sus comentarios. Quizá le interese ponerse en contacto con uno de nuestros agentes de soporte de Office.

×