Hi Again David,
The new statement inside the class does not need to be there and you can
assign an object to an empty array as long as the fact the array is empty.
So, the class array has to be empty and once there is an initial assignment,
you can not change it. So do not use the new statement and place objects in
the array as you have done after the array is given space inside the
namespace area.
In other words, just make an object outside the array then assign it to
the array element. You should be OK when doing it that way. In fact have a
method that is an object of the type you are storing in the array. Then do a
Let and get statement or something to move it to an array element inside
your class...
Bruce
Sent: Monday, April 30, 2012 7:56 AM
Subject: Re: Object Assignment
Hi David,
If you are assigning a numerical value you must use the property or
method assignment inside the object or you are assigning numbers to an
object and that is the error.
You can not in .VBS do anything immediate and you have to do a loop for
all assignments. Unless you do the assignment inside brackets for an array,
but you are using objects, so you have to make an object assignment there,
V1.val....
The other way is to have a new assignment inside the class which does
create an object and that object gets put in the array.
But doing that you still have to copy each element over one at a time...
Bruce
Sent: Sunday, April 29, 2012 9:33 PM
Subject: Object Assignment
Hello,
I am studying (and hopefully learning something,) VB Scripting and
I'm currently learning about classes. I have a class with private
variables V1(99) and V2(99). Within the Class_Initialize SUB
routine, I initialize V1 to its correct values. (Each element in the
array is an object. Each object is defined and assigned. I have
verified its correctness.
Now, at the end of Class_Initialize, Ihave the statement:
V2 = V1 ' line alpha
set V2 = V1 ' line beta
It loads fine with no load errors. However, at run time, Iget the
error: line alpha ... type mismatch
and also:
line beta type mismatch.
Both V1 and V2 on on sequential lines -- that is, they are not
separated by anything, not even a blank line -- no routines, no
declarations -- nothing.
So, how do I copy an object containing objects within the class'
declarative scope? Since these are arrays of 99 objects, do I need to
run a loop to explicitly copy each object element from V1 to its
corresponding location in V2? Is there no aggregate copy?
Class Aggregate
private V1(99) ' Cannot use the constant named AgSize. So much for
using constants!
private V2(99)
...
sub Class_Initialize ()
...
for I = 1 to AgSize
set V1(I) = new AggregateElementObject
next
V2 = V1 ' line alpha and also tried
set V2 = V1 ' get the same type mismatch error
...
end Class ' Aggregate
Thanks for any help with this.
Dave
