'Textboxen genereren en als je op een van deze klikt iets uitvoeren.
Public Class Form1
'Aantal patronen
Dim max_aantal_patronen As Integer = 10
Dim var_aantal_patronen As Integer = 1
'Declaraties om te kunnen genereren
Dim TB_patroon_nmr(max_aantal_patronen) As TextBox
Dim TB_patroon_nmr_temp As TextBox
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
var_aantal_patronen += 1
Genereren()
End Sub
Private Sub Genereren()'Textboxen genereren
For i = 1 To var_aantal_patronen
ReDim Preserve TB_patroon_nmr(i)
TB_patroon_nmr_temp = New TextBox
TB_patroon_nmr_temp.Name = (i)
TB_patroon_nmr_temp.Text = (i)
TB_patroon_nmr_temp.Width = 20
TB_patroon_nmr_temp.Height = 20
TB_patroon_nmr_temp.Location = New Point(10, 15 + (25 * i))
TB_patroon_nmr_temp.TextAlign = HorizontalAlignment.Right
TB_patroon_nmr_temp.ReadOnly = True
TB_patroon_nmr_temp.BackColor = Color.Orange
PNL_Gaten_Patroon..Add(TB_patroon_nmr_temp)
TB_patroon_nmr(i) = TB_patroon_nmr_temp
AddHandler TB_patroon_nmr(i).Click, AddressOf ButtonArray_click
Next
End Sub
Private Sub ButtonArray_click(ByVal sender As Object, ByVal e As System.EventArgs)
‘Alles wat je nu in deze sub zet zal het programma gaan uitvoeren als je op ‘een van de gegenereerde textboxen gedrukt hebt.
‘AddHandler TB_patroon_nmr(i).Click, AddressOf ButtonArray_click
‘Je kan bijvoorbeeld zeggen:
Dim i As Integer = 1
TB_patroon_nmr(i).BackColor = Color.Red
End Sub
End Class