Foro de elhacker.net

Tengo 2 textbox multilinea. En textbox1 tengo una lista a la que necesito agregarle en el inicio de cada linea de texto un solo caracter (en realidad seria caracteres numericos consecutivos, pero de eso me encargo yo). Por ejemplo en el textbox1 tengo lo siguiente:

cadena caracteres 1
cadena caracteres 2
cadena caracteres 3
cadena caracteres Infinita

Lo que quiero hacer es que en el textbox2 me haga esto al presionar un boton, por ejemplo, agregarle un asterisco:

* cadena caracteres 1
* cadena caracteres 2
* cadena caracteres 3
* cadena caracteres Infinita

La verdad es que no se como se hace esto, y lo he intentado de la siguiente forma pero no me sirvio

textbox2.text="*".textbox1.text

pero era obvio que le agregaba ese asterisco al textbox completo y no a cada linea. Asi que no sé como lo hago...

Espero que se haya entendido la duda que planteo, y espero que me puedan dar una mano en esto, que seguro debe ser algo sencillo, pero como acabo de empezar en VB6 pues me trabé en este punto. De todas maneras gracias.

Corrijo, ya que no habia entendido bien, seguro algo asi te sirve:

Private Sub Command1_Click()
    Dim a() As String 'Declaramos un array dinamico tipo string para guardar las lineas
    a = Split(Text1.Text, vbNewLine) 'Cortamos con split cada linea y la guardamos en el array
    For i = 0 To UBound(a) 'Recorremos el array y vamos asignandolo al nuevo text con su respectivo *
        Text2.Text = Text2.Text & "*" & a(i) & vbNewLine
    Next i
End Sub
 

No se si exista una forma mas eficiente, pero asi funciona  :D

Saludos

Usa KeyPress

Dim Numero As Integer 'Declara un numero que cambie
Private Sub Text1_KeyPress(KeyAscii As Integer)
Numero = Numero + 1
If keyascii = 13 Then TextBox2.Text = Numero + "- " + TextBox2.Text 'agregale el numero
End Sub
 

Yo entiendo como boton a un command button, no a una tecla  :huh: :huh: :huh:

Quieres hacer una aplicacion tipo "Pedro Responde"?

si, es así como bien decis. Me sirvió, gracias!!"

jeje pues yo lo haria así:

    Text1.Text = "*" & Replace(Text1.Text, vbNewLine, vbNewLine & "*")

 :laugh: :laugh: :laugh:

Existe un programa parecido se que no es muy en cuenta acerca de ello pero es muy bueno su nombre es MultiBlock Storage y por hay ronda el codigo fuente en php por si te sirve posiblemente es de gran ayuda si no ya saben que hacer saludos...

Estoy con morpheusoliver:

Intentenlo asi como dicen y no funciona, porque solo agrega el * una vez y no por cada linea, mi codigo funciona al 100%  ;D

Saludos