[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 فارغة .. أي أن السطر الثالث غير موجود

[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) 


[Mohamed371]

(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) 


اشتغل .. شكرا ليك جدا
♥♥♥♥♥♥♥♥♥♥♥