Error de NullReferenceException en lectura de archivos VB.NET

[Bazookao]

hola de nuevo un saludo

tengo el siguiete codigo para guardar los datos de una clase en archivo

Código VB.NET:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sw = New FileStream("MyFile.txt", FileMode.CreateNew)
        Dim w As New BinaryWriter(sw)
        Dim tex As String
 
        w.Write(objeto_archivo._a)
        w.Write(objeto_archivo._b)
        w.Write(objeto_archivo._c)
        w.Write(objeto_archivo._d.Items.Count)
        For i = 0 To objeto_archivo._d.Items.Count - 1
            objeto_archivo._d.SetSelected(i, True)
            tex = objeto_archivo._d.SelectedItem
           (objeto_archivo._d.SelectedIndex + i))
            w.Write(tex)
        Next
        sw.Close()
    End Sub
 

el campo _a es un entero, el _b es un string, el _c esun double y el _d es un ListBox
y guarda los items que este tenga en el archivo

---
ahora tengo es te codigo para leer desde el archivo

Código VB.NET:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Items.Clear()
               
        Dim fs = New FileStream("MyFile.txt", FileMode.Open, FileAccess.Read)
        Dim r As New BinaryReader(fs)
        Dim num As Integer
        objeto_archivo._a = r.ReadInt32()
        objeto_archivo._b = r.ReadString()
        objeto_archivo._c = r.ReadDouble()
        num = r.Read
        For i = 0 To num - 1
            objeto_archivo._d.Items.Add(r.ReadString)
            ListBox1.Items.Add(r.ReadString)
        Next        
        r.Close()
    End Sub
 

todo corre bien hasta cuando empieza leer los datos de la listbox y me dice:

Código:

"No se controlo NullReferenceException.

referencia a objeto no establecida como instancia de un objeto"

pero objeto_archivo esta declarado como public en el form 1
y cuadno lo voy depurando los campos _a,_b y_c se se guardadn de forma
correcta por lo que creo que es algo sobre la listbox pero no se que ayuda

[Trulala de cordoba]

Fijate en el código del error el número de línea que lo da.
Pero tal vez será por acá:

For i = 0 To num - 1
objeto_archivo._d.Items.Add(r.ReadString)
ListBox1.Items.Add(r.ReadString)

En algún momento le debes esta tratando de agregar un null al combo. Metele un punto de interrupción y seguile el código como va cargando el combo, a lo mejor cuando llega al último indice está vacío o algo.

[Bazookao]

Hola gracias por responder

pedon por haberme olvidaddo de este post si efectivamente es por que el fichero se acava y r.readstring ya no sabe que cargarle a las listas

Código VB.NET:

For i = 0 To num - 1            
objeto_archivo._d.Items.Add(r.ReadString)   
         ListBox1.Items.Add(r.ReadString)   
     Next
 

ahi num-1 le dice que el ciclo la va hacer un numero de veces de registros que tenga el archivo pero menos 1 por que empezamos desde cero
el problemas es que cada ves que se ejecuata el ciclo ahi dos r.readstring por lo tanto a la mitad se acava el archivo
por lo cual esto se soluciona de la siguintes formas

Código VB:

For i = 0 To (num - 1)*2    
        objeto_archivo._d.Items.Add(r.ReadString) 
           ListBox1.Items.Add(r.ReadString) 
   Next
 

spero a alguien le pueda ayudar mi post

Saludo a Toda la Comunidad
o

Código VB:

For i = 0 To num - 1     
cosa=r.ReadString
       objeto_archivo._d.Items.Add(cosa)      
      ListBox1.Items.Add(cosa)    
    Next