Refereirme a un control en tiempo de ejecución.

"Carlos" escribió en el mensaje
news:

Lo que quiero es hacer un "zoom" de un textbox en un formulario aparte. O
sea, pongo un botón al lado de un textbox y si lo pulsas se abre un
formulario donde pego el contenido en un richtextbox mucho más grande.

Cuando termino de editar ese formulario que he abierto tiene un botón de
aceptar, para cerrarlo y mi problema es como pasar el contenido al textbox
original, sabiendo que voy a poner esta función en varios textbox y a
veces debo dejarlo en un textbox y a veces en otro.

gracias,

Hola.

Pasa una referencia al control como argumento a una funcion en el formulario
que lo muestra ampliado.

Algo asi como:

Public Class formularioZoom

Dim textDestino As TextBox
...

Public Sub Abrir(elTextBox as TextBox)
textDestino = elTextBox
Me.RichEdit1.Text = elTextBox.Text
Me.Show ' o ShowDialog, como prefieras
End Sub

Public Sub cbAceptar_Click(sender As Object, e As ...) Handles
cbAceptar.Click
textDestino.Text = RichEdit1.Text
Hide()
Dispose()
End Sub

...
End Class


Salud!

Eso era lo que buscaba.

¡Muchas gracias Leonardo!

Carlos.

"Leonardo Azpurua [mvp-vb] >" <<l e o n a r d o (arroba) m v p s (punto) o r
g> escribió en el mensaje news:

"Carlos" escribió en el mensaje
news:

Lo que quiero es hacer un "zoom" de un textbox en un formulario aparte. O
sea, pongo un botón al lado de un textbox y si lo pulsas se abre un
formulario donde pego el contenido en un richtextbox mucho más grande.

Cuando termino de editar ese formulario que he abierto tiene un botón de
aceptar, para cerrarlo y mi problema es como pasar el contenido al
textbox original, sabiendo que voy a poner esta función en varios textbox
y a veces debo dejarlo en un textbox y a veces en otro.

gracias,

Hola.

Pasa una referencia al control como argumento a una funcion en el
formulario que lo muestra ampliado.

Algo asi como:

Public Class formularioZoom

Dim textDestino As TextBox
...

Public Sub Abrir(elTextBox as TextBox)
textDestino = elTextBox
Me.RichEdit1.Text = elTextBox.Text
Me.Show ' o ShowDialog, como prefieras
End Sub

Public Sub cbAceptar_Click(sender As Object, e As ...) Handles
cbAceptar.Click
textDestino.Text = RichEdit1.Text
Hide()
Dispose()
End Sub

...
End Class


Salud!

"Carlos" escribió en el mensaje
news:

Eso era lo que buscaba.

¡Muchas gracias Leonardo!

A mandar :-)