گرفتن رنگ پیکسل های عکس

[Poria.Net]

سلام دوستان .
می خواستم بدونم چطوری میشه رنگ پیسل های عکسی که داخل کنترل پیکچر باکس هست رو بگیرم ؟

[فرید نجفلو]

سلام
تو یه حلقه بصورت زیر استفاده کنید:

Dim BMP = CType(Me.PictureBox1.Image, Bitmap)
For X = 0 To BMP.Width - 1
For Y = 0 To BMP.Height - 1
Dim PixelColor As Color = BMP.GetPixel(X, Y)
'Or
Dim PixelValue As Integer = BMP.GetPixel(X, Y).ToArgb
Next
Next

[en-keramat]

سلام
تو یه حلقه بصورت زیر استفاده کنید:

Dim BMP = CType(Me.PictureBox1.Image, Bitmap)
For X = 0 To BMP.Width - 1
For Y = 0 To BMP.Height - 1
Dim PixelColor As Color = BMP.GetPixel(X, Y)
'Or
Dim PixelValue As Integer = BMP.GetPixel(X, Y).ToArgb
Next
Next


ممنون دوست عزيز
اگر بخواهيم همراه با رنگ پيسكل مختصات آن را نيز داشته باشيم چيكار بايد كرد ، در واقع تابعي باشه كه ورودي عكس بگيره و خروجي به شكل زير بده
X Y R G B

[M.KH-SH]

Dim c As Color
Dim a(1), r(1), g(1), b(1) As Double
Dim i(1) As Drawing.Bitmap
i(0) = PictureBox1.Image
For x = 0 To w(0)
For y = 0 To h(0)
c = i(0).GetPixel(x, y)
r(0) = c.R
g(0) = c.G
b(0) = c.B
Next
Next


شرمنده از یکی از نرم افزارام کپی کردم وقت تمیز کردن کد رو نداشتم

[فرید نجفلو]

ممنون دوست عزيز
اگر بخواهيم همراه با رنگ پيسكل مختصات آن را نيز داشته باشيم چيكار بايد كرد ، در واقع تابعي باشه كه ورودي عكس بگيره و خروجي به شكل زير بده
X Y R G B

سلام
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.ListBox1.Items.Clear()
Dim BMP = CType(Me.PictureBox1.Image, Bitmap)
For X = 0 To BMP.Width - 1
For Y = 0 To BMP.Height - 1
Dim PixelColor As Color = BMP.GetPixel(X, Y)
Dim PixelValue As Integer = BMP.GetPixel(X, Y).ToArgb
Me.ListBox1.Items.Add(String.Format("X={0} /n Y={1} Alpha={2} R={3} G={4} B={5} Argb={6}" _
, X, Y, PixelColor.A, PixelColor.R, PixelColor.G, PixelColor.B, PixelValue))
Application.DoEvents()
Next
Next
End Sub