¡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. ^^-
LO DEBES HACES DE FORMA SERIAl NO PARALELA.
V = Replace(TextBox1.Text, "a", "xD")
'V = Replace(TextBox1.Text, "b", "xP")
V = Replace(v, "b", "xP")
TextBox2.Text = v
ò
V = Replace(TextBox1.Text, "a", "xD")
TextBox1.Text=v
V = Replace(TextBox1.Text, "b", "xP")
TextBox2.Text = v
ò
V = Replace(Replace(TextBox1.Text, "a", "xD"), "b", "xP")
TextBox2.Text = v
Dulces Lunas.
BlackZeroX, muchas gracias por contestarme, al final tomé el tercer metodo de los que me has pasado. ^__^
¡Saludos!