Separation des couleurs

Commenter

Contenu du snippet

C'est simple, sa sert a séparer les couleur en R G B

Source / Exemple : 


Private Type Coul_Sep
    Rouge As Long
    Vert As Long
    Bleu As Long
End Type
Private Function SepareColor(Color As Long) As Coul_Sep
With SepareColor
    .Rouge = Int(Couleur And &HFF)
    .Vert = Int((Couleur And &H100FF00) / &H100)
    .Bleu = Int((Couleur And &HFF0000) / &H10000)
End With
End Function

Conclusion :


Pour l'utiliser :
Rouge = SepareColor("MaCouleur").Rouge
Vert = SepareColor("MaCouleur").Vert
Bleu = SepareColor("MaCouleur").Bleu

PS : Merci BestMomo

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)