IBM Lotus Symphony


QBColor-Funktion [Laufzeit]

Gibt den RGB-Farbcode der Farbe zurück, die der Funktion als Farbnummer von einem älteren MS-DOS-Programmiersystem übergeben wurde.

Syntax:

QBColor (Farbe As Integer)

Rückgabewert:

Long

Parameter:

Farbe: Ein beliebiger Integer-Ausdruck, der den Farbwert einer Farbe angibt, die von einem älteren MS-DOS-Programmiersystem übergeben wurde.

Farbe können die folgenden Werte zugewiesen werden:

0 : Schwarz

1 : Blau

2 : Grün

3 : Cyan

4 : Rot

5 : Magenta

6 : Gelb

7 : Weiß

8 : Grau

9 : Hellblau

10 : Hellgrün

11 : Hellcyan

12 : Hellrot

13 : Hellmagenta

14 : Hellgelb

15 : Leuchtend weiß

Diese Funktion wird ausschließlich zur Konvertierung früherer MS-DOS BASIC-Anwendungen verwendet, die mit den zuvor aufgeführten Farbwerten arbeiten. Die Funktion gibt einen Long-Integer-Wert zurück, der den Farbcode der Farbe angibt, der in der Lotus® Symphony™-Entwicklungsumgebung zu verwenden ist.

Fehlercodes

5 Invalid procedure call

Beispiel:

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,"Farbe " & iColor

End Sub


Produktfeedback | Zusätzliche Dokumentation | Marken