message erreur byte en char

bonjour,

j'ai un petit problème avec un code , j'ai message erreur : Impossible de convertir les valeurs 'Byte' en 'Char'. Utilisez 'Microsoft.VisualBasic.ChrW' pour interpréter une valeur numérique en tant que caractère Unicode ou convertissez-la d'abord en 'String' pour obtenir un chiffre.

voici une partie de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private ID_protect As Byte Dim i As Integer For i = 0 To Me.file_from_len - 1 Me.ID_protect = CByte(reader.BaseStream.ReadByte) If (i = &H150) Then Me.buffer_protect(i) = ChrW(1) Else Me.buffer_protect(i) = DirectCast(ID_protect, Char) End If Next i reader.Close()

---

message d'erreur en rouge? pouvez-vous m'aider a corriger cet petite erreur.merci

Code:

---

Me.buffer_protect(i) =chr(ID_protect)

---

directcast ne sert pas à transformer quelquechose, et un byte n'a rien à voir avec un char, il y a plusieurs moyens de transformer un byte en char (ascii, utf8 etc...)

Merci, pol63 pour ta réponse.