Array Function

[ultraman]

There's once again trouble in Dreamland !

 

In an ancien era where dinosaurs and VB6 ruled the world, there was an easy too use (yet very practical) function named "Array" that tranformed everything in (guess what ?) an Array !

 

Now, the evil Bill destroyed that function so that we have to waste our time finding new (more complicated) solutions.

 

Is there anyone outhere that would have found something that would work approximately like the Array function ?

[aewarnick]

I have no idea what the VB6 Array function was but here are 2 thoughts:

Array class to manipulate an array's data.

ArrayList to add and remove items easily.

[mutant]

ArrayList should work well, even better than using the Array functinon. What is that you are trying to do?

[ultraman]

Well... first of all, the Array() function was working like this :

Dim arrPara as Variant
arrPara = Array("12", "45", "HelloWold") 

 

So there was no need for 3 lines of code (like with the .Add method of the ArrayList).

 

But finally, I used a ParamArray in my method definition and it works fine.

 

Public Sub SetColumnsHeaders(ByVal ParamArray pArray() As String)
       Dim i As Integer

       Try
           For i = LBound(pArray) To UBound(pArray) Step 2
               ts.GridColumnStyles(CInt(pArray(i))).HeaderText = pArray(i + 1).ToString
           Next
       Catch e As Exception
           MessageBox.Show(e.Message)
       End Try
   End Sub


'Call the sub
SetColumnsHeaders("0", "Number", "1", "Region", "2", "Members")

[Volte]

The Array() function in VB6 was rather ugly because it returned a variant array. There's an equally easy way in .NET which is not ugly at all:

Dim stringArray As String() = {"Item 1", "Item 2", "Item 3"}

Equiv in VB6 to

Dim stringArray() As String

stringArray = Array("Item 1", "Item 2", "Item 3")