[VB6] Estrarre colori RGB da una TextBox

[cloix86]

Ciao a tutti non riesco ad estrarre la quantità di rosso,verde e blu da un testo già scritto in una textbox. Riesco a fare così Qta = Text.ForeColor ma Qta è un long... come faccio a sapere da questo Long (se questa è la strada giusta) la quantità dei tre colori usati?

[tas]

Devi scomporre il numero long in byte. Puoi fare per esempio così:

Dim colore As Long
Dim r As Byte
Dim g As Byte
Dim b As Byte
Dim col As String

colore = 4779968    'esadecimale: 48efc0

'trasforma il colore in esadecimale
col = Hex$(colore)

'aggiunge zeri a sinistra per avere almeno 6 cifre
col = Right$("00000" & col, 6)

'estrae red
r = CInt("&h" & Left$(col, 2))

'estrae green
g = CInt("&h" & Mid$(col, 3, 2))

'estrae blue
b = CInt("&h" & Right$(col, 2))

[cloix86]

non capisco perchè devi aggiungere gli zeri a sinistra...

[ans]

Originariamente inviato da cloix86
non capisco perchè devi aggiungere gli zeri a sinistra...

è scritto, per formattare la stringa di 6 caratteri e poter estrarre a 2 a 2 i singoli colori, altrimenti non ti ritrovi più nell'estrazione.