Passing parameters using

[nwhamilton]

Does anyone know how to pass parameter from one procedure to another via an event such as a button click rather than using a CALL statement?

Procedure 1 fills a 6 element array with random numbers.
Procedure 2 display 1st element in a text box when button is clicked
Procedure 3 display 2nd element in a text box when another button is clicked
etc

Public Class Form1

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        lstDisplay.Items.Clear()
        Dim Cam(5) As Integer
        Dim lottery As Integer
        Dim counter As Integer
        Dim unique As Boolean
        Dim index As Integer

        For counter = 0 To 5

            Do
                lottery = Int((49 * Rnd()) + 1)
                unique = False
                For index = 0 To 5
                    If Cam(index) = lottery Then
                        unique = True

                    End If
                Next
            Loop Until (unique = False)
            Cam(counter) = lottery

            lstDisplay.Items.Add(Cam(counter))
        Next
        TxtNumber1.Text = Cam(0)
        TxtNumber2.Text = Cam(1)
        TxtNumber3.Text = Cam(2)
        TxtNumber4.Text = Cam(3)
        TxtNumber5.Text = Cam(4)
        TxtNumber6.Text = Cam(5)
    End Sub

    Private Sub cmdBall1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBall1.Click
Would like this TxtNumber1.Text = Cam(0) here
    End Sub

    Private Sub cmdBall2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBall2.Click

    End Sub

    Private Sub cmdBall3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBall3.Click

    End Sub

    Private Sub cmdBall4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBall4.Click

    End Sub

    Private Sub cmdBall5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBall5.Click

    End Sub

    Private Sub cmdBall6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBall6.Click

    End Sub
End Class

[nwhamilton]

Ooops

Title should be Passing parameters using button click event

[Shaggy Hiker]

It won't work the way you have it because Cam is a local variable in the Button1_Click method. For Cam to be accessed from anywhere else it has to be declared at form scope rather than as a local variable in a method.

Also, since this sure looks like .NET, you shouldn't be using Rnd, but have a single Random object created at form scope.

[Hack]

Thread moved to the VB.NET forum section

[dunfiddlin]

Apropos of very little, if you were using this for a proper lottery, your method would be illegal because of the no-repeat method you're employing. After the first selection from x options it is required that the option be removed altogether and the second selection be from the remaining x - 1 options.