Individuare il colore di un determinato pixel
Da Gambas-it.org - Wikipedia.
Versione del 19 nov 2012 alle 13:01 di Vuott (Discussione | contributi)
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, nonché 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("mia_immagine.xxx") 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