تقييم الموضوع :
  • 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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في نقل البرنامج الى جهاز اخر سيف الشمال 8 485 منذ 5 ساعة مضت
آخر رد: fish
Lightbulb [سؤال] عندي مشكلة في تحزيم مشروع zeyimerg 3 178 10-09-21, 08:53 PM
آخر رد: asemshahen5
Lightbulb [سؤال] عندي مشكلة في تحزيم مشروع zeyimerg 1 122 09-09-21, 04:17 PM
آخر رد: aftfm
  [VB.NET] مشكلة في الحفظ علي بوبكر ابراهيم 2 274 04-09-21, 02:40 PM
آخر رد: علي بوبكر ابراهيم
Exclamation [VB.NET] سؤال حول مشكلة كتابة التاريخ في جملة update ali bajmmal 4 386 01-09-21, 06:35 PM
آخر رد: Anas Mahmoud
  مشكلة الحفظ التلقائى اسلام الكبابى 3 198 30-08-21, 09:39 PM
آخر رد: asemshahen5
  السلام عليكم مساعدة في حل مشكلة samira20 1 223 25-08-21, 08:09 AM
آخر رد: samira20
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 358 21-08-21, 06:32 PM
آخر رد: mmaalmesry
Question [سؤال] حل مشكلة تظهر عند تحويل كود من VBA إلى VB.NET السندبااد 1 301 19-08-21, 11:42 AM
آخر رد: السندبااد
  [VB.NET] مشكلة الاسكانر وتوقف المشروع محمد اسماعيل 1 316 16-08-21, 09:20 PM
آخر رد: asemshahen5

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


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