مشکل با paintEventArgs

[programmermp]

با سلام

دوستان لطف کنید کد زیر رو امتحان کنید ببینید چرا برای من هی به این painteventargs

گیر میده من نمی دونم چطوری باید تابع زیر رو فراخوانی کنم که با این مشکل نداشته باشه

یکی اگه من رو راهنمایی کنه ممنون می شم

با تشکر فراوان




Public Sub GetPixel_Example(ByVal e As PaintEventArgs) ' Create a Bitmap object from an image file. Dim myBitmap As New Bitmap("Grapes.jpg") ' Get the color of a pixel within myBitmap. Dim pixelColor As Color = myBitmap.GetPixel(50, 50) ' Fill a rectangle with pixelColor. Dim pixelBrush As New SolidBrush(pixelColor) e.Graphics.FillRectangle(pixelBrush, 0, 0, 100, 100)End Subمشکل : نحوه فراخوانی تابع

[programmermp]

سلام

من شرمنده ام به خدا

هر کاری می کنم کدها رو بد می اندازه

ببخشید

در ضمن هدفم از کد بالا اینه که با کلیک کردن رو ی یک تصویری که در یک پیکچر باکس هست

رنگ پیکسل خاصی رو بدست بیارم و بتونم عوض کنم رنگش رو و عکس رو با رنگ جدید

ذخیره کنم البته این بخشی از کدهای مورد نظر هست برای انجام این کارها

منتظر جوابتون هستم

[ghafoori]

دوست عزیز احتمالا مشکل در فرخوانی تابع است چون کد شما را به این صورت نوشتم داخل برنامه مشکلی نگرفت کد قسمت فرخوانی را هم داخل سایت بگذارید

Public Sub GetPixel_Example(ByVal e As PaintEventArgs)
' Create a Bitmap object from an image file.
Dim myBitmap As New Bitmap("G:\Documents and Settings\ali\My Documents\My Pictures\images.jpg")
' Get the color of a pixel within myBitmap.
Dim pixelColor As Color = myBitmap.GetPixel(50, 50)
' Fill a rectangle with pixelColor.
Dim pixelBrush As New SolidBrush(pixelColor)
e.Graphics.FillRectangle(pixelBrush, 0, 0, 100, 100)
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
GetPixel_Example(e)
End Sub

[programmermp]

اقا خیلی ممنون

اشتباه تو فراخوانی بود

یه سئوال دیگه حالا اگه من بخواهم وقتی ماوس رو کلیک می کنم مختصات پیکسلی که ماوس روش کلیک شده در پیکچر باکس که یک تصویر هم در اون قرار دادیم رنگ اون قسمت رو بدست بیارم تغییرش بدم و عکس موجود در پیکچر باکس رو با اون تغییر ذخیره کنم چطوری میشه

من خودم دارم روش کار می کنم اگه زودتر به جواب رسیدم اینجا می زارم

بنده حقیر رو از نظراتتون محرم نکنید هااااااااااااا

با تشکر فراوان

[__H2__]

سلام
با کدی مثل این:
(تصویر داخل PictureBox حتماً باید از نوع System.Drawing.Bitmap باشد.


PrivateSub PictureBox1_MouseDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

Dim bmp As System.Drawing.Bitmap = CType(Me.PictureBox1.Image, System.Drawing.Bitmap)

bmp.SetPixel(e.X, e.Y, System.Drawing.Color.Blue)
Me.PictureBox1.Invalidate()
EndSub