Pass control/activecontrol to procedure/function

[fishysheep]

Hi

This should be so easy but it's got me banging my head against the wall. I need to pass in the name of a control to a procedure. I've tried

// call proc - I've tried all the following, the call
// is from the click event of the text box.
whatever activecontrol
call whatever(activecontrol)
whatever txtA

private sub whatever(t as textbox)
msgbox t.name
end sub

I either get type mismatch errors in the call or invalid oject in the whatever proc.


Mike

 

[MikeArg]

First of all you have to declare the function parameter as ByRef. Example :

private sub whatever(byref t as textbox)
msgbox t.name
end sub

Then you call the function as usual:

Whatever ActiveControl
or
Call Whatever(ActiveControl)

Remember: if the parameter is declared Byval, you pass the value to the function. If it is declared Byref, you pass a reference of the object to the function (you pass the object).

I hope this would solve your problem.

 

[JohnYingling]

ByRef is the default.
Try changing "As Textbox" to "As Control" if other control types are going to be passed.
private sub whatever(t as Control)
msgbox t.name
end sub

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript