Bonjour à tous.

Je vais essayer d’être bref:

j'ai ce code :

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
C'est qu'une petite partie.
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 !