ya hice el codigo para cargar|guardar datos del C:\A.txt a un listbox...
ahora estoy tratando de eliminar items del listbox, pero no tengo idea xD
lei varios codes, pero O.O
ahora voi a probar con este:
Option Explicit
' Nota: Establecer la propiedad "Style" del listbox en Checked
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Eliminar_ListBox_Check(ListBox As ListBox)
Dim i As Integer
With ListBox
'Recorremos toda la lista
For i = 0 To ListBox.ListCount - 1
'Si i es igual a la cantidad salimos del For
If i = .ListCount Or .ListCount = 0 Then Exit For
Debug.Print .List(i)
' Verificar el item si está marcado
If ListBox.Selected(i) = True Then
' .. Lo eliminamos
.RemoveItem (i)
' Restamos uno a i para verificar el siguiente
If .ListCount > 0 Then i = i - 1
End If
Next
End With
End Sub
Private Sub Command1_Click()
Call Eliminar_ListBox_Check(List1)
End Sub
Private Sub Form_Load()
Dim i As Integer
With List1
For i = 0 To 9
.AddItem "Item " & i
Next
End With
Command1.Caption = " Eliminar Items del listbox "
End Sub