[VBNET] Simulare l'evento click

[m.alverman]

Buongiorno.
Ho un'array di 5 bottoni creato a runtime al quale ho aggiunto l'handler click e fin qui tutto ok.
Se clicco su un pulsante riesco a fare quello che devo.
Ma se per esempio avessi il numero del bottone da premere in una variabile come posso invocare l'evento click ?

Creo i bottoni in una tableLayout panel 1 Col x 5 Row

            For i As Integer = 0 To btnCamsArr.Length - 1
                btnCamsArr(i) = New System.Windows.Forms.Button
                btnCamsArr(i).TextAlign = ContentAlignment.MiddleCenter
                btnCamsArr(i).Text = CStr(i + 1)
                btnCamsArr(i).Font = New System.Drawing.Font(btnInBArr(i).Font, FontStyle.Bold)
                btnCamsArr(i).BackColor = Color.DimGray
                btnCamsArr(i).Name = CStr("btnCam" & i)
                tblCams.Controls.Add(btnCamsArr(i), i Mod CamsRow, i \ CamsCol)
                AddHandler btnCamsArr(i).Click, AddressOf btnCamsClick
            Next

L'evento click

    Public Sub btnCamsClick(ByVal sender As Object, ByVal e As System.EventArgs)
        For i As Integer = 0 To btnCamsArr.Length - 1
            If btnCamsArr(i) Is sender Then
                btnCamsArr(i).BackColor = Color.Red
                CurrentCamSelect = i
            Else
                btnCamsArr(i).BackColor = Color.DimGray
            End If
        Next
        Call ReadIni()
    End Sub

Come faccio a simulare il click avendo in una variabile un valore compreso tra i bottoni creti ?

call btnCamsClick(?,?)

Grazie, Alberto

[oregon]

Non è più semplice mettere tutto il codice del click in una funzione e chiamarla da dove ti serve?

[m.alverman]

Si ma mi piacerebbe fare qualcosa di leggero e non ripetitivo

Sulla pressione di un pulsante che fa altro faccio così e viene premuto il pulsante 0 perchè sono
su un controllo che possiede l'argomento e:

call btnCamsClick(btnCamsArr(0),e)

Abbi pazienza ma se sono in una funzione che non accetta eventi dal mouse come come glielo passo e ?

Grazie, Alberto

[oregon]

Se non ti serve non passi nulla

btnCamsClick(btnCamsArr(0), Nothing)

[m.alverman]

Cavolo ... mi stavo scervellando su cosa mettere tralasciando nothing !!

Grazie mi hai risolto !!

[oregon]

Ma avresti anche potuto scrivere semplicemente

call btnCamsClick(btnCamsArr(0), New System.EventArgs)