I need to be able to pass a control array to a function

i.e
Dim Ret%
Ret% = TestFunc%(txtField)

Function TestFunc%(Ctrl() as control)
        'do something here
        TestFunc% = True
end function

I keep getting "type mismatch" error - i understand that in VB3 it was not
possible
to pass a control array

I'm using vb4 enterprise edition - is it possible with this version?

I don't want to have to create an ordinary array, copy the control array
values to it and\pass  that array if I can help it

Can anyone help?

Thanks in advance

Harry: I've posted the help article below, but I'm wondering if it applies
to your situation. If you want to look for it, pull up "Difference in
Passing Controls Between Visual Basic 3.0 and Visual Basic 4.0 (ReadMe)" in
your online help. It suggests that you need to explicitly pass the
parameter (your control array) by value.

Hope this works.

Bret

HWND FAR Pascal GetControlHwnd(HCTL hCtl)
{
        return VBGetControlHwnd(hCtl);

Declare Function GetControlHwnd Lib libname.dll (hCtl As Control) _
As Integer

and should have a Visual Basic 4.0 declaration of:

Declare Function GetControlHwnd Lib libname.dll (ByVal hCtl As _
Control) As Integer

Visual Basic 4.0 resolves this problem in the vast majority of the cases,
and can correctly identify the proper value to pass to Visual Basic APIs.
However, to make absolutely sure that the program using this .VBX or .DLL
will be compatible with future releases of Visual Basic, you should follow
the correct methodology in setting parameters.

End Help Article <<

->I need to be able to pass a control array to a function
->
->i.e
->Dim Ret%
->Ret% = TestFunc%(txtField)
->
->Function TestFunc%(Ctrl() as control)
->   'do something here
->   TestFunc% = True
->end function
->
->I keep getting "type mismatch" error - i understand that in VB3 it
was not
->possible
->to pass a control array
->
->I'm using vb4 enterprise edition - is it possible with this version?
->

Use the Object data type in your Function argument declaration.

Paul
~~~~

Hi,

You can also pass it as a variant.

--
=========================
Gurvan Robineau
Invited Researcher
Medical Physics Department
School of Medicine
University of Patras
PO BOX 1410
26500 Patras
Greece

tel. +30 61 996 114
fax +30 61 999 861
=========================