anoniem Geplaatst: 12 september 2002 Delen Geplaatst: 12 september 2002 Ik ben op zoek naar een manier om hexadecimale kleuren uit Visual Basic (zoals bijv. &H8000000F&) te vertalen naar RGB kleurcodes. Als ik een screencapture maak van bovenstaande kleur in PSP7 en hier met de dropper overheen ga, dan krijg ik R214, G211, B206. Ik kan er maar niet achter komen hoe zoiets samengesteld wordt. Als iemand anders dat wel weet dan hoor ik het graag! Quote Link naar reactie
anoniem Geplaatst: 12 september 2002 Auteur Delen Geplaatst: 12 september 2002 Heb ik laatst ook een hele tijd mee zitten kutten, maar hiermee kan je het omzetten. [code:1:525e41acac] Private Function ColorToHtml(Color As OLE_COLOR) As String Dim strTemp As String Dim strResult As String strTemp = Right$(String(6, "0") & Hex(Color), 6) strResult = Right$(strTemp, 2) & Mid$(strTemp, 3, 2) & Left(strTemp, 2) ColorToHtml = strResult End Function [/code:1:525e41acac] Quote Link naar reactie
anoniem Geplaatst: 12 september 2002 Auteur Delen Geplaatst: 12 september 2002 "....ook een hele tijd mee zitten kutten" mind your words.....there are some lady's online... :wink: Quote Link naar reactie
anoniem Geplaatst: 12 september 2002 Auteur Delen Geplaatst: 12 september 2002 De functie werkt, maar doet niet helemaal wat ik wil: Ik wil graag dat de hex-waarde daadwerkelijk in de drie componenten R, G en B getoond worden, dus drie waarden varieren van 0 tot 255. Middels [code:1:6c74879eb6]CLng(&H8000000F&)[/code:1:6c74879eb6] krijg je wel de eind RGB-waarde voor een kleur, maar ik wil dus de drie losse waarden die samen de kleur vormen. Met hoofdwerk kom je een heel eind, maar die rare hex-codes zoals er hierboven een van staat heb ik nog niet op kunnen lossen. Alvast bedankt voor de moeite. Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen