تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة ال SetPixel مع صورة موجودة
#1
السلام عليكم ورحمة الله وبركاته
كود :
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 فارغة .. أي أن السطر الثالث غير موجود


الرد
تم الشكر بواسطة:
#2
(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
الرد
تم الشكر بواسطة: Mohamed371 , ابراهيم ايبو
#3
(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


اشتغل .. شكرا ليك جدا
♥♥♥♥♥♥♥♥♥♥♥
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم