الكائن Bitmap

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

اخي العزيز لقد قمت ببعض التعديلات على برنامجك

الاولي عرف Dim bmp As Bitmap في بداية ال class

ويوجد تعديل في اجراء read ضع التالي

 bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)

و

  pa(bmp, x(0), x(1), x(2), x(3), x(4))

وكذلك بعد الخروج من loop qu

  PictureBox1.Image = bmp

وفي اجراء pa ضع التالي

Dim c As New Color
		c = Color.FromArgb(red, green, blue)

		Dim br As New SolidBrush(c)
		Dim g As Graphics = Graphics.FromImage(bbb)
		bbb.SetPixel(x, y, c)
		Return g

مرفق البرنامج معدل

وتحياتي لك

splittingexamp1le.rar

ألف ألف ألف ألف شكر بجد أخي jbsa مش متخيله حضرتك عملتلي إيه بجد أنا كنت خلاص هتجنن

بجد جزاك الله كل خير وجعله في ميزان حسناتك أن شاء الله