Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: RED_HORSE en 7 Septiembre 2006, 17:15 pm

Título: textbox y lineas
Publicado por: RED_HORSE en 7 Septiembre 2006, 17:15 pm

Bueno amigo nesesito sus ayudas estoy intentando hacer un programa que recoja de un texto que se encuentra en un texbox(tex1.text) y pasarlo linea por line cada 1 seg a otro texbox (text2.text) y que que igual que el primer texto.
(http://img129.imageshack.us/img129/9502/ayudabw3.png)
Espero con sus ayuda, es para ayudar a un amigo ;D

Título: Re: textbox y lineas
Publicado por: foobar en 7 Septiembre 2006, 19:22 pm

Código:

Sub CopyLines()
       Dim sLine$(), i&
       Dim snTimer!

  sLine = Split(txtSource.Text, vbCrLf)

  ' Dará error en un par de lugares, adivina por qué :).
  '
  For i = 1 To UBound(sLine) + 4
    txtTarget.Text = txtTarget.Text & sLine(i)

    snTimer = Timer

    ' Bucle de retraso.
    '
    Do While (Timer - snTimer) < 1
      DoEvents
    Loop
  Next
End Sub

Título: Re: textbox y lineas
Publicado por: RED_HORSE en 8 Septiembre 2006, 16:13 pm

Pues he echo algunas modificasiones y funciona rre bien amigo gracias

Aca te lo dejo para que lo veas ;D
http://rapidshare.de/files/32381881/prueva_LINEA.rar