01-07-21, 05:37 PM
السلام عليكم ورحمة الله وبركاته
كود :
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 فارغة .. أي أن السطر الثالث غير موجود