Visualizza wikitesto di 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 <FONT Color=#B22222>Val("&" & Hex(hImg.Pixels[0], 6) & "&")</font>, Hex(hImg.Pixels[0], 8)
 
 End