[gelöst]RGB Daten in Variable

[kl_ha]

Hallo

Gibt es eine Möglichkeit die RGB Werte in eine Variable zu speichern und in einer Funktion wieder auszulesen.
Als String funktioniert es nicht, weil die RGB Werte drei Integer Werte sind.
Aber auch als Integer bekomme ich eine Fehlermeldung z.B RGB(219,253,255)
Ich denke das die Komma die Probleme bereiten,
Hat das schon Irgend jemand dieses Problem gehabt und gelöst?

Gruß
Klaus

[karolus]

Hallo

Welches Problem?
(in Basic gibts die Function rgb(… , … , …), die funktioniert auch so wie du angibst.)

in LO-Calc gibts inzwischen die Funktion FARBE(… ; … ; …) selbstverständlich mit Semicolon-getrennter Argumentliste wie üblich in Calc.

[F3K Total]

Hallo,
man kann in Starbasic eigene Datentypen erzeugen, etwa so:

Code: Alles auswählen

Type Farbe_RGB
    ROT As Integer
    GRUEN As Integer
    BLAU As Integer
End Type

Sub ExampleCreateNewType
    Dim Farbe1 As Farbe_RGB
    Farbe1.ROT = 122
    Farbe1.GRUEN = 0
    Farbe1.BLAU = 255
    PrintFarbe(Farbe1)
End Sub

Sub PrintFarbe(x)
    msgbox "Rot: " & x.ROT & CHR(13) & "Grün: " & x.GRUEN & CHR(13) &  "Blau: " & x.BLAU
End Sub

Siehe auch OpenOffice.org Macros Explained von Andrew Pitonyak, deutsche Übersetzung von Volker Lenhardt
Kapitel 3.3.8. Eigene Datentypen erzeugen
Gruß R

[kl_ha]

Hallo

Danke für eure Antworten.
Habe das mit das mittels Farbe in Hexadezimal Zahlen gelöst.

Code: Alles auswählen

sheet.getCellRangeByPosition(startSpalte,startZeile,anzahlSpalten,startZeile).Cellbackcolor = "&H" & colorAsHex

Type Farbe_RGB
ROT As Integer
GRUEN As Integer
BLAU As Integer
End Type

Sub ExampleCreateNewType
Dim Farbe1 As Farbe_RGB
Farbe1.ROT = 122
Farbe1.GRUEN = 0
Farbe1.BLAU = 255
PrintFarbe(Farbe1)
End Sub

Sub PrintFarbe(x)
msgbox "Rot: " & x.ROT & CHR(13) & "Grün: " & x.GRUEN & CHR(13) & "Blau: " & x.BLAU
End Sub

Wieder was gelernt


Gruß
Klaus