IBM Lotus Symphony
|
Gibt den RGB-Farbcode der Farbe zurück, die der Funktion als Farbnummer von einem älteren MS-DOS-Programmiersystem übergeben wurde.
QBColor (Farbe As Integer)
Long
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.
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