Bonjour à tous.
Je vais essayer d’être bref:
j'ai ce code :
C'est qu'une petite partie.
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
26
27
28
29
30
31
32 Dim tet As New List(Of TextBox) Dim num_tb As Integer = 0 Private Sub Page_Exercices_Load(sender As Object, e As EventArgs) Handles MyBase.Load tet.Add(New TextBox) Me.Controls.Add(tet(0)) For i As Integer = 0 To tet.Count - 1 AddHandler tet(i).LostFocus, AddressOf test Next end sub Private Sub BT_enversinté_Click(sender As Object, e As EventArgs) Handles BT_enversinté.Click tet(num_tb).Text = tet(num_tb).Text & "¿" End Sub Private Sub BT_Inté_Click(sender As Object, e As EventArgs) Handles BT_Inté.Click tet(num_tb).Text = tet(num_tb).Text & "?" End Sub Private Sub BT_enversexclam_Click(sender As Object, e As EventArgs) Handles BT_enversexclam.Click tet(num_tb).Text = tet(num_tb).Text & "¡" End Sub Private Sub BT_exclam_Click(sender As Object, e As EventArgs) Handles BT_exclam.Click tet(num_tb).Text = tet(num_tb).Text & "!" End Sub Private Sub test() 'num_tb = numéro textbox tet() lostfocus End Sub
J'aimerais pouvoir récuperer le numéro (i) de text box "tet" dans ma procédure test.
En gros je vais avoir plusieurs textbox (nommées "tet(i)" ici) et j'ailerais, l'orsque je "lostfocus" enregistrer le numéro de ma textbox dans ma variable num_tb.
Pour pouvoir, lorsque je clique sur mes boutons écrire la valeur du bouton dans la textbox en question !
Voila merci par avance !
Partager