elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  vb actualizar valor de existencias de material de un listbox archivo txt
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: vb actualizar valor de existencias de material de un listbox archivo txt  (Leído 2,177 veces)
horlo

Desconectado Desconectado

Mensajes: 10


Ver Perfil
vb actualizar valor de existencias de material de un listbox archivo txt
« en: 15 Febrero 2015, 18:10 pm »

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
  1. codigo = Label25.Caption
  2. producto = Label3.Caption
  3.     Prec = Label11.Caption
  4.     existencias = Label24.Caption
  5.  
  6.   If producto = Label3.Caption Then
  7.  
  8.    existencias = existencias - Val(Text2.Text)
  9.  
  10.     archivo = App.Path & "\Productos.dat"
  11. Open archivo For Append As #1
  12. Write #1, codigo, producto, Prec, existencias
  13. Close
  14.  
  15.  End If

Si alguien me puede ayudar, gracias

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


« Última modificación: 15 Febrero 2015, 18:16 pm por engel lex » En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: vb actualizar valor de existencias de material de un listbox archivo txt
« Respuesta #1 en: 15 Febrero 2015, 21:05 pm »

facil, tenes que recorrer los items del listbox.


En línea

horlo

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: vb actualizar valor de existencias de material de un listbox archivo txt
« Respuesta #2 en: 15 Febrero 2015, 22:10 pm »

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

Brian1511

Desconectado Desconectado

Mensajes: 268


¿Quien soy esa es la gran pregunta?


Ver Perfil WWW
Re: vb actualizar valor de existencias de material de un listbox archivo txt
« Respuesta #3 en: 15 Febrero 2015, 23:46 pm »

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
  1.  
  2. Sub LoadList(List As ListBox, FileName As String)
  3. Dim LineaTexto As String
  4. Open App.Path & "\" & FileName For Input As #1
  5.  
  6. While Not EOF(1)
  7. Line Input #1, LineaTexto
  8. List.AddItems LineaTexto, 0
  9. Wend
  10.  
  11. Close #1
  12. End Sub
  13.  
  14. Sub SaveList(List As ListBox, FileName As String)
  15. Dim i As Integer
  16. Open App.Path & "\" & FileName For Output As #1
  17.  
  18. For i = 0 To List.ListCount
  19. Print #1, List.Selected
  20. Next i
  21. Close #1
  22. End Sub
  23.  
  24.  

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 ;)
En línea



Creador de BrainMind
horlo

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: vb actualizar valor de existencias de material de un listbox archivo txt
« Respuesta #4 en: 16 Febrero 2015, 00:13 am »

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

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines