[VB2008]RGB omrekenen naar HEX

Status
Niet open voor verdere reacties.

bcubing

Gebruiker
Lid geworden
4 dec 2008
Berichten
37
Ik heb een probleem bij mijn programma.
Ik weet hoe je van een "Colordialog" de RGB (rood,groen,blauw) kleuren kan krijgen.
Maar ik wil het omrekenen naar HEX (Hexadecimaal).
dus bijvoorbeeld RGB = 0,255,0 (groen) = 0x0000FF00
Ik heb alleen geen idee hoe ik dat kan omrekenen...:confused:

Kan iemand me helpen?

MVG,
bcubing
 
Ik neem aan dat je het geprogrammeerd wilt hebben :


Code:
        ColorDialog1.ShowDialog()
        Dim color As Integer = ColorDialog1.Color.ToArgb
        Label1.Text = Hex(color).Remove(0, 2)

waarbij de eerste 2 hexadecimalen het alpha-channel is (transparantie). Maar die zou je met behup van een remove methode kunnen verwijderen

Code:
Label1.Text = Hex(color).Remove(0, 2)
 
Ik neem aan dat je het geprogrammeerd wilt hebben :


Code:
        ColorDialog1.ShowDialog()
        Dim color As Integer = ColorDialog1.Color.ToArgb
        Label1.Text = Hex(color).Remove(0, 2)

waarbij de eerste 2 hexadecimalen het alpha-channel is (transparantie). Maar die zou je met behup van een remove methode kunnen verwijderen

Code:
Label1.Text = Hex(color).Remove(0, 2)

Het werkt niet helemaal...
Als ik rood in een colordialog kies dan krijg ik blauw...:confused:
en werkt ook niet met andere kleuren... krijg dan een andere kleur
 
Ik heb het misschien niet helemaal goed uitgelegd.

de kleur van de dialogbox wordt opgeslagen in de variable 'color' in een ARGB mode(ALPHA,RED,GREEN,BLUE)

dus ..

Code:
ColorDialog1.ShowDialog()
        Dim color As Integer = ColorDialog1.Color.ToArgb
        Label1.Text = Hex(color)

geeft op Label1.text al result : FFFF0000 (255 (FF) voor alpha transparantie, 255 (FF) voor rood,0 (00) voor groen, en 0 (00) voor blauw).
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan