Array

I am trying to create a function which stores some information in an array. I can get the information displayed in the array but only within the module. I cannot get it stored in the specified array in under the command button. Here is an example:

Code:

---

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim Values() As String
        Dim i As Integer

        Test("Test", Values)

        For i = 0 To UBound(Values)
            MsgBox(Values(i))
        Next
End Sub

Public Function Test(ByVal Tst As String, ByVal Values() As String)
      Dim i As Integer
     
      For i = 0 To 10
            Redim Preserve Values(i)
            Values(i) = i
      Next
End Function

---

The problem with the above example is that the command button does not get the values of the array. Does anyone know how this might be done?

It got the values of the array - but you haven't set the contents of the array to be anything.

Code:

---

        Dim Values() As String
        Dim i As Integer

        Test("Test", Values)

---

When you pass Values to the Test function it has no contents.

... oh duh I see what you're really asking - you want the Test function to return an array Values. You'd phrase that something more like:

Values = Test("Test")


Private Sub Values(ByVal strTest As String)
(some stuff)
Return arrValues
End Sub

The structure of the function isn't really right, you don't have it returning anything. Its set more like a Sub and it looks like you want to fill the Values array but you are passing it ByVal so it sends a copy instead if you want it to pass back the changed Values() then make it ByRef.

VB Code:

'if you want to not have it return anything then do this
 
'use in app
Test("Test", Values)
 
Public [b]Sub[/b] Test(ByVal Tst As String, [b]ByRef[/b] Values() As String)
       Dim i As Integer
       
       For i = 0 To 10
             Redim Preserve Values(i)
             Values(i) = i
       Next
End [b]Sub[/b]
 
 
'or if you want it to be structured like a function then
 
'use in app
Dim Values() As String=Test("Test")
 
Public Function Test(ByVal Tst As String) As String()
       Dim i As Integer
       dim Values() As String
       
       For i = 0 To 10
             Redim Preserve Values(i)
             Values(i) = i
       Next
 
       Return Values
End Function

Damn I went to beat my dog and Slow_Learner beat me to it. I guess his name may be Slow_Learner but he is a Fast_Poster.

On the other hand your code will work but mine will not - Subs can't return a value *goes off to get coffee*

Thanks alot guys...Its now working fine.