METTRE UNE IMAGE EN NOIR ET BLANC RAPIDEMENT
Cyberdevil
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006
-
27 sept. 2002 à 17:40
cs_AntiSlash Messages postés 61 Date d'inscription dimanche 21 juillet 2002 Statut Membre Dernière intervention 23 avril 2003 - 29 sept. 2002 à 22:31
cs_AntiSlash Messages postés 61 Date d'inscription dimanche 21 juillet 2002 Statut Membre Dernière intervention 23 avril 2003 - 29 sept. 2002 à 22:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4638-mettre-une-image-en-noir-et-blanc-rapidement
https://codes-sources.commentcamarche.net/source/4638-mettre-une-image-en-noir-et-blanc-rapidement
29 sept. 2002 à 22:31
Private Sub Command1_Click()
picture4.picture = picture4.image
savepicture picture4.picture,"C:essai.bmp"
End Sub
g essayé, ca marche
pour Cyberdevil: oui c possible: tu prend la couleur de chaques pixels et tu teste avec une valeur limite et si c en dessous, noir, audessus, blanc (c vraiment pa beau mai si c ca que tu veux)... un petit exemple:
Private Sub Command1_Click()
For X = 1 To Picture1.ScaleWidth
For Y = 1 To Picture1.ScaleHeight
c = Picture1.Point(X, Y)
If c < 4000000 Then
Picture1.PSet (X, Y), RGB(0, 0, 0)
Else
Picture1.PSet (X, Y), RGB(255, 255, 255)
End If
Next Y
DoEvents
Next X
End Sub
@+
28 sept. 2002 à 17:05
27 sept. 2002 à 21:54
27 sept. 2002 à 17:43
Moi j'aimerai convertir une image en noir & blanc uniquement !
C'est possible ?
27 sept. 2002 à 17:40