+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة ال SetPixel مع صورة موجودة (/showthread.php?tid=38798)
مشكلة ال SetPixel مع صورة موجودة - Mohamed371 - 01-07-21
السلام عليكم ورحمة الله وبركاته
كود :
Dim pic As Bitmap
pic = New Bitmap(510, 900)
pic = My.Resources.p531
Dim r, g, b As Integer
For y1 As Integer = 359 To 319
For x1 As Integer = 389 To 509
Dim p4 As Color = pic.GetPixel(x1, y1)
r = p4.R : g = p4.G : b = p4.B
If r < 30 And g < 30 And b < 30 Then
pic.SetPixel(x1, y1, Color.Blue)
End If
Next
Nextهنا كود setpixel لا يعمل إلا إذا كانت pic فارغة .. أي أن السطر الثالث غير موجود
RE: مشكلة ال SetPixel مع صورة موجودة - c#dev - 01-07-21
(01-07-21, 05:37 PM)Mohamed371 كتب :السلام عليكم ورحمة الله وبركاتهكود :
Dim pic As Bitmap
pic = New Bitmap(510, 900)
pic = My.Resources.p531
Dim r, g, b As Integer
For y1 As Integer = 359 To 319
For x1 As Integer = 389 To 509
Dim p4 As Color = pic.GetPixel(x1, y1)
r = p4.R : g = p4.G : b = p4.B
If r < 30 And g < 30 And b < 30 Then
pic.SetPixel(x1, y1, Color.Blue)
End If
Next
Next
هنا كود setpixel لا يعمل إلا إذا كانت pic فارغة .. أي أن السطر الثالث غير موجود
جرب تعديل الاسطر الثلاث الاولى الى هذا السطر
PHP كود :
Dim pic As New Bitmap(My.Resources.p531)
RE: مشكلة ال SetPixel مع صورة موجودة - Mohamed371 - 01-07-21
(01-07-21, 05:59 PM)c#dev كتب :(01-07-21, 05:37 PM)Mohamed371 كتب :السلام عليكم ورحمة الله وبركاتهكود :
Dim pic As Bitmap
pic = New Bitmap(510, 900)
pic = My.Resources.p531
Dim r, g, b As Integer
For y1 As Integer = 359 To 319
For x1 As Integer = 389 To 509
Dim p4 As Color = pic.GetPixel(x1, y1)
r = p4.R : g = p4.G : b = p4.B
If r < 30 And g < 30 And b < 30 Then
pic.SetPixel(x1, y1, Color.Blue)
End If
Next
Next
هنا كود setpixel لا يعمل إلا إذا كانت pic فارغة .. أي أن السطر الثالث غير موجود
جرب تعديل الاسطر الثلاث الاولى الى هذا السطر
PHP كود :
Dim pic As New Bitmap(My.Resources.p531)
اشتغل .. شكرا ليك جدا
♥♥♥♥♥♥♥♥♥♥♥
♥♥♥♥♥♥♥♥♥♥♥