Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 063 fois - Téléchargée 45 fois
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
6 juil. 2002 à 21:40
5 juil. 2002 à 21:10
4 juil. 2002 à 20:28
C'est plus simple avec l'Hexa comme ça :
Rouge = Couleur And &HFF
Vert = (Couleur And &H100FF00) / &H100
Bleu = (Couleur And &HFF0000) / &H10000
4 juil. 2002 à 14:44
Merci du commentaire
A+
4 juil. 2002 à 13:35
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.