|
20 |
Attempt to read/write beyond end of stream |
Handheld Basic |
|
Descrição do Erro: |
Este erro ocorre quando você tenta ler algo na Stream em uma posição antes do inicio da mesma ou após
Exemplo de como causar o erro:
Private Sub Button1_Click()
Dim sm As New StreamMemory
Dim s as String, i as Integer
sm.Write "Curso de HB++ na Softpalm"
sm.Read s ' Erro #20
End Sub |
|
Possível solução: |
|
|
A solução é ter certeza que está lendo a Stream dentro de seu range, para corrigir o exemplo acima:
Private Sub Button1_Click()
Dim sm As New StreamMemory
Dim s as String, i as Integer
sm.Write "Curso de HB++ na Softpalm"
sm.SeekToBegin
sm.Read s ' Sem erro
End Sub |
|
contador
|