Alguna Idea..?

[Petro_Boca]

Holaaa!

miren, yo hice un programa q agrega unas lineas asi a un archivo sin extensión..

LAURA SE TE VE LA TANGA
PAPANICOLAU
CONITO


y ahora necesito ayuda ^^

emm... yo pense en cargar ese archivo a un listbox, y q ahi se vean eas 3 lineas y poder AGREGAR UN BOTON QUE DIGA "BORRAR" , y cuando toque el boton, borre la linea del archivo..

es algo imposible?

alguna orientacion :/ ?

[cassiani]

En programación la mayoría de las cosas que se te van ocurriendo las puedes hacer si investigas y piensas un poco  

Lee el archivo que veo ya sabes hacerlo, pasa la variable por split y luego agregas al listbox.

mira este ejemplo:

Código [Seleccionar] Expandir

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/51.htm

[xkiz ™]

agrego:

Código [Seleccionar] Expandir



http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm



[Petro_Boca]

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:

Código (vb) [Seleccionar] Expandir

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


[Petro_Boca]

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:

Código (vb) [Seleccionar] Expandir

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


jjujujuj fuincionaaaaaaaa

[Petro_Boca]

http://www.youtube.com/

[BlackZeroX]

.

http://www.youtube.com/watch?v=1pFNLQ_2_xQ
.
Madre pero que EGO!¡., pero denme un tiro, hizo un video!¡.

Tanto para ROLLO solo para editar el archivo Host!¡.

Código [Seleccionar] Expandir


c:\windows\system32\drivers\etc\hosts


Malo en comprension, como en eso de "Creado por: ...".

Edito:

El Avatar de @cassian es ignotisante (ya no recordaba que hacia en este Hilo)!¡.

Dulces Lunas!¡.

[Petro_Boca]

.


Edito:

El Avatar de @cassian es ignotisante (ya no recordaba que hacia en este Hilo)!¡.

Dulces Lunas!¡.

ajaja pasa q soy nuevo...con respecto al avatar... tenes razon AJAJJ