subs or functions with user defined types

[Ray Pixley]

I've been trying to call a subroutine where the parameters include a user
defined type without success.
Pseudo-code of what I'm trying to do is as follows:

type typArr
key as long: dat as string
end type
dim arr() as typArr
Sub main()
dim point as long
point=add (this, arr(), arr().key)
arr(point).dat= ..... (to finish adding other data items)
end sub
function add( This as variant, ToThis() as ???, Key as ???) as long
( find where to insert and return location, includes shifting data in
ToThis() )
redim preserve tothis(1 to newcount) (if need more arr())
end function

How do I do this? (I eventually want to make the add() function as part of a
class)

[Tim Barlow]

I think this is causing the problem:
arr().key

You can pass the entire array across, but you can't have 'arr().key'

Try something like:

point = add("something", 123, arr())

with

Function add(this As Variant, aKey As Long, toThis() As typArr) As Long


HTH

Tim

"Ray Pixley" <[email protected]> wrote in message
news:oG1Mf.772$FE2.347@trnddc01...
> I've been trying to call a subroutine where the parameters include a user
> defined type without success.
> Pseudo-code of what I'm trying to do is as follows:
>
> type typArr
> key as long: dat as string
> end type
> dim arr() as typArr
> Sub main()
> dim point as long
> point=add (this, arr(), arr().key)
> arr(point).dat= ..... (to finish adding other data items)
> end sub
> function add( This as variant, ToThis() as ???, Key as ???) as long
> ( find where to insert and return location, includes shifting data in
> ToThis() )
> redim preserve tothis(1 to newcount) (if need more arr())
> end function
>
> How do I do this? (I eventually want to make the add() function as part of
a
> class)
>
>
>
>

[Ray Pixley]

Close and thoughtful, but I may have oversimplified what I want to do. I
should have used "Insert" instead of "Add" as a subroutine name (symantics).
But the other problem is I'd like to use the same subroutine with other
typArrs that have a different data structure, but have at least a "key"
member, so as to reduce the amount of nearly duplicate code that I'm dealing
with. Also, the key may not always be a long, it may be a string, and I'd
like the option of mindlessly using either type just in that subroutine call
without having to disable Option Explicit.

"Tim Barlow" <[email protected]> wrote in message
news:[email protected]...
>I think this is causing the problem:
> arr().key
>
> You can pass the entire array across, but you can't have 'arr().key' Try
> something like:
>
> point = add("something", 123, arr()) with
> Function add(this As Variant, aKey As Long, toThis() As typArr) As Long
>
> HTH
>
> Tim
>
> "Ray Pixley" <[email protected]> wrote in message
> news:oG1Mf.772$FE2.347@trnddc01...
>> I've been trying to call a subroutine where the parameters include a user
>> defined type without success.
>> Pseudo-code of what I'm trying to do is as follows:
>>
>> type typArr
>> key as long: dat as string
>> end type
>> dim arr() as typArr
>> Sub main()
>> dim point as long
>> point=add (this, arr(), arr().key)
>> arr(point).dat= ..... (to finish adding other data items)
>> end sub
>> function add( This as variant, ToThis() as ???, Key as ???) as long
>> ( find where to insert and return location, includes shifting data in
>> ToThis() )
>> redim preserve tothis(1 to newcount) (if need more arr())
>> end function
>>
>> How do I do this? (I eventually want to make the add() function as part
>> of
> a
>> class)
>>
>>
>>
>>
>
>