Función QBColor

Devuelve el código RGB del color que se ha pasado como valor a través de un sistema de programación antiguo basado en MS-DOS.

Sintaxis:

QBColor (NúmeroColor As Integer)

Valor de retorno:

Long

Parámetros:

NúmeroColor: Cualquier expresión de entero que especifique el valor del color que se ha pasado desde un sistema de programación antiguo basado en MS-DOS.

A NúmeroColor pueden asignársele los valores siguientes:

0 : Negro

1 : Azul

2 : Verde

3 : Cian

4 : Rojo

5 : Magenta

6 : Amarillo

7 : Blanco

8 : Gris

9 : Azul claro

10 : Verde claro

11 : Cian claro

12 : Rojo claro

13 : Magenta claro

14 : Amarillo claro

15 : Blanco brillante

Esta función se utiliza únicamente para convertir aplicaciones BASIC antiguas basadas en MS-DOS que utilizan los códigos de color anteriores. La función devuelve un valor entero largo que indica el color que se usará en el IDE de LibreOffice.

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:


Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
    iColor = 7
    sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
    MsgBox stext,0,"Color " & iColor
End Sub