[VB.NET] Récupérer la valeur d'une textbox créée dynamiquement
Bonjour,
Je souhaite, en VB.NET, créer une textbox dans mon userform au moment de l'initialisation de celui ci. Puis quand je clique sur un bouton (créé dynamiquement également), je veux afficher le texte de la textbox dans un msgbox.
Créer mes contrôles ne me pose pas de problème :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Ajout d'un bouton
Dim Bt1 As New Button
Bt1.Height = 20
Bt1.Width = 100
Bt1.Top = 60
Bt1.Left = 60
Bt1.Text = "Lire"
' Ajout de l'évènement quand on clique sur le bouton
AddHandler Bt1.Click, New System.EventHandler(AddressOf Lire)
' Ajout d'une textbox
Dim TB As New TextBox
TB.Name = "TB1"
TB.Height = 20
TB.Width = 100
TB.Top = 30
TB.Left = 30
Me.Controls.Add(Bt1)
Me.Controls.Add(TB)
End Sub |
Le problème est maintenant de récupérer le texte de la textbox.
Code:
1
2
3
4
5
6
7
8
9
|
Private Sub Lire()
' Dim TB1 As TextBox = Me.Controls.Item("TB1")
' MsgBox(TB1.text)
' Ne fonctionne pas
End Sub |
Si quelqu'un sait comment faire cela, ça serait génial.
Je vous remercie par avance pour votre aide.
Cordialement,
Sebastien
