Vil gerne have RGB til HTML hex

Kan du ikke bare bruge funktionen Hex()

Hex(68) = 44
Hex(119) = 77
Hex(170) = AA

Dim R as byte
Dim G as byte
Dim B as byte
R=68
B=119
G=170
msgbox "Farven i HEX-kode: " & Hex(R) & Hex(G) & Hex(B)

Prøv den her:

'--------------------------------- Form1 ---------------------------------
Option Explicit

Public Function LongToRGBHex(ByVal lngRGB As Long) As String
Dim bRed  As Long
Dim bGreen As Long
Dim bBlue  As Long

  lngRGB = (lngRGB And &HFFFFFF)
  bRed = (lngRGB And &HFF)
  bGreen = (lngRGB \ &H100) And &HFF
  bBlue = (lngRGB \ &H10000) And &HFF
  lngRGB = (bRed * &H10000 + bGreen * &H100 + bBlue)

  If bRed < &H10 Then
    LongToRGBHex = Right$("00000" & Hex$(lngRGB), 6)
      Else
    LongToRGBHex = Hex$(lngRGB)
  End If
End Function

Private Sub Form_Load()
Dim lngRGB As Long
  ' Her indsætter du dine RGB farver
  lngRGB = RGB(255, 192, 192)
  ' Her indsætter du dine RGB farver
  Text1.Text = "#" & LongToRGBHex(lngRGB)
End Sub
'--------------------------------- Form1 ---------------------------------

fik lige set dit lille project :o) Jeg har lavet det for dig :-)

'---------------------------- Form1 ----------------------------
Option Explicit

Private colorR As Integer, colorG As Integer, colorB As Integer

Private Sub BScroll_Change()
  colorB = Val(BScroll)
  Bval = colorB
  Bhex = Hex$(colorB)
  clr.FillColor = RGB(colorR, colorB, colorG)
End Sub

Private Sub GScroll_Change()
  colorG = Val(GScroll)
  Gval = colorG
  Ghex = Hex$(colorG)
  clr.FillColor = RGB(colorR, colorB, colorG)
End Sub

Private Sub RScroll_Change()
  colorR = Val(RScroll)
  Rval = colorR
  Rhex = Hex$(colorR)
  clr.FillColor = RGB(colorR, colorB, colorG)
End Sub
'---------------------------- Form1 ----------------------------