Archief - [PROG]VB.NET Eventhandler aan dynamische controls

Public Class Form1
    Protected aantalControls As Integer
    Protected lengte As Integer
    Private lengteControl As Integer
    Private posHorizontaal As Integer
    Private txt

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        aantalControls = 5
        lengte = Me.Size().Width.ToString()
        lengteControl = lengte / aantalControls

        posHorizontaal = 0
        Dim teller = Me.aantalControls
        Dim i As Integer
        For i = 0 To 4 Step 1

            Dim txt As New TextBox()
            txt.Name = ("txt" & i)
            txt.Location = New Point(i * Me.lengteControl, 100)
            Me.Controls.Add(txt)
            txt.Size = New Size(Me.lengteControl, txt.Size.Height())
            txt.Enabled = False
        Next

        For i = 0 To 4 Step 1
            Dim txt As New TextBox()
            'Me.Controls.Find("txt" & i, False).SetValue(i.ToString())
        Next
    End Sub
End Class

Public Class Form1
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim aantalControls As Integer = 5
        Dim lengteControl As Integer = Me.Size.Width / aantalControls
        Dim index As Integer = 0
        Dim textBox As TextBox = Nothing
        
        For index = 0 To aantalControls Step +1
            textBox = New TextBox()
            
            With textBox
                .Location = New Location(index * lengteControl, 100)
                .Size = New Size(lengteControl, 50)
                .Enabled = False
            End With
            
            AddHandler textBox.OnClick, AddressOf TextBoxHandler
            
            Me.Controls.Add(textBox)
        Next
    End Sub
    
    Public Sub TextBoxHandler(sender As Object, e As System.EventArgs)
        Form f As Form = New Form(CType(sender, TextBox))
        
        f.Show()
    End Sub
End Class

Public Class TweedeForm

    Public Sub New(textBox As TextBox)
        Dim text As String = textBox.Text
    End Sub
    
End Class