Discussion :

[hacker59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[hacker59]

Merci, pol63 pour ta réponse.