IBM Lotus Symphony


Función QBColor [Ejecución]

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:

Largo

Parámetro:

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 sólo se usa para convertir desde 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 debe utilizar en el IDE de Lotus® Symphony™.

Códigos de error

5 Inicio del proceso no válido

Ejemplo:

Sub EjemploQBColor

Dim iColor As Integer

Dim sTexto As String

iColor = 7

sTexto = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )

MsgBox stexto,0,"Color " & iColor

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas