Discussion :

[joel64230]

Bonjour, j'ai une collection de 300 textbox dans un frame; je veux intercepter l'évènement de chaque textbox (click ou textchanged); en définissant un tag pour chaque textbox, je les identifie et je lis le contenu dans "sender". Le problème, c'est que dans le "Handles" qui intercepte l'évènement, je dois mettre la liste complète des textbox:

Code :

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

Private Sub TextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Click, TextBox2.Click '.......

Y a t'il un moyen plus élégant et d'éviter la longue liste des 300 textbox dans le "Handles".
Je vous remercie par avance.
Cordialement.

[Sankasssss]

Bonjour,

il faut enlever les Handles et boucler sur tous les controles pour leurs lier l’événement via addHandler

http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx

[Pol63]

de la même manière tu aurais pu poser les 300 textboxes en 3 lignes de code plutot que de les poser à la main

[joel64230]

de la même manière tu aurais pu poser les 300 textboxes en 3 lignes de code plutot que de les poser à la main

Merci, je suis preneur de la méthode, il n'est jamais trop tard pour bien faire! Les créer, pas de problème, mais c'est pour les positionner en juxtaposition...Et en plus, il faut que la première box en haut à gauche soit la première dans la collection.
Cordialement.

Bonjour,

il faut enlever les Handles et boucler sur tous les controles pour leurs lier l’événement via addHandler

http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx

Merci Sankasssss, sans être débutant, je ne suis pas expert, pouvez vous me guider un petit peu, j'ai essayé, mais c'est assez flou pour moi, et je ne trouve pas le bon fonctionnement avec addHandler.
Cordialement.

[Pol63]

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
private _TxtB as new list(of textbox)
 
private sub CreateTextboxes
  for x as integer = 1 to 10
    for y as integer = 1 to 10
      dim t as new textbox
      _TxtB.Add(t)
      t.left = x * 100
      t.top = y * 20
      t.size = new drawing.size(100,20)
      AddHandler t.Click, AddressOf TextboxClick
      me.controls.add(t)
    next
  next
end sub
 
private sub TextboxClick(sender as object, e as system.Eventargs)
   dim LeTextboxCliqué as textbox = directcast(sender, textbox)
   '
end sub

sinon il existe des container de positionnement permettent de ne pas avoir à manipuler top et left (tablelayoutpanel, flowlayoutpanel etc...)

[joel64230]

sinon il existe des container de positionnement permettent de ne pas avoir à manipuler top et left (tablelayoutpanel, flowlayoutpanel etc...)

Merci pour l'aide, c'est ok pour l'utilisation de AddHandler; je vais maintenant fouiller autour de la création automatique des Textbox, surtout de leur positionnement par rapport aux besoins de mon projet.
Encore Merci.