Problema con los controles dentro de un TabPage.

"Ocobo" preguntó:

Cómo puedo referirme al nombre del control del Textbox
dentro de un TabPage.

Hola:

Para lo que deseas hacer, no hace falta averiguar el nombre del control
TextBox; simplemente debes de obtener el control actualmente activo en el
formulario, y si es un control de texto, indicarle que escriba el texto
correspondiente.

En el evento «KeyDown» del formulario (que para estas cosas es mejor que el
evento «KeyPress»), ejecuta lo siguiente:

Private Sub Prueba_KeyDown( ... ) Handles Me.KeyDown

If e.KeyCode = Keys.F2 Then

' Se ha pulsado la tecla F2.
'
e.Handled = True

' Obtenemos el control que tiene el foco.
'
Dim ctrl As Control = Me.ActiveControl

' Si es un control de texto el que tiene
' el foco, escribimos en él.
'
If TypeOf (ctrl) Is TextBox Then
ctrl.Text = "Lo que sea."
End If

End If

End Sub

Para qiue se desencadene el evento «KeyDown», doy por sentado que la
propiedad «KeyPreview» del formulario se encuentra establecida a «True».

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Gracias por contestar.

Necesito de alguna forma discriminar los textbox, ya que en cada uno he de
insertar un texto distinto. Por eso, yo pensaba hacerlo por el nombre del
control, pero tengo el problema que como control activo me asinga el TabPage.

"Ocobo" escribió:

..., pero tengo el problema que como control activo me asinga el TabPage.

Si un control de texto, que se encuentre incluido en el contenedor TabPage,
tiene el foco, el control activo se obtiene mediante la propiedad
«ActiveControl», al menos, así es como lo he obtenido en el ejemplo que
acabo de probar con Visual Basic 2005.

' Obtenemos el control que tiene el foco.
'
Dim ctrl As Control = Me.ActiveControl

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.