Enlever la couleurs d'une image

0/5 (5 avis)

Vue 5 280 fois - Téléchargée 309 fois

Description

Créer un picturebox1, command1 pis metter votre image dans le picturebox

Source / Exemple :


Private Function ExtraireCouleur(Couleur As Long, compos) As Byte
Dim divis As Long
Dim Res As Long
Select Case compos
    Case 1: divis = 1&
    Case 2: divis = &H100
    Case 3: divis = &H10000
End Select
Res = (Couleur \ divis) And &HFF&
ExtraireCouleur = CByte(Res)
End Function

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim Rouge As Integer, Vert As Integer, Bleu As Integer
Dim CouleurFinale As Integer
For x = 0 To Picture1.ScaleWidth
For y = 0 To Picture1.ScaleHeight
Rouge = ExtraireCouleur(Picture1.Point(x, y), 1)
Vert = ExtraireCouleur(Picture1.Point(x, y), 2)
Bleu = ExtraireCouleur(Picture1.Point(x, y), 3)
CouleurFinale = (Rouge + Vert + Bleu) \ 3
Picture1.PSet (x, y), RGB(CouleurFinale, CouleurFinale, CouleurFinale)
Next y
DoEvents
Line1.X1 = x
Line1.X2 = x
Next x
End Sub

Conclusion :


UTILISATION DU LOGICIEL DANS LE ZIP
- Il ne fonctionne pas en runtime
- Il faut le compiler
- Le copier dans C:\windows\sendto
- Ensuite cliquer sur le bouton droit sur le fichier BMP
- Aller sur Envoyer vers Nomdeexe.exe

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

-
Dans ce genre de fonction tout les code ce ressemble
Hummmm. Est ce bien honnête ? Ce code ressemble vachement au mien, sauf que le mien propose des tons de ris, de bleu, de rouge et de vert.
(mon code est identique au tiens, seules les variables changent).

J'éspère que ce n'est pas du copiage.
@ + bonne continuation.
ophidian t'aime pas les raptor ??

Le zip est va bientot être la
hum... sa marche pas
surtout, y a pas de pub pour le quad ;-)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.