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.

Individuare il colore di un pixel di un'immagine cliccandoci sopra con il mouse

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