Private Sub btn_getPixels_Click(ByVal sender As Object, ByVal e As EventArgs) listBox1.Items.Add("Pixel Color") Try Dim img As Bitmap = New Bitmap(pictureBox1.Image) Dim c As Color Dim i As Integer = 0 Do While (i < img.Width) Dim j As Integer = 0 Do While (j < img.Height) c = img.GetPixel(i, j) listBox1.Items.Add((i.ToString + ("," _ + (j.ToString + (" " + c.Name))))) j = (j + 1) Loop i = (i + 1) Loop Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)