vb actualizar valor de existencias de material de un listbox archivo txt

[horlo]

Hola soy horlo
tengo un problema del listbox
cuando entro un articulo en el listbox me lo descuenta el valor de existencia, pero cuando entro dos o más articulos en el listbox no me hace nada . Y no se como poner aqui el listbox para controlar los articulos entrados.
Hasta ahora tengo esto:

Código (vb) [Seleccionar] Expandir

codigo = Label25.Caption
producto = Label3.Caption
    Prec = Label11.Caption
    existencias = Label24.Caption
   
  If producto = Label3.Caption Then
   
   existencias = existencias - Val(Text2.Text)
   
    archivo = App.Path & "\Productos.dat"
Open archivo For Append As #1
Write #1, codigo, producto, Prec, existencias
Close
   
 End If

Si alguien me puede ayudar, gracias

Mod: Mensaje modificado, al publicar código usa etiquetas GeSHi

[seba123neo]

facil, tenes que recorrer los items del listbox.

[horlo]

Hola soy horlo
si, es que soy novato en programacion vb
entonces como seria en codigo vb recorrer los items del listbox archivo sequencial

[Brian1511]

Te recomiendo usar el Control FlexGrid puedes controlar mejor el listado, con columnas y tambien puedes guardar y cargar los datos a este FlexGrid!.

Si aun quieres usar el List, te recomiendo que separes la los datos para que al cargarlos no tengas problemas en este!

Y como dice nuestro amigo seba123neo para recorrer los items de un ListBox usa este simple codigo

Código (vb) [Seleccionar] Expandir



Sub LoadList(List As ListBox, FileName As String)
Dim LineaTexto As String
Open App.Path & "\" & FileName For Input As #1

While Not EOF(1)
Line Input #1, LineaTexto
List.AddItems LineaTexto, 0
Wend

Close #1
End Sub

Sub SaveList(List As ListBox, FileName As String)
Dim i As Integer
Open App.Path & "\" & FileName For Output As #1

For i = 0 To List.ListCount
Print #1, List.Selected
Next i
Close #1
End Sub



Pega este Codigo donde quieras:

Para llamarlos sera alo como esto:

Para Guardar usa este:
Call SaveList(ListBox1,"archivo.txt") o SaveList ListBox1, "archivo.txt"



Para Cargar usa este:
Call LoadList(ListBox1,"archivo.txt") o LoadSaveList ListBox1, "archivo.txt"

Espero que te sirva como ami

[horlo]

Hola soy horlo, gracias por contestar a los dos seba123neo y brian1511
tema resuelto
cada dia se aprenden cosas, gracias