[vb]couleur hexa ==> couleur VB

couleur hexa ==> couleur VB [vb] - VB/VBA/VBS - Programmation

Marsh Posté le 26-02-2004 à 23:24:03    

Voila g cherché un prog qui pourait me convertir des couleur hexa (#000000) en couleur visual basic mais je n est rien trouvé donc si quelqu un en conné un ? :jap:

Reply

Marsh Posté le 26-02-2004 à 23:24:03   

Reply

Marsh Posté le 26-02-2004 à 23:27:07    

bin c'est simple a priori (j'ai pas essayé): tu convertis la valeur hexa en valeur Long et le tour est joué [:spamafote]
 
genre, tu récupères dans un long la valeur produite par l'expression
 

Code :
  1. CLng("&H888888" )


 
sachant que "&H" est le préfixe VB pour faire reconnaître un nombre hexadécimal. (là je viens de tester, c'est bon)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 27-02-2004 à 00:07:14    

je voi pas ce que c CLng  
 

Reply

Marsh Posté le 27-02-2004 à 01:44:09    

drasche a écrit :

bin c'est simple a priori (j'ai pas essayé): tu convertis la valeur hexa en valeur Long et le tour est joué [:spamafote]
 
genre, tu récupères dans un long la valeur produite par l'expression
 

Code :
  1. CLng("&H888888" )


 
sachant que "&H" est le préfixe VB pour faire reconnaître un nombre hexadécimal. (là je viens de tester, c'est bon)


Tu es sûr ?
 
Il me semblait que les couleurs hexa étaient en RGB alors que les coulerus VB (windows en fait) sont en BGR. Il faut donc échanger les 2 premiers et les 2 derniers chiffres du nombre en hexa.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 27-02-2004 à 10:00:53    

aie oui j'avais oublié ce détail [:meganne]
 
j'en sais rien en fait [:spamafote]


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 27-02-2004 à 10:02:04    

extrait de l'aide (pour Backcolor):  
 

Citation :

Visual Basic uses the Microsoft Windows operating environment red-green-blue (RGB) color scheme.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 27-02-2004 à 15:07:45    

merci baucoup !
sinon pour il nous font chier a prendre plein de base de couleur differnete i devrais prendre tous la meme sa simplifirait la vie de tous le monde ?! non ?

Reply

Marsh Posté le 27-02-2004 à 15:33:14    

leplusapte a écrit :

merci baucoup !
sinon pour il nous font chier a prendre plein de base de couleur differnete i devrais prendre tous la meme sa simplifirait la vie de tous le monde ?! non ?


 
La normalisation de l'informatique c'est pas encore ça...


---------------
What if I were smiling and running into your arms? Would you see then what I see now?  
Reply

Marsh Posté le 27-02-2004 à 20:25:24    

drasche a écrit :

extrait de l'aide (pour Backcolor):  
 

Citation :

Visual Basic uses the Microsoft Windows operating environment red-green-blue (RGB) color scheme.




 
petiti test:
 

Code :
  1. 'RGB(red, green, blue)
  2.   Debug.Print CStr(RGB(1, 0, 0))
  3.   Debug.Print CStr(RGB(0, 0, 1))


 

resultat a écrit :

 
1
65536




 
c'est donc bien stocké en BGR  ;)  


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 27-02-2004 à 20:38:39    

quelle bande d'emmerdeurs :o


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed