Setting event procedures to call functions in vba

[jender624]

I'm trying to loop through all the controls on my forms, and set the mousemove event to call a function through code. I don't know if/how I can set the mousemove event to call a function, however. Is there a way to do this?

Thanks,

jender624

 

[CajunCenturion]

It should be fairly straightforward:

Private Sub <ControlName>_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call <ProcName> (<arguement list>)
End Sub

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[jender624]

Thanks for replying! Maybe I'm not being clear. I'm trying to do something like this:

For Each ctl in Me
ctl."MouseMoveEvent" = "FunctionName"
next ctl

I'm just not sure of the syntax to do something like this. Is it possible?

Thanks,

jender624

 

[CajunCenturion]

No, that's not possible because during runtime, when an event is triggered, control is passed directly to a routine (if it exists) called <ControlName>_<EventName>. That is the intrinsic architecture of the event handler.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[jender624]

I think I found a way to do this. As opposed to directly trying to set the event procedure to call a function, I'm setting it to call a macro which in turn calls the function I need. This seems to work. Thanks again.

jender624