رسم نقطه در picturebox

[aagghh]

سلام دوستان
چجوری میتونم توی یه جای دلخواه از pictureBox یک نقطه رسم کنم؟
ممنون از راهنمایی تون

[the king]

سلام دوستان
چجوری میتونم توی یه جای دلخواه از pictureBox یک نقطه رسم کنم؟
ممنون از راهنمایی تون

اگر می خواهید نقظه ای که در مختصات (20,50) به رنگ آبی رسم می کنید داخل رخداد Paint باشه :

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim pixel As New Bitmap(1, 1)
pixel.SetPixel(0, 0, Color.Blue)
e.Graphics.DrawImageUnscaled(pixel, 20, 50)
End Sub

[Saman_12]

همین طور میشه با این تابع این کار رو کرد :


Private Sub SetPixel(Ctrl As Control, p As Point, color As Color, Optional pixelw As Int32 = 1)

Using g As Graphics = Ctrl.CreateGraphics
Using Brush As New SolidBrush(color)

g.FillRectangle(Brush, New Rectangle(p, New Size(pixelw, pixelw)))
End Using
End Using
End Sub

[aagghh]

اگر می خواهید نقظه ای که در مختصات (20,50) به رنگ آبی رسم می کنید داخل رخداد Paint باشه :

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim pixel As New Bitmap(1, 1)
pixel.SetPixel(0, 0, Color.Blue)
e.Graphics.DrawImageUnscaled(pixel, 20, 50)
End Sub



از راهنمایی تون ممنونم
از کدتون استفاده کردم جواب داد
ولی اگه بخوام در لحظه اجرای برنامه چند نقطه رو تو مکانهای مختلف بزارم چی؟

[aagghh]

همین طور میشه با این تابع این کار رو کرد :


Private Sub SetPixel(Ctrl As Control, p As Point, color As Color, Optional pixelw As Int32 = 1)

Using g As Graphics = Ctrl.CreateGraphics
Using Brush As New SolidBrush(color)

g.FillRectangle(Brush, New Rectangle(p, New Size(pixelw, pixelw)))
End Using
End Using
End Sub



مرسی از راهنمایی تون
بجای p باید چی قرار بدم؟

[Saman_12]

مرسی از راهنمایی تون
بجای p باید چی قرار بدم؟

p همون point مورد نظره :

SetPixel(Me, New Point(30, 15), Color.DeepSkyBlue)