Question on Arrays

[ralphtrent]

Hi
I want to pass an array into a class. I need to make the array available to the entire class, but I am stuck on how to do that.

I have tried to dim array() as string before my subs but then how do I set the value of the array. I thought about create a New sub for the class that has a parameter which is data, then I would like to populate teh array with that data. I have tried to just pass in a string of data and then create the array useing the split command, but that does not seem to work.

So to sum it up, I need to create a array bu passed ni values that will be available to the entire class.

Thanks,
RT

 

[Horowitz]

Hi, try this

dim MyArray() as String
dim a as string ="Hello my friend"

MyArray=Split(a," ")  'The " " is the delimiter

For i as int16 =0 to UBound(a)   'index starts from zero
  msgbox MyArray(i)               'in our case UBound(a)returns 2
Next

Ok ???

 

[ThatRickGuy]

Assuming you have an array in class A, and you want to use the array in class B. Also assuming that the array is of type String.

class A
 public sub DoThing()
   dim MyArray() as string
   'populate MyArray
   
   dim objB as new B(MyArray)
   objB.DoOtherThing
 end sub
end class

class b
 private m_MyArray() as string

 public sub New(InputArray() as string)
  m_MyArray = InputArray
 end sub

 public sub DoOtherThing()
   'Do thing that needs array, 
   'use m_MyArray
 end sub
end class

-Rick

----------------------

http://www.ringdev.com

I believe in killer coding ninja monkeys.