Bonjour
Cette procédure a fonctionné correctement. L'instruction SetPixelV (Ou Setpixel) ne marche plus ?
'-----------------------------------------------------------------------------------'
' '
' Remplace une ou plusieurs Couleurs par une Autre '
' '
'-----------------------------------------------------------------------------------'
Sub ReplaceCoul(Picture As PictureBox)
Dim CouleurLu As String
Dim OldCouleur As String
Dim NewCouleur As Long
OldCouleur = " " & NAM.Text4(1).Text & " " ' Liste des Couleurs à remplacer .
NewCouleur = Val(NAM.Text4(0).Text) ' Couleur de remplacement .
Picture.ScaleMode = 1
For I1 = 0 To Picture.ScaleWidth
NAM.Label10.Caption = I1 & "/" & Picture.ScaleWidth
DoEvents
For I2 = 0 To Picture.ScaleHeight
CouleurLu = " " & GetPixel(Picture.hdc, I1, I2) & " "
If InStr(OldCouleur, CouleurLu) > 0 Then
SetPixelV Picture.hdc, I1, I2, NewCouleur
Picture.Refresh
End If
Next I2
Next I1
Picture.Refresh
NAM.Label10.Caption = "Remplacer"
End Sub
Si vous avez la réponse .....
Par avance merci