QBColor (función)

Importante:  Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

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

Sintaxis

QBColor ( color )

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

Blue

9

Azul claro

2

Green

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

Nota: Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.

Ampliar sus conocimientos
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.

×