/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Værdi i CommonDialog1.ShowColor
Fra : Kasper Katzmann


Dato : 15-11-01 10:55

Er der nogen der kan fortælle mig hvad det er
for en værdi der bliver returneret, når jeg bruger
CommonDialog.ShowColor.

Har jeg valgt hvid, returnerer CommonDialog.Color
værdien: 16777215
Det kan jo ikke være RGB, da det ville levere 255 255 255
Det kan heller ikke være Hex, da det ville levere FF FF FF

Hvad er det så og hvordan får jeg konverteret det til Hexadecimal?

Hilsen Kasper K



 
 
Kasper Katzmann (15-11-2001)
Kommentar
Fra : Kasper Katzmann


Dato : 15-11-01 10:57

Den returnerer for øvrigt den rigtige farve.
Det er blot den numeriske værdi jeg ikke helt forstår.


/Kasper K



Harald Staff (15-11-2001)
Kommentar
Fra : Harald Staff


Dato : 15-11-01 12:03

Kasper

VB bruker en long-verdi for farve. Det er bare sånn det er. Du kan
konvertere med disse:

Function RGBfromLong(WhatColor As Long) As String
Dim R As Integer
Dim G As Integer
Dim B As Integer
R = (WhatColor And &HFF&)
G = (WhatColor And &HFF00&) / &H100&
B = (WhatColor And &HFF0000) / &H10000
RGBfromLong = "(" & R & ", " & G & ", " & B & ")"
End Function

Function HTMLfromLong(WhatColor As Long) As String
Dim Red As String, Green As String, Blue As String
Red$ = Hex(WhatColor And 255)
Green$ = Hex(WhatColor \ 256 And 255)
Blue$ = Hex(WhatColor \ 65536 And 255)
If Len(Red$) < 2 Then Red$ = "0" & Red
If Len(Green$) < 2 Then Green$ = "0" & Green
If Len(Blue$) < 2 Then Blue$ = "0" & Blue
HTMLfromLong = "#" & Red$ & Green$ & Blue$
End Function

HTH. Beste hilsen Harald
Kasper Katzmann <kasper@katzmann.dk> skrev i news:9t03hp$ba6$1@sunsite.dk...
> Den returnerer for øvrigt den rigtige farve.
> Det er blot den numeriske værdi jeg ikke helt forstår.
>
>
> /Kasper K
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408889
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste