1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Separation des couleurs

Separation des couleurs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 063 fois - Téléchargée 45 fois

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

Ajouter un commentaire Commentaires
bestmomo Messages postés 132 Date d'inscription samedi 25 mai 2002 Statut Membre Dernière intervention 31 août 2007
6 juil. 2002 à 21:40
Ben pas jeune mais rapide le bestmomo :)
cs_Alain Proviste Messages postés 908 Date d'inscription jeudi 26 juillet 2001 Statut Modérateur Dernière intervention 1 février 2015 2
5 juil. 2002 à 21:10
bestmomo m'a coupé l'herbe sous le pied, il a mis juste avant moi ;)
bestmomo Messages postés 132 Date d'inscription samedi 25 mai 2002 Statut Membre Dernière intervention 31 août 2007
4 juil. 2002 à 20:28
Il a raison Alain, c'est dommage de remettre la fonction RGB.
C'est plus simple avec l'Hexa comme ça :

Rouge = Couleur And &HFF
Vert = (Couleur And &H100FF00) / &H100
Bleu = (Couleur And &HFF0000) / &H10000
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
4 juil. 2002 à 14:44
Bah oué j'ai poster un code sur les priorité des items dans le listbox, j'en ai mis beaucoups quand même.

Merci du commentaire

A+
cs_Alain Proviste Messages postés 908 Date d'inscription jeudi 26 juillet 2001 Statut Modérateur Dernière intervention 1 février 2015 2
4 juil. 2002 à 13:35
Au fait ça faisait longtemps que t'avais rien posté, c'est cool que tu reparticipes...
Afficher les 7 commentaires
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)