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:
Citar
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 ;)
Hola soy horlo, gracias por contestar a los dos seba123neo y brian1511
tema resuelto
cada dia se aprenden cosas, gracias