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 :/ ?
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:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/51.htm
agrego:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm
ya hice el codigo para cargar|guardar datos del C:\A.txt a un listbox... ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D
ahora estoy tratando de eliminar items del listbox, pero no tengo idea xD :¬¬
lei varios codes, pero O.O :o :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
Cita de: petro_boca en 3 Agosto 2010, 21:38 PM
ya hice el codigo para cargar|guardar datos del C:\A.txt a un listbox... ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D
ahora estoy tratando de eliminar items del listbox, pero no tengo idea xD :¬¬
lei varios codes, pero O.O :o :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
jjujujuj fuincionaaaaaaaa
http://www.youtube.com/
.
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:\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!¡.
Cita de: BlackZeroX en 4 Agosto 2010, 03:19 AM
.
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