Preserver une valeur héxadecimale en VB6Résolu

Question

Bonjour,


ma question est assez simple :


je definis un message en hexad&#233;cimal o&#249; tous les caracteres sont
importants, comme &h00D0F4A. Ce que VB6 fait (par defaut peut &#234;tre)
est : &hD0F4A, si les premiers caracteres sont des '0'.


Comment est ce que je peux pr&#233;server l'int&#233;grali&#233; du message, avec les '0' au d&#233;but ?



Je vous remercie d'avance,



Theg'

cs_Jack · Accepted Answer

Salut
En fait, si tu utilises la syntaxe du genre &h00D0F4A dans une variable de type num&#233;rique comme un Long, c'est normal, les 0 devant ne sont pas repr&#233;sentatifs.
Si tu veux conserver tes 0 devant, il faut consid&#233;rer ta donn&#233;e comme une chaine.
Utilises  a$ = "&h00D0F4A"
Si tu veux r&#233;utiliser ta valeur en chiffre, utilise les fonctions de convertion : Val ou CLng :
    Val("&h00d0f4a")
    CLng("&h00d0f4a")

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Gobillot · Answer

Dim nombre As Long

nombre = 855882



MsgBox Right$("00000000" & Hex$(nombre), 8)

Daniel

Thegemin · Answer

Bonsoir,



d&#233;ja, merci pour votre temps !! 



Jack >> justement l&#224; o&#249; est mon probl&#232;me c'est au traitement d'un
message, j'ai besoin que les '0' devant soient r&#233;presentatifs parce que
j' applique diff&#233;rents calculs dessus. en fait ce sont des codes h&#233;xa
et non des valeurs, j avais peut &#234;tre oubli&#233; de le preciser.



Theg

crenaud76 · Answer

Alors comme le dis Jack, utilises une chaine de caractères

Preserver une valeur héxadecimale en VB6

4 réponses

Discussions similaires