Recupération de couleur VB dans un INI : fonctionne pas

Question

Bonjour,

Je récupère des couleurs sous le format '&H00000000&' dans un fichier ini mais vb n'arrive pas à s'en servir...
Il me dit 'type incompatible'

OK, il faut donc que je les convertisse, mais je ne sait pas comment, ni en quoi...
Si jamais quelqu'un a une sctite fonction qui traine...

Merci !

Guillaume

cs_ghuysmans99 · Answer

Avec CInt, tu dois retirer le & final.
---
VB.NET is good ... VB6 is better

cs_magicgus · Answer

J'ai essayer en faisans la fonction suivante mais ça plante : "dépassement de capacité"...


Function HexColorToIntColor(HexColor As String) As Integer
    MsgBox Left$(HexColor, 10)
    HexColorToIntColor = CInt(Left$(HexColor, 10))
End Function


Guillaume

cs_casy · Answer

EN VB6, les couleurs doivent être traitées comme des Long et doivent obligatoirement être inférieures ou égales à la valeur &H00FFFFFF&

[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

cs_magicgus · Answer

J'ai aussi essayé en enlevant le "&H" du début mais ce n'est pas encore ça...


Guillaume

cs_magicgus · Answer

Ok je veut bien...

Mais euh... Je ne sait quand mème pas par où commencer pour obtenir un long...

Guillaume

cs_ghuysmans99 · Answer

Oh désolé en testant j'ai utilisé CInt en oubliant que c'était une couleur que tu voulais convertir. Utilise donc CLng ...
---
VB.NET is good ... VB6 is better

jmf0 · Answer

Dim toto As Long
toto = Val("&H8080FF&")
MsgBox toto
toto = CLng(&H8080FF)
MsgBox toto
toto = &H8080FF
MsgBox toto

cs_ghuysmans99 · Answer

Depuis quand on utilise encore Var ? Ca date de Basic, vaudrait mieux oublier cette fonction ! Maintenant il y a les fonctions CType. Je précise que ces fonctions peuvent prendre une chaine contenant la représentation hexa d'un nombre et le convertir correctement. Parce que quand tu appelles une fonction avec le paramètre &h13, lors de la compilation, ça passera comme un entier normal (tu peux exprimer les nombres en VB d'au moins 2 façons différentes en VB6). Exemple : ceci fonctionnera et affichera 19 :Dim valeur As Long
valeur = CLng("&h13")
MsgBox valeur---
VB.NET is good ... VB6 is better

jmf0 · Answer

Bonsoir, ghuysmans99

Depuis quand ? ===>> depuis que VB existe !

Et alors ?

http://support.microsoft.com/kb/161304/fr

cs_magicgus · Answer

Yes merci à toi jmf0 !!!

Val fonctione !

Par contre clong me donne un type incompatible, mais maintenant grace à val tout roule !

Merci aussi à tous les autres !

Guillaume

cs_ghuysmans99 · Answer

CLng fonctionne quand on retire le & final.

---
VB.NET is good ... VB6 is better

jmf0 · Answer

Tu ne crois pas, ghuysmans99, que l'utilistion de Val (celle, d'ailleurs, que préconise Microsoft) est parfaitement adaptée à la transposition recherchée ? 
C'est, je te le rappelle, une chaîne de caractères qui est extraite ! L'utiliser telle quelle sera toujours moins lourd que de la tronquer de son dernier caractère pour pouvoir utiliser un Clng ...

cs_ghuysmans99 · Answer

Là je suis d'accord avec toi, d'autant plus que les fonctions de manipulations de chaines en VB ne sont pas très rapides ! Et c'est quand même bizarre que CLng ne prennent pas le & final, alors que Val le prend ...
---
VB.NET is good ... VB6 is better

Recupération de couleur VB dans un INI : fonctionne pas

13 réponses

Votre réponse

Discussions similaires