CommonDialog ShowColor skal vise hex istedet for det tal der v

Ja bægge veje:

'Me.Caption = LNGtoHEX(Me.BackColor)

Private Declare Sub CopyMemory Lib "kernel32" Alias _
                    "RtlMoveMemory" (Destination As Any, _
                    Source As Any, ByVal Length As Long)

Public Function LNGtoHEX(ByVal LngColor As Long) As String
Dim i As Integer
Dim bytRGB(2) As Byte
Dim sHex As String
CopyMemory bytRGB(0), LngColor, 3
  For i = 0 To 2
    sHex = sHex & IIf(bytRGB(i) < 16, "0", "") & Hex$(bytRGB(i))
  Next
LNGtoHEX = sHex
End Function

Public Function HEXtoLNG(HexColor As String) As Long
Dim R As Integer, G As Integer, B As Integer
HexColor = Right(HexColor, 6) 'Fjærner # hvis det ingår
  R = Val("&H" & Mid$(HexColor, 1, 2)) 'RØD
    G = Val("&H" & Mid$(HexColor, 3, 2)) 'GRØN
  B = Val("&H" & Mid$(HexColor, 5, 2)) 'BLÅ
HEXtoLNG = RGB(R, G, B)
End Function

Hej.

Jeg har aldrig brugt commondialog vedr. farver.  Det ser lidt underligt ud de tal der fremkommer.

Hvis du har farverne i RGB  (255,127,255) = lyslilla, kan du konvertere
til HEX med kommandoen HEX(tal).  Jeg har lavet et program hvor farvernes værdier vises som rgb pg hex, de indstilles med scroll-paneler.  Det kan hentes fra http://www.jkfsoft.dk/farver.htm

M.v.h.  Jørn

Tak for svarene begge 2, jeg fandt også en løsning selv! ! !

CommonDialog1.ShowColor
Label4.BackColor = CommonDialog1.Color
Text1.Text = Hex(CommonDialog1.Color)
End Sub

der var kun et svar, så point til sjh
God jul
Mvh. Henrik

også God jul til jer <:-)