---

Er der nogen der kan fortælle mig hvad det er
for en værdi der bliver returneret, når jeg bruger
CommonDialog.ShowColor.

Har jeg valgt hvid, returnerer CommonDialog.Color
værdien: 16777215
Det kan jo ikke være RGB, da det ville levere 255 255 255
Det kan heller ikke være Hex, da det ville levere FF FF FF

Hvad er det så og hvordan får jeg konverteret det til Hexadecimal?

Hilsen Kasper K

---

Den returnerer for øvrigt den rigtige farve.
Det er blot den numeriske værdi jeg ikke helt forstår.


/Kasper K

---

Kasper

VB bruker en long-verdi for farve. Det er bare sånn det er. Du kan
konvertere med disse:

Function RGBfromLong(WhatColor As Long) As String
Dim R As Integer
Dim G As Integer
Dim B As Integer
R = (WhatColor And &HFF&)
G = (WhatColor And &HFF00&) / &H100&
B = (WhatColor And &HFF0000) / &H10000
RGBfromLong = "(" & R & ", " & G & ", " & B & ")"
End Function

Function HTMLfromLong(WhatColor As Long) As String
Dim Red As String, Green As String, Blue As String
Red$ = Hex(WhatColor And 255)
Green$ = Hex(WhatColor \ 256 And 255)
Blue$ = Hex(WhatColor \ 65536 And 255)
If Len(Red$) < 2 Then Red$ = "0" & Red
If Len(Green$) < 2 Then Green$ = "0" & Green
If Len(Blue$) < 2 Then Blue$ = "0" & Blue
HTMLfromLong = "#" & Red$ & Green$ & Blue$
End Function

HTH. Beste hilsen Harald
Kasper Katzmann <kasper@katzmann.dk> skrev i news:9t03hp$ba6$1@sunsite.dk...
> Den returnerer for øvrigt den rigtige farve.
> Det er blot den numeriske værdi jeg ikke helt forstår.
>
>
> /Kasper K
>
>