Enlever la couleurs d'une image

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_max12)