farve kode

Hvis det du vil er at kende værdierne så lav tn form med 2 textboxe og en command

Private Sub Command1_Click()
Dim MyHex, num
num = Val(Text1.Text)
MyHex = Hex(num)
Text2.Text = MyHex
End Sub



Håber det var det du skulle bruge :-)

- Mikker

Eller prøv at søge i din VB-hjælp under
decimals, converting

- Blot en indskydelse :-)

- Mikker

\'-----------------------------------------------------------------
\'PURPOSE: Returns red/green/blue color from RGB color value.
\'ACCEPTS: RGB color value as Long, and component number as integer
\'        that represents the component color to return (1=red,
\'        2=green, 3=blue).
\'RETURNS: The intensity of the color component (0 - 255) as an
\'        integer or -1 indicating that an argument was invalid.
\'-----------------------------------------------------------------
Function GetRGB (RGBval As Long, Num As Integer) As Integer
\' Check if Num, RGBval are valid.
If Num > 0 And Num < 4 And RGBval > -1 And RGBval < 16777216 Then
  GetRGB = RGBval \\ 256 ^ (Num - 1) And 255
Else
  \' Return True (-1) if Num or RGBval are invalid.
  GetRGB = True
End If
End Function

...jeg glemte lige at sige at jeg ikke har en brik forstand på VB.
>>privaten, det du skriver ligner noget, men jeg kender kun rgb som 3 tal..R,G og B som jeg så kan lave til hex. Jeg kan ikke helt gennemskue om det du skriver kun er en vb-function??

Det jeg gerne vil have er den matematiske formel for at omregne 16777216 til en hex-farve jeg kan bruge på www.

>>mikker. jeg har ikke nogen vb-hjælp. Jeg sidder ikke og programmere i vb. Jeg henter bare noglee koder i et vb-program og skal bruge dem i et PHP-program

Det er måden at trække RGB værdier ud af en farvekode...

fx:

    MsgBox GetRGB(16384, 1)
    MsgBox GetRGB(16384, 2)
    MsgBox GetRGB(16384, 3)
Giver 3 messageboxe, med værdierne 0, 64 og 0 hvilker svarer til en \'meget mørkegrøn\' farve

Så må du undskylde, jeg misforstod spørgsmålet. :-)

>>mikker
nææhh..det er bare mig der ikke kan formulere mig ordentligt =)
men nu har jeg fået lavet en php-funktion der kan omregne det...og det minder om den vb-function privaten skrev, så alt er fryd og gammen *grin*