Es posible referenciar un textbox en una función?

[buji]

Hola Foro.

Tengo una función donde aplico cambio en el estilo de un textbox.

Entonces en cada TextBox del Form llamo a esta función pasando como parámetro (entre otros) el nombre del textbox.

La pregunta es si es posible que en lugar de pasar el nombre del control pasar algo generico (como ser la referencia al control activo) para hacer mas generica la llamada a la funcion:

Ej,

En lugar de hacer:

mifuncion (text1.name as textbox, valor as string)

hacer:

mifuncion (me.controlactivo, valor as string)

Tener en cuenta que esta funcion la llamo en el vento got_focus de cada textbox, por lo que siempre se cual es el textbox actual.

Muchas Gracias!

[ElierLora]

Pues claro, lo unico que en la función el Primer Párámetro debes declararlo del Tipo Object

[buji]

ElierLora, gracias por responder.

El tema es como hago para genericamente indicar el nombre del control?

Osea,

Si estoy parado en text2

Como puedo llamar a la función diciendo:

me.textactivo (donde textactivo sería el nombre del textbox activo).

Me explico?

Muchas Gracias.

[ElierLora]

Ejemplo

Private sub Llenar(ObjCombo as Objet) as Loquesea
'Llenar un Combo
ObjCombo.AddItem "Lo que Sea"

End Sub

Ahora Mandamos el nombre del Combo desde cualquier Lugar
Teniendo un Combo1 sería de la manera Siguiente:


Llenar Combo1

[culd]

Código vb:

Me.ActiveControl
 

con eso obtenes el control activo

Entonces simplemente haces

Código vb:

Private Sub Text1_GotFocus()
    Call evento(Me.ActiveControl)
End Sub
 

Y tu evento seria algo como

Código vb:

Public Sub evento(eltextbox As TextBox)
    'Lo que quieras hacer
End Sub
 

[buji]

Haber,

Volvamos al tema de que yo me referia a textbox.

Supon un formulario con 20 textbox.

Yo tengo que llamar a la funcion de esta manera:

mifuncion (text1)

mifuncion (text2)

etc

Lo que busco es poder llamar a la funcion de esta manera:

mifuncion (textboxactivo)

y en la funcion poder saber a que textbox me refiero.

osea, trato de llamar siempre igual a la funcion.

Me explico?

[buji]

Culd exacto!

Muchas Gracias!!!