Como saber en que control estoy?

[extrem_bcn]

La cuestión es que tengo una función tal que esta (por ejemplo)

Public Function SelecTexto(txt As textbox)
txt.SetFocus
txt.SelStart = 0
txt.SelLength = Len(txt.Text)
End Function

que pasa? que he de poner en cada textbox el nombre de la funcion y su propio nombre. hay alguna manera de que la función recupere el nombre del control? para que no tenga que pasarselo

[Avellaneda]

Si los TextBox están en un array de controles, no deberías tener ningún problema llamando a la función así:

SelecTexto Text1(Index)

Si no es así, tendrías que craerte una clase que haga eso. p.ej.

En un módulo de clase (Class1.cls)

Código:

Option Explicit

Private WithEvents MiText As TextBox

Public Property Set FormatTxt(SetTextBox As TextBox)
Set MiText = SetTextBox
End Property

Private Sub MiText_GotFocus()
MiText.SelStart = 0
MiText.SelLength = Len(MiText.Text)
End Sub

En el formulario donde se encuentran los TextBox:

Código:

Option Explicit
Private cTextBox As Collection

Private Sub Form_Load()
Dim cClass As Class1, oControl As Control
    
Set cTextBox = New Collection
For Each oControl In Me.Controls
    If TypeOf oControl Is TextBox Then
        Set cClass = New Class1
        Set cClass.FormatTxt = oControl
        cTextBox.Add cClass
    End If
Next
Set cClass = Nothing
Set oControl = Nothing
End Sub

Nota: Siempre que haya mas de un control del mismo tipo en un formulario, es mas práctico crear un array de controles. Tendrás que escribir menos código y ganarás en recursos.

[seba123neo]

Hola,no hay que hacer tanto quilombo,mira:

Código:

MsgBox Screen.ActiveControl.Name

saludos.

[Avellaneda]

Entendido, con eso obtienes el nombre del control que tenga el foco, pero...

¿en qué evento le pasas el valor a la función?

¿no tendrás que hacerlo en todos los TextBox, que es precisamente lo que Extrem_bcn quiere evitar?

[extrem_bcn]

muuuuuuuuuuuuuuchisimas gracias a los dos! (por los dos métodos!) sabia que era activecontrol pero no sabia que objeto lo poseia.

Gracias!! y por cierto avellaneda, muy interesante tu clase!