----------------------------------
Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
'
Dim TempBitmap As New Bitmap(PictureBox1.Image)
Dim MyColor As Color
MyColor = TempBitmap.GetPixel(e.X, e.Y)
MessageBox.Show("Pixel x=" & e.X & ", y=" & e.Y & ", color=" & MyColor.ToString, "Color", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
------------------------------------
Bunu nasıl her pixelini tarattırıp notepad'e kaydettirebiliriz? Yada ListBox'a da yazsa olur. Aklıma direkt fotoğrafın kaca kac olduğunu bulup, atıyorum 1920x1080 ise, sırasıyla x değerini 1 - 1920 y değerini ise 1 - 1080 'e kadar taraması gerektiği geldi; fakat yapamadım.

__________________