Hola, estoy haciendo un programa VB6 en el cual tengo varios cuadros de texto, con diferentes nombres y queria hacer una determinada accion comun a todos haciendo una llamada a una funcion que tengo en un modulo. Actualmente hacia una llamada usando "activecontrol.name" y funcionaba bien, el problema viene cuando hago algun cambio en otro control antes de hacer la llamada, ya que me coge como activecontrol el ultimo objeto utilizado... (Espero haberme explicado bien...)
Hay alguna forma de referirme al control desde que hago la llamada a la funcion??? Probé con "Me", pero solo me devuelve el form actual...

Espero cualquier ayuda, Gracias.

Lo mas sencillo sería añadir un parámetro para el control en la función:

Function TuFuncion (tusparametros, byref ElControl As Object) As loquesea

Saludos

Creo que no he sabido explicarme bien. Tengo dos Botones Command1 y Command2 y ambos tienen el mismo codigo para llamar a una Function en un Modulo. Por ejemplo

Private Sub Command1_Click()
Funcion me.activecontrol.name
End Sub

Private Sub Command1_Click()
Funcion me.activecontrol.name
End Sub

Esto sería el modulo:

Function Funcion (Boton as CommandButton)
Msgbox("Has pulsado el boton: " & Boton)
end function


El problema viene cuando al codigo del Boton le añado antes de la llamada a la funcion algo así como esto:

Textbox1.setfocus

Entonces cuando llamo a la funcion, en lugar de decirme el boton que he apretado me dice que he pulsado "Textbox1"

Lo que buscaba era algo para que al hacer la llamada hiciera referencia al control que hace la llamada y no al que está activo en ese momento.

Pero puedes cambiar la llamada a la función tal que:

Funcion Command1

o crear una matriz de controles Command1(X) y usar literalmente el mismo código para llamar a la función, pulses el botón que pulses:

Private Sub Command1_Click(Index As Integer)
Funcion Command1(Index)
End Sub

Saludos

Añade una variable general, digamos "boton", y en el evento Click de cada botón le asignas un valor diferente. (por ejemplo, en Command1_Click le asignas : boton="1", y en Command2_click le asignas : boton="2")
Luego, en el módulo al cual llama cada uno de los botones, incluyes un mensaje "msgbox("pulsado el botón "+boton,,,)

Yo lo que haría es capturar el nombre antes del text y después llamar a la funcion, osea:

NM= me.activecontrol.name
Textbox1.setfocus
Funcion (Me.Control("NM"))

ó bien capturar el control directamente

SET CM=me.activecontrol
Textbox1.setfocus
Funcion (CM.name)
Set CM=Nothing