Quomon.esRespuestas
ene. 22, 2010 - 06:50
Estimado debes proceder de la siguiente manera:
Vamos a suponer que tenemos dos páginas.
1) Ingresa a la opcion Ver- Barra de Herramientas- Cuadro de Controles. Selecciona el control Cuadro de Texto y colocalo en la primera página.
2) De la misma manera selecciona otro cuadro de texto y colocalo en la 2 pagina.
3) Con el boton derecho del 1 control te vas a "Ver Codigo"
4) Asegurate que figure en la parte de arriba lo siguiente:
Private Sub TextBox1_Change()
End Sub
En el medio de estas dos lineas, que básicamente indica que va a realizar el control cuando alguien lo modifique, se coloca lo siguiente:
TextBox2.Text = TextBox1.Text
o sea quedaria asi:
Private Sub TextBox1_Change()
TextBox2.Text = TextBox1.Text
End Sub
Finalmente cierra el editor de visual..
5) Si tienes más de dos páginas, solamente vas agregando el control correspondiente.. Por ejemplo para cuatro páginas, deberías crear cuatro controles y el codigo quedaría:
Private Sub TextBox1_Change()
TextBox2.Text = TextBox1.Text
TextBox3.Text = TextBox1.Text
TextBox4.Text = TextBox1.Text
End Sub
Saludos...
Vamos a suponer que tenemos dos páginas.
1) Ingresa a la opcion Ver- Barra de Herramientas- Cuadro de Controles. Selecciona el control Cuadro de Texto y colocalo en la primera página.
2) De la misma manera selecciona otro cuadro de texto y colocalo en la 2 pagina.
3) Con el boton derecho del 1 control te vas a "Ver Codigo"
4) Asegurate que figure en la parte de arriba lo siguiente:
Private Sub TextBox1_Change()
End Sub
En el medio de estas dos lineas, que básicamente indica que va a realizar el control cuando alguien lo modifique, se coloca lo siguiente:
TextBox2.Text = TextBox1.Text
o sea quedaria asi:
Private Sub TextBox1_Change()
TextBox2.Text = TextBox1.Text
End Sub
Finalmente cierra el editor de visual..
5) Si tienes más de dos páginas, solamente vas agregando el control correspondiente.. Por ejemplo para cuatro páginas, deberías crear cuatro controles y el codigo quedaría:
Private Sub TextBox1_Change()
TextBox2.Text = TextBox1.Text
TextBox3.Text = TextBox1.Text
TextBox4.Text = TextBox1.Text
End Sub
Saludos...
nov. 28, 2010 - 13:22
Tuve semejante problema algunos dias antes. Por fortuna resolvì esta complicacion en el intervalo de par minutos y es posible el utiliza socorrerà en el problema - http://www.recoverytoolbox.com/es/rep...
Añadir Nuevo Comentario