Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

in VB6 van HEX weer naar de oude kleur codes

vor0nwe
4 antwoorden
  • Ik heb het volgende: ik heb een (rgb) kleur code omgezet naar een Hex(#123456) code om te gebruiken op internet. Dit heb ik gedaan door Hex(RGBkleurnummer) = ….
    Dit werkt goed, maar nu wil die kleur ook graag weer terug kunen zetten naar de RGB (origenele) kleur code. weet iemand de functie?

    alvast bedankt
  • Als je het haakje ook in de hex code meeneemt:

    [code:1:94fb841a26]
    Private Sub Command1_Click()

    Dim sr As String
    Dim sg As String
    Dim sb As String
    Dim rval As String
    Dim gval As String
    Dim bval As String
    Dim buff As String
    Dim origcolor As String

    origcolor = "#6699FF"

    'remove the pound sign if present
    buff = Replace(origcolor, "#", "")

    sr = Mid$(buff, 1, 2) 'pos 1&2
    sg = Mid$(buff, 3, 2) 'pos 3&4
    sb = Mid$(buff, 5, 2) 'pos 5&6

    'assuming origcolor was #6699FF, you have:
    'sr = "66"
    'sg = "99"
    'sb = "FF"

    Print sr, sg, sb

    'To get the integer values for those
    'numbers, which are still hexidecimal,
    'use:
    rval = Val("&H" & sr)
    gval = Val("&H" & sg)
    bval = Val("&H" & sb)

    Print rval, gval, bval

    'now test the result
    Form1.BackColor = RGB(rval, gval, bval)

    End Sub

    [/code:1:94fb841a26]

    Deze code is inefficient maar laat het idee wel zien. Je kunt dit makkelijk herschrijven.

    Overigens is deze code niet van mij, maar gewoon eens zoeken op http://groups.google.com doet wonderen hoor :lol:
  • Ik weet niet zeker of ik wel RGB wil terug hebben. de kleur die ik namelijk oorspronkelijk had was bijvoorbeeld voor wit (16777215) die zette ik via hex(16777215) = …$ om naar hex codes. Dit werd toen FFFFFF. Nu wil ik dus eigenlijk weer van FFFFFF de code 16777215 weer maken. Die code (16777215) voor wit komt gewoon van de commondialog.color control af. Kan ik dan met jou uitleg uit de voeten of zet ik het dan weer om naar een kleur code…??

    Alvast bedankt!
  • Ik heb het helaas nog niet kunnen vinden….

    kan iemand mij verder helpen…

    ALvast bedankt voor de moeite..

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.