Dim Endroit As Variant ' ça c'est le gestionnaire de navigation dans le programme ' C'est ici que ça buggue Private Sub VScroll2_Change() On Error GoTo trap Dim Ligne As Integer FileBuffer = Form2.FileBuffer Ligne = 0 Form1.Lines(Ligne).Caption = Empty For i = 0 To 80 If Form1.Bits(i + 1).Top > Form1.Bits(i).Top Then Ligne = Ligne + 1 Form1.Lines(Ligne).Caption = Empty End If ' <<<<--- BUG --->>>> Endroit = VScroll2.Value * 8 + i + 1 ' Le programme met un overflow ici alor que ' Endroit ne depasse pas les 50 000 ! ' <<<<--- BUG --->>>> Form1.Bits(i + 1).Caption = Right("00" & Hex(Asc(Mid(FileBuffer, Endroit, 1))), 2) Form1.Bits(i + 1).Visible = True ' The nom If Asc(Mid(FileBuffer, Endroit, 1)) > 32 And Asc(Mid(FileBuffer, Endroit, 1)) < 126 Then Form1.Lines(Ligne).Caption = Form1.Lines(Ligne).Caption & Mid(FileBuffer, Endroit, 1) Else Form1.Lines(Ligne).Caption = Form1.Lines(Ligne).Caption & "." End If Next i Exit Sub trap: ' C'est le gestionnaire de tronquage pour les fins de fichiers ' qui ne tombent pas sur un nombre exact d'octets ... For j = i To 80 Form1.Bits(j).Visible = False Next j Exit Sub End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionUn déterrage de 10 ans et des bananes...