Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Petro_Boca en 3 Agosto 2010, 05:10 am



Título: Alguna Idea..?
Publicado por: Petro_Boca en 3 Agosto 2010, 05:10 am
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 :/ ?


Título: Re: Alguna Idea..?
Publicado por: cassiani en 3 Agosto 2010, 06:48 am
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:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/51.htm



Título: Re: Alguna Idea..?
Publicado por: xkiz ™ en 3 Agosto 2010, 06:51 am
agrego:


Código:

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



Título: Re: Alguna Idea..?
Publicado por: 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:

Código
  1. Option Explicit
  2.  
  3.  
  4. ' Nota: Establecer la propiedad "Style" del listbox en Checked
  5. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  6.  
  7. Private Sub Eliminar_ListBox_Check(ListBox As ListBox)
  8.  
  9.    Dim i As Integer
  10.    With ListBox
  11.        'Recorremos toda la lista
  12.        For i = 0 To ListBox.ListCount - 1
  13.  
  14.            'Si i es igual a la cantidad salimos del For
  15.            If i = .ListCount Or .ListCount = 0 Then Exit For
  16.            Debug.Print .List(i)
  17.            ' Verificar el item si está marcado
  18.            If ListBox.Selected(i) = True Then
  19.                ' .. Lo eliminamos
  20.                .RemoveItem (i)
  21.                ' Restamos uno a i para verificar el siguiente
  22.                If .ListCount > 0 Then i = i - 1
  23.            End If
  24.        Next
  25.    End With
  26.  
  27. End Sub
  28.  
  29. Private Sub Command1_Click()
  30.    Call Eliminar_ListBox_Check(List1)
  31. End Sub
  32.  
  33. Private Sub Form_Load()
  34.  
  35.    Dim i As Integer
  36.  
  37.    With List1
  38.  
  39.        For i = 0 To 9
  40.            .AddItem "Item " & i
  41.        Next
  42.    End With
  43.  
  44.    Command1.Caption = " Eliminar Items del listbox "
  45.  
  46. End Sub
  47.  


Título: Re: Alguna Idea..?
Publicado por: Petro_Boca en 3 Agosto 2010, 21:47 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:

Código
  1. Option Explicit
  2.  
  3.  
  4. ' Nota: Establecer la propiedad "Style" del listbox en Checked
  5. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  6.  
  7. Private Sub Eliminar_ListBox_Check(ListBox As ListBox)
  8.  
  9.    Dim i As Integer
  10.    With ListBox
  11.        'Recorremos toda la lista
  12.        For i = 0 To ListBox.ListCount - 1
  13.  
  14.            'Si i es igual a la cantidad salimos del For
  15.            If i = .ListCount Or .ListCount = 0 Then Exit For
  16.            Debug.Print .List(i)
  17.            ' Verificar el item si está marcado
  18.            If ListBox.Selected(i) = True Then
  19.                ' .. Lo eliminamos
  20.                .RemoveItem (i)
  21.                ' Restamos uno a i para verificar el siguiente
  22.                If .ListCount > 0 Then i = i - 1
  23.            End If
  24.        Next
  25.    End With
  26.  
  27. End Sub
  28.  
  29. Private Sub Command1_Click()
  30.    Call Eliminar_ListBox_Check(List1)
  31. End Sub
  32.  
  33. Private Sub Form_Load()
  34.  
  35.    Dim i As Integer
  36.  
  37.    With List1
  38.  
  39.        For i = 0 To 9
  40.            .AddItem "Item " & i
  41.        Next
  42.    End With
  43.  
  44.    Command1.Caption = " Eliminar Items del listbox "
  45.  
  46. End Sub
  47.  

jjujujuj fuincionaaaaaaaa



Título: Re: Alguna Idea..?
Publicado por: Petro_Boca en 4 Agosto 2010, 02:59 am
http://www.youtube.com/


Título: Re: Alguna Idea..?
Publicado por: BlackZeroX en 4 Agosto 2010, 03:19 am
.

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:
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!¡.


Título: Re: Alguna Idea..?
Publicado por: Petro_Boca en 5 Agosto 2010, 05:44 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