Farbwerte in Tabelle speichern

10/02/2008 - 18:38 von Peter Witt | Report spam
Hallo,
ich orientiere mich an einem Beispiel für die Hintergrundfarbe von
Formularen.
Dort wird die Farbe ni einer Long Variablen gespeichert z.B: lngWeiss RGB(255,255,255)
Ich möchte diese Werte in einer Tabelle speichern und dann gegebenefalls
z.B. mit
Me.Section(acDetail).BackColor = lngWeiss
einem Formularhintergrund o.à. zuweisen.
Wie speichere ich die Farbwerte in einer Tabelle ?
In einem Zahlenfeld(Long) kann ich ja nicht RGB(255,255,255) eingeben.
Gruss
Peter
 

Lesen sie die antworten

#1 Klaus Oberdalhoff
10/02/2008 - 18:55 | Warnen spam
Hi,

Wie speichere ich die Farbwerte in einer Tabelle ?
In einem Zahlenfeld(Long) kann ich ja nicht RGB(255,255,255) eingeben.



dafür gibt es die eingebaute Funktion RGB.

DeinZahlwert = RGB(rotwert, gruenwert, blauwert)

Für den umgekehrten Weg gibt's nix eingebautes:

Sub GetRGB(ByVal RGB As Long, ByRef Red As Integer, _
ByRef Green As Integer, ByRef Blue As Integer)
Red = RGB And 255
Green = RGB \ 256 And 255
Blue = RGB \ 256 ^ 2 And 255
End Sub

'##############

'und dann gibts noch das hier

Function CMYK2RGB&(ByVal c!, ByVal m!, ByVal y!, ByVal k!)
'Autor: Newsgroup Olaf Schmidt
'ich suche eine Möglichkeit, CYMK-Farbwerte in RGB umzurechnen, da in VB
'ja nur RGB-Farbwerte verwendet werden können. Gibt es dafür eine API-
'Funktion (eine interne habe ich in VB5 nicht gefunden).
Dim R%, G%, B%
If (c + k) < 255 Then R = 255 - (c + k)
If (m + k) < 255 Then G = 255 - (m + k)
If (y + k) < 255 Then B = 255 - (y + k)
CMYK2RGB = RGB(R, G, B)
End Function


'##############

mit freundlichen Grüßen aus Nürnberg

Klaus Oberdalhoff
Ich unterstütze PASS Deutschland e.V. (http://www.sqlpass.de)
Nàchstes Treffen in Nürnberg am 12.02.2008

Ähnliche fragen