Hilfe für Collabora Office 24.04
Gibt den RGB-Farbcode der Farbe zurück, die der Funktion als Farbnummer eines älteren MS-DOS-Programmiersystems übergeben wurde.
QBColor (Farbe As Integer)
Long
Farbe: Ein beliebiger Ausdruck vom Typ "Integer", der den Farbwert einer Farbe festlegt, die von einem älteren MS-DOS-Programmiersystem übergeben wurde.
ColorNumber 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 angegebenen Farbe angibt, der in der Collabora Office-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