RGB => Webfarver

Nedenstående opbygger en String med det ønskede format....

Dim lngRGBNumber As Long
Dim strHexNumber As String
Dim intCounter As Integer

'Skal være en long da integer ikke kan rumme værdierne
lngRGBNumber = RGB(255, 0, 0)

'Husk HEX funktionen returnere en string
strHexNumber = Hex(lngRGBNumber)

'Lidt strengmanipulation fordi HEX() ikke returnere bagved stillede numre og vi skal bruge FF0000
If Len(strHexNumber) < 6 Then
    intCounter = 6 - Len(strHexNumber)
    For intCounter = 1 To intCounter
        strHexNumber = strHexNumber + "0"
    Next intCounter
End If
strHexNumber = "#" + strHexNumber
'Vis mig resultat i en MsgBox
MsgBox strHexNumber

Du kunne bruge:

strHexval = "#" & Right("00000" & Hex(RGB(CLng(red), CLng(green), CLng(blue))), 6)

RGB tager long. Hex returnerer mellem 0 og FFFFFF så du "padder med 5 0'er - og sætter en # foran.

Du kan bruge denne function (dog skal du huske at sende R,G,B)

Function RGB2HEX(Color As String) As String
Dim mindre_16 As Boolean
Dim f, tmpClr

If Color < 16 Then
mindre_16 = False
Else
mindre_16 = True
End If


Do
f = Color Mod 16
Color = Color / 16
Color = Int(Color)
f = Hex(f)
tmpClr = f + tmpClr
Loop Until Color = 0

If mindre_16 = True Then
    RGB2HEX = tmpClr
Else
    RGB2HEX = "0" + tmpClr
End If
End Function

Ja hvorfor gøre noget nemt når man kan gøre det svært?

For at spare kræfter!

Hoju: I din kan man ikke sende G, man skal sende RGB, mens...

Og denne function er trukket ud min program

Hehe

>hojou

Jeg har brugt dit svar... da det var den nemmeste kode. Men du har ikke valgt Svar, da du svarrede, så jeg kan ikke give dig points før du svarre :o)

Hmmm... der var jeg for tideligt ude. Efter et gennemtjek af alle tre koder, så er vbghost's den eneste som virker :o)

Forresten, vbghost, er koden også Web-color-safe?

JA!

jeg buger den til i mine programmer (HTML editor...)

martin:
Min kode virker fint - den bruger jeg selv, men jeg har ikke brug for pointene og da jper svarede først (og hans iøvrigt også virker) burde du give dem til ham :)