espacer les hexadecimales dans des textbox
Bonjour,
je rentre une valeur en décimale que je convertir en hexadécimale.
exemple : 18985621 ça me donne en little endian hexadécimale : 95 B2 21 01
je voudrais en sortie ce me donne dans des textbox : &95 &b2 &21 &01
Code:
1 2 3 4 5 6 7 8 9 10 11 12
|
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim value = reverse(Hex(TextBox1.Text))
Dim raw As Byte() = New Byte((value.Length / 2) - 1) {}
For i = 0 To raw.Length - 1
raw(i) = value.Substring(i, 2)
Next i
TextBox2.Text = "&H" & raw(0) '&95
TextBox3.Text = "&H" & raw(1) '&b2
TextBox4.Text = "&H" & raw(2) '&21
TextBox5.Text = "&H" & raw(4) '&01
End Sub |
il m'affiche une erreur : La conversion de la chaîne "5B" en type 'Byte' n'est pas valide.
pouvez-vous me dire comment corriger cela car je voudrais en sortie recuperer les offsets dans des textbox?
Merci de votre réponse,