Foro de elhacker.net

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:

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

facil, tenes que recorrer los items del listbox.

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

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

 
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:


Espero que te sirva como ami ;)

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