Access color coding standard

Private Sub Kommandoknap0_Click()
Dim Red, Green, Blue As Integer
Dim txtkode As Long
Dim txtred As String, txtgreen As String, txtblue As String
txtkode = Tekst2.ForeColor
Red = txtkode Mod 256
Green = (txtkode \ 256) Mod 256
Blue = (txtkode \ 65536) Mod 256
txtred = Red
txtgreen = Green
txtblue = Blue
MsgBox "Red: " & txtred & vbNewLine & "Green: " & txtgreen & vbNewLine & "Blue: " & txtblue
End Sub

Giver dig RGB som talværdier i feltet Tekst2's skriftfarve.

Perfekt, prøve det lige, mugs.
Ved du hvad den standard hedder? Altså Access's "mærkelige" kode.

Kender ikke Access' standard.

Ok. Nu er det heller ikke som sådan en Microsoft standard, andre programmer bruger den også - men hvordan vidste du at du skulle tage mod 256 til tallet?! ;)

Jeg kan faktisk ikke huske det - Det er en gammel kode jeg vist nok fandt på nettet, men har iøvrigt aldrig brugt den.

Mange tak, Mugs.