Ottenere l'effettivo valore del colore del pixel individuato con la Proprietà vettoriale Image.Pixels

Verificando il valore del colore del pixel di una immagine, individuato mediante la Proprietà vettoriale Image.Pixels, non si ottiene il valore effettivo del colore di quel pixel.

E' sufficiente osservare il risultato offerto da questo codice:

Public Sub Form_Open()

 Dim im As New Image(1, 1, Color.Red)

 Print "red = "; Color.Red

 Print im.Pixels[0]

End

Il velore restituito dalla Proprietà vettoriale "im.Pixels[0]" non è uguale a quello restituito dalla Prorpietà "Color.Red".

Per rendere corrispondente il valore della vettoriale "im.Pixels[0]" con quello della Prorpietà "Color.Red", si può adottare il seguente codice:

Public Sub Form_Open()

 Dim im As New Image(1, 1, Color.Red)

 Print "red = "; Color.Red

 Print
 Print Val("&" & Hex(hImg.Pixels[0], 6) & "&"), Hex(hImg.Pixels[0], 8)

End