Obtenir le numéro du contrôle que l'on quitte.

**Jeano81** · 22/04/2015, 14h35

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 !

**jopopmk** · 22/04/2015, 15h05

Salut,

franchement, j'entrave que dalle à ta demande, reformule STP

Envoyé par Jeano81

Pour pouvoir, lorsque je clique sur mes boutons écrire la valeur du bouton dans la textbox en question !

Si c'est pour un traitement en fonction d'une information associée au bouton sur lequel tu clicques, je vois pas pourquoi tu veux enregistrer quoi que ce soit sur un LostFocus.

**Jeano81** · 22/04/2015, 15h25

En fait j'ai une fenêtre avec des textbox (créés dynamiquement donc le nombre varie en fonction des informations que le logiciel reçois) !
A ces textbox je leur ajoute un addhandler pour récupérer LA textbox qui pers le focus quand l'utilisateur viendra cliquer sur un bouton !
Les boutons sont en fait des caractères spéciaux (style point d’interrogation à l’envers, où autre, c'est sans importance, ils contiennent des caractères).
Quand l'utilisateur clique sur un bouton, je veux que ça regarde sur quelle textbox il était et ajoute à celle ci le caractère présent sur le bouton cliqué !
Voila pourquoi j'utilise le LostFocus, pour récupérer quelle textbox était focus avant de cliquer sur un bouton pour ajouter LE caractère à LA textbox dans laquelle on était en trin d'écrire !
D’où mon code en fait !

**Homerzz** · 22/04/2015, 15h46

Pour faire ça en fait faut que tu mémorises la dernière textBox qui a eu le focus.

Tu peux faire une variable globale que tu déclare en tant que textbox.
Ensuite lorsque tu perds le focus de d'un TB tu assigne ta textbox a ta variable.

J'ai fait un petit code de test pour que tu puisses mieux comprendre

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
Public Class Form1
 
    Dim tblast As TextBox ' ici la variable globale quio contiendra ta dernière textbox visitée
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        tblast = TextBox1 ' donne la textbox à la variable global lors de la perte du focus
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
        tblast = TextBox2 ' donne la textbox à la variable global lors de la perte du focus
    End Sub
 
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.LostFocus
        tblast = TextBox3 ' donne la textbox à la variable global lors de la perte du focus
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tblast.Text += Button1.Text ' ajoute la caractère contenu dans le bouton à la dernière textbox qui a perdu le focus
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tblast.Text += Button2.Text ' ajoute la caractère contenu dans le bouton à la dernière textbox qui a perdu le focus
    End Sub
End Class

En espérant que ça puisse t'aider

**jopopmk** · 22/04/2015, 15h47

Oki, alors il faut simplement enregistrer une référence sur ladite TextBox via, par exemple, une variable globale.
Par contre c'est pas sur le Leave (événement plus générique que LostFocus) qu'il faut faire cet enregistrement, mais sur le Enter (ou GotFocus).
La raison est simple et tiens en deux points :
- la référence à ta TextBox "courrante" ne sera écrasée qu'en entrant dans une autre TextBox, donc pas de souci sur le click des boutons,
- si tu enregistres la référence en quittant ta TextBox ... pour une autre TextBox, alors ta référence ne sera pas la bonne.

**Jeano81** · 22/04/2015, 16h38

Tout d'abord merci pour vos réponses Cela dit, j'ai toujours un souci :
Si je comprends bien, mon code deviens ceci :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Dim tet As New List(Of TextBox)
    Dim num_tb As TextBox
 
Private Sub Page_Exercices_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        tet.Add(New TextBox)
        Me.Controls.Add(tet(0))
        tet(0).Visible = True
        tet(0).Location = New Point(500, 50)
 
        For i As Integer = 0 To tet.Count - 1
            AddHandler tet(i).GotFocus, AddressOf test
        Next
 
    End Sub
 
Private Sub BT_á_Click(sender As Object, e As EventArgs) Handles BT_á.Click
        num_tb.Text += BT_á.Text
    End Sub
 
    Private Sub BT_é_Click(sender As Object, e As EventArgs) Handles BT_é.Click
        num_tb.Text += BT_é.Text
    End Sub
 
    Private Sub BT_í_Click(sender As Object, e As EventArgs) Handles BT_í.Click
        num_tb.Text += BT_í.Text
    End Sub
 
    Private Sub BT_ó_Click(sender As Object, e As EventArgs) Handles BT_ó.Click
        num_tb.Text += BT_ó.Text
    End Sub
 
    Private Sub BT_ú_Click(sender As Object, e As EventArgs) Handles BT_ú.Click
        num_tb.Text += BT_ú.Text
    End Sub
 
    Private Sub BT_ñ_Click(sender As Object, e As EventArgs) Handles BT_ñ.Click
        num_tb.Text += BT_ñ.Text
    End Sub
 
    Private Sub BT_enversinté_Click(sender As Object, e As EventArgs) Handles BT_enversinté.Click
        num_tb.Text += BT_enversinté.Text
    End Sub
 
    Private Sub BT_Inté_Click(sender As Object, e As EventArgs) Handles BT_Inté.Click
        num_tb.Text += BT_Inté.Text
    End Sub
 
    Private Sub BT_enversexclam_Click(sender As Object, e As EventArgs) Handles BT_enversexclam.Click
        num_tb.Text += BT_enversexclam.Text
    End Sub
 
    Private Sub BT_exclam_Click(sender As Object, e As EventArgs) Handles BT_exclam.Click
        num_tb.Text += BT_exclam.Text
    End Sub
 
    Private Sub test()
 
 
 
    End Sub

Mais dans ma procédure "test" je dois mettre quoi ?
vu qu'un truc du style :

Code :

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

1
2
3
4
5
Private Sub test()
 
    num_tb = tet
 
    End Sub

ne fonctionne pas :/

Ps : mon code n'est pas fini pour l'exemple je vous donne un code qui ne crée qu'une seule textbox mais j'aurais bien plusieurs textbox de créées !

**jopopmk** · 22/04/2015, 17h01

Je comprends pas bien le VB mais elle est où la fonction associée aux events de tes TextBox ?
En C# tu aurais un truc comac :

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
// mon attribut pour conserver la TextBox courante
private TextBox currentTextBox = null;
 
// mon Form Load où je crée mes TextBox dynamiquement
private void frmTest_Load(object sender, EventArgs e) {
	for (int i = 0; i < 5; i++) {
		TextBox txt = new TextBox();
		// 2-3 attributs pour les positionner
		txt.Name = "txt" + i;
		txt.Text = txt.Name;
		txt.Width = 50;
		txt.Height = 50;
		txt.Top = 10;
		txt.Left = 10 + i * 52;
		// j'ajoute mon handler sur l'event Enter
		txt.Enter += new EventHandler(txt_Enter);
		// je l'incruste dans ma Form
		this.Controls.Add(txt);
	}
}
 
// le handler associé à l'event Enter de chaque TextBox
void txt_Enter(object sender, EventArgs e) {
	// on conserve sa référence dans l'attribut de la classe
	this.currentTextBox = (TextBox)sender;
}
 
// un exemple d'utilisation avec un bouton qui écrit 'test' dans la TextBox courante
private void btnTest_Click(object sender, EventArgs e) {
	if (this.currentTextBox != null)
		this.currentTextBox.Text = "test";
}

Obtenir le numéro du contrôle que l'on quitte.

VB.NET

Vue hybride

Discussions similaires

Partager

Partager