[SOLUCIONADO] Problema sustituyendo carácteres.

Iniciado por TheKillerWantsYou, 25 Julio 2009, 19:26 PM

0 Miembros y 1 Visitante están viendo este tema.

TheKillerWantsYou

¡Buenas!
Estoy programando un programa que hace la función de que, cuando escribes algo en un TextBox, al pulsar un botón, aparezca otra cosa en otro TextBox, es decir, sustituyo carácteres. El código es el siguiente:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim V As String
       V = Replace(TextBox1.Text, "a", "xD")
       TextBox2.Text = V
End Sub

Hasta ahí todo va bien, el problema es ahora. Cuando le añado otra línea más al código, de manera que quede así:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim V As String
       V = Replace(TextBox1.Text, "a", "xD")
       V = Replace(TextBox1.Text, "b", "xP")
       TextBox2.Text = V
End Sub

Solamente me sustituye la b, es decir, que si pongo ab, me sale axP.

Tambien he probado con dos variables, pero el resultado es el mismo:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim V As String
       Dim Va As String
       V = Replace(TextBox1.Text, "a", "xD")
       Va = Replace(TextBox1.Text, "b", "xP")
       TextBox2.Text = V
       TextBox2.Text = Va
End Sub


¿Qué le falta o que falla en el código?

Saludos. ^^-






BlackZeroX

#1
LO DEBES HACES DE FORMA SERIAl NO PARALELA.

Código (vb) [Seleccionar]

       V = Replace(TextBox1.Text, "a", "xD")
       'V = Replace(TextBox1.Text, "b", "xP")
       V = Replace(v, "b", "xP")
       TextBox2.Text = v



ò

Código (vb) [Seleccionar]

       V = Replace(TextBox1.Text, "a", "xD")
       TextBox1.Text=v
       V = Replace(TextBox1.Text, "b", "xP")
       TextBox2.Text = v



ò

Código (vb) [Seleccionar]

       V = Replace(Replace(TextBox1.Text, "a", "xD"), "b", "xP")
       TextBox2.Text = v




Dulces Lunas.
The Dark Shadow is my passion.

TheKillerWantsYou

BlackZeroX, muchas gracias por contestarme, al final tomé el tercer metodo de los que me has pasado. ^__^

¡Saludos!