Discussion :

[chicagorange]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rv26t]

Bonjour,

En récupérant le contrôle par son nom, et en le castant dans son type.

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

messagebox.show (DirectCast(Me.Controls("TB1"), textbox).Text)