bonjour, petit problème avec mon code, je doit ouvrir un fichier hexa a une position donnée avec seek et écrire dans mon textbox les caractère hexa (2 4 6 8 etc.. octet souhaité) de la position donnée, mais je n'y arrive pas d'où mon message. merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim choisir As New OpenFileDialog
        If choisir.ShowDialog() = 1 Then
            TextBox1.Text = choisir.FileName
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim choisir As String = TextBox1.Text
 
        If File.Exists(choisir) Then
            Dim fs As New FileStream(choisir, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
            Dim position As Integer = "2498"
            Dim reader As New BinaryReader(fs)
            For i As Long = 0 To reader.BaseStream.Length - 1
                fs.Seek(i, SeekOrigin.Begin)
                Exit For
            Next
 
 
 
        End If
    End Sub