Aggiungere un controllo Text Dinamicamente

' Incrementare il numero di controlli (solo di uno, anche se ne
        ' verranno aggiunti due).
        controlCount += 1

' Consentire solo 5 pulsanti, per semplificare la creazione dell'interfaccia utente.
        If controlCount <= 5 Then

' Creare il controllo TextBox che conterr� il testo da comunicare.
            Dim txtSpeakText As New TextBox

' Configurare alcune propriet� per il controllo TextBox.
            txtSpeakText.Text = "Hello, World"
            txtSpeakText.Name = "txtSpeakText"
            txtSpeakText.Location = New Point(controlLocation.X + 250, controlLocation.Y)
            txtSpeakText.Size = New Size(200, txtSpeakText.Height)

' Aggiungere il controllo TextBox all'insieme di controlli.
            Controls.Add(txtSpeakText)

' Incrementare il valore di m_LocationY affinch� il controllo successivo non sovrascriva quello esistente.
            controlLocation.Y += txtSpeakText.Height + 5

' Creare un pulsante da utilizzare in risposta ai clic
            ' Poich� questo pulsante � strettamente associato al controllo TextBox che
            ' fornir� il testo da visualizzare, il controllo TextBox creato
            ' in precedenza verr� aggiunto come propriet� Tag di questo controllo Button. 
            Dim btnSpeakText As New Button

' Configurare alcune propriet� per il controllo TextBox.
            btnSpeakText.Text = "Speak Text"
            btnSpeakText.Name = "btnSpeakText"
            btnSpeakText.Location = New Point(controlLocation.X + 250, controlLocation.Y)
            btnSpeakText.Size = New Size(100, btnSpeakText.Height)

' Aggiungere a questo pulsante il controllo TextBox creato in precedenza.
            btnSpeakText.Tag = txtSpeakText

' Aggiungere il controllo TextBox all'insieme di controlli.
            Controls.Add(btnSpeakText)

' Incrementare il valore di m_LocationY affinch� il controllo successivo non sovrascriva quello esistente.
            controlLocation.Y += btnSpeakText.Height + 5

' Aggiungere il gestore eventi che gestir� l'evento quando
            ' viene premuto il pulsante.
            AddHandler btnSpeakText.Click, AddressOf SpeakTextClickHandler
        Else
            ' Consentire solo 5 controlli per semplificare l'interfaccia utente.
            MsgBox("You've reached 5 controls. Clear controls to start again.", _
                MsgBoxStyle.OKOnly, Me.Text)
        End If

' Incrementare il numero di controlli (solo di uno, anche se ne

' verranno aggiunti due).

controlCount += 1

' Consentire solo 5 pulsanti, per semplificare la creazione dell'interfaccia utente.

If controlCount <= 5 Then

' Creare il controllo TextBox che conterra' il testo da comunicare.

Dim txtSpeakText As New TextBox

' Configurare alcune proprieta' per il controllo TextBox.

txtSpeakText.Text = "Hello, World"
txtSpeakText.Name = "txtSpeakText"
txtSpeakText.Location = New Point(controlLocation.X + 250, controlLocation.Y)
txtSpeakText.Size = New Size(200, txtSpeakText.Height)

' Aggiungere il controllo TextBox all'insieme di controlli.

Controls.Add(txtSpeakText)

' Incrementare il valore di m_LocationY affinche' il controllo successivo non sovrascriva quello esistente.

controlLocation.Y += txtSpeakText.Height + 5

' Creare un pulsante da utilizzare in risposta ai clic

' Poiche' questo pulsante e' strettamente associato al controllo TextBox che

' fornira' il testo da visualizzare, il controllo TextBox creato

' in precedenza verra' aggiunto come proprieta' Tag di questo controllo Button.

Dim btnSpeakText As New Button

' Configurare alcune proprieta' per il controllo TextBox.

btnSpeakText.Text = "Speak Text"
btnSpeakText.Name = "btnSpeakText"
btnSpeakText.Location = New Point(controlLocation.X + 250, controlLocation.Y)
btnSpeakText.Size = New Size(100, btnSpeakText.Height)

' Aggiungere a questo pulsante il controllo TextBox creato in precedenza.

btnSpeakText.Tag = txtSpeakText

' Aggiungere il controllo TextBox all'insieme di controlli.

Controls.Add(btnSpeakText)

' Incrementare il valore di m_LocationY affinche' il controllo successivo non sovrascriva quello esistente.

controlLocation.Y += btnSpeakText.Height + 5

' Aggiungere il gestore eventi che gestira' l'evento quando

' viene premuto il pulsante.

AddHandler btnSpeakText.Click, AddressOf SpeakTextClickHandler
Else
' Consentire solo 5 controlli per semplificare l'interfaccia utente.

MsgBox("You've reached 5 controls. Clear controls to start again.", _
MsgBoxStyle.OKOnly, Me.Text)
End If