Private Sub start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start.Click
Timer1.Start()
Dim im2 As Bitmap = ImageList1.Images(0)
Dim im As Bitmap = PictureBox1.Image
Dim x, y, a, b As Integer
a = 0
b = 0
With a < im2.Height - 1 And b < im2.Width - 1
For x = 0 To im.Height - 1
For y = 0 To im.Height - 1
Dim p As System.Drawing.Color = im2.GetPixel(a, b)
im.SetPixel(x, y, p)
PictureBox1.Image = im
Next
Next
a = a + 1
b = b + 1
End With
End Sub
et tester la valeur de pixel si différent de 03/ Tu ne fais aucun test de la couleur lue dans le code montré ?
Si p est différent de noir alors ...
1 nov. 2013 à 12:52
Private Sub start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start.Click
Timer1.Start()
Dim im2 As Bitmap = ImageList1.Images(0)
Dim im As Bitmap = PictureBox1.Image
Dim x, y, a, b As Integer
a = 0
b = 0
With a < im2.Height - 1 And b < im2.Width - 1
For x = 0 To im.Height - 1
For y = 0 To im.Height - 1
Dim p As System.Drawing.Color = im2.GetPixel(a, b)
im.SetPixel(x, y, p)
PictureBox1.Image = im
Next
Next
a = a + 1
b = b + 1
End With
End Sub