Individuare il colore di un determinato pixel

Per individuare il colore di un determinato pixel di un'immagine si dovrà utilizzare semplicemente il seguente codice:

Public Sub Button1_Click()

 Dim i As New Image
 Dim nCol As Integer 

  i = i.Load("mia_immagine.xxx")

' Individueremo il pixel dell'immagine mediante le sue coordinate x ed y:
   nCol = i[x, y]

   Print "Il numero decimale del colore del pixel è: "; nCol

End

Verrà restituito il numero decimale del colore del pixel, determinato dalle coordinate x ed y all'interno dell'immagine.

Esempio pratico

Mostriamo un esempio nel quale, cliccando su un'immagine inserita in una PictureBox, viene mostrato in una TextLabel il colore del pixel, e viene restituito in console il corrispondente numero: Private i As New Image

Private nCol As Integer


Public Sub Form_Open()

 Dim pc As Picture

  i = i.Load("/home/ploppo/Scrivania/g.png")

  pc = i.Picture

  With PictureBox1
    .W = i.W
    .H = i.H
    .Picture = pc
  End With

End


Public Sub PictureBox1_MouseDown()

  With Mouse
     nCol = i[.X, .Y]
  End With

  Print "Il numero del colore del pixel cliccato è: "; nCol

  TextLabel1.Background = nCol
 
End