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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ayuda con 2 LISTAS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda con 2 LISTAS  (Leído 907 veces)
forrestgump

Desconectado Desconectado

Mensajes: 5



Ver Perfil
ayuda con 2 LISTAS
« en: 4 Junio 2008, 22:25 pm »

El caso es  que cuando agrego nombres  a la lista   LIST2 y agregarlo a un archivo.TXT todo marcha muy bien pero  necesito que cuando regrese algun otro momento al FORM y vuelva a agregar mas nombres esten ahi los nombres agregados anteriormente asi que hice otra lista llamada LIST3 como un respaldo para que se agregue a LIST2 pero  al parecer mi problema son los INDEX.. como le puedo hacer ????

es este el codigo y desactive unas cosas porque estoy  atorado en esto...  ojo por favor  ayudenme  porfis..

 :-[



Private Sub Command1_Click()

'List2.AddItem List3


List2.AddItem Text1.Text                 'AGREGO A LA LISTA
'List3.AddItem Text1.Text
Text1.Text = ""                      'LIMPIO TEXTBOX
List2.AddItem List2
'List3.AddItem List3

If List2.ListIndex = -1 Then Exit Sub
List2.RemoveItem List2.ListIndex

'If List3.ListIndex = -1 Then Exit Sub
'List3.RemoveItem List3.ListIndex

Call GuardarArchivo
End Sub

Private Sub GuardarArchivo()

Dim i As Integer                                'AGREGO AL ARCHIVO NOMBRES1
Open "c:\malpica\nombres1.txt" For Output As #1
For i = 0 To List2.ListCount - 1
Print #1, List2.List(i)
Next i
Close #1

'Open "c:\malpica\nombres2.txt" For Output As #1  'AGREGO AL ARCHIVO NOMBRES2
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1

End Sub

Private Sub Command2_Click()   ' BOTON PARA ORDENAR ALFABETICAMENTE
List1.Clear
For x = 0 To (List2.ListCount - 1)
    List1.AddItem List2.List(x)
Next
End Sub

Private Sub Command3_Click()    ' BOTON PARA ELIMINAR VARIOS
List2.RemoveItem List2.MultiSelect - 1

End Sub

Private Sub Command4_Click()     'BOOTON PARA MODIFICAR
List2.RemoveItem List2.ListIndex
List2.AddItem Text2.Text

End Sub

Private Sub Command5_Click()  ' BOTON PARA ELIMINAR UNO

List2.RemoveItem List2.ListIndex   'elimino de la lista2

Open "c:\malpica\nombres1.txt" For Output As #1 'elimino de archivo nombres1
For i = 0 To List2.ListCount - 1
Print #1, List2.List(i)
Next i
Close #1

List3.AddItem List2

'List3.RemoveItem List3.ListIndex   'elimino de la lista3
'Open "c:\malpica\nombres2.txt" For Output As #1   'elimino del archivo nombres2
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1

End Sub

Private Sub Form_Load()

'Dim i As Integer
'Open "c:\malpica\nombres1.txt" For Output As #1
'For i = 0 To List3.ListCount - 1
'Print #1, List3.List(i)
'Next i
'Close #1
'List2.AddItem List3

End Sub

 


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Listas Dinamicas[AYUDA]
Programación C/C++
andressitto007 6 2,921 Último mensaje 11 Abril 2011, 08:24 am
por Akai
Listas - Ayuda porfavor [Dev C++]
Programación C/C++
Lokirs 1 4,184 Último mensaje 8 Junio 2011, 12:20 pm
por Don Pollo
Listas y Sublistas..Ayuda!!
Programación C/C++
willy1855 2 5,127 Último mensaje 9 Mayo 2012, 16:40 pm
por durasno
relacionar 2 listas en VB 6.. ayuda!!!!
Programación Visual Basic
euphemia 2 1,492 Último mensaje 22 Octubre 2012, 14:56 pm
por seba123neo
Ayuda con Multi Listas POO C++
Programación C/C++
hyperiod 1 5,531 Último mensaje 17 Septiembre 2013, 09:17 am
por eferion
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines