¿como borro en el txt lo q borro en una list?

[erbuson]

Hola:

Primero, pienso que si le dieses esta forma a tu rutina, sería mas fácil de entender en el futuro y con menos lineas.

Código vb:

Private Sub Form_Load()
  Dim numero As Integer, variable As String
  Open App.Path & "\listadodeelementos.txt" For Input As #1
  While Not EOF(1)
    Line Input #1, variable
    numero = numero + 1
    Select Case numero
      Case Is = 1: List11.AddItem variable
      Case Is = 2: List12.AddItem variable
      Case Is = 3: List13.AddItem variable: numero = 0
    End Select 
  Wend
  Close #1
End Sub
 

En respuesta a tu pregunta, podrías tener una rutina como esta o similar que deberás llamar cada vez que elimines o añadas un elemento al grupo de List

Código vb:

Private Sub GrabarElementos()
  Dim elemento As Integer
  Open App.Path & "\listadodeelementos.txt" For Output As #1
    For elemento = 0 To List11.ListCount - 1
      Print #1, List11.List(elemento)
      Print #1, List12.List(elemento)
      Print #1, List13.List(elemento)
    Next
  Close #1
End Sub
 

Ten en cuenta que este sistema, supone que cada uno de los List tiene el mismo número de elementos y que cuando eliminas uno en un List, lo eliminas de todos.

Saludos