Discussion :

[Haydjy]

Bonjour Tout le monde,

Après plusieurs heures de recherche sur tous les forum qui parlent de ça, je n'arrive pas à résoudre un problème.
Je crée une petite appli sur le Form de laquelle je génère de façon dynamique des contrôles TextBox selon deux renseignements fournis par l'utilisateur. Jusque là tout va bien... ou presque.
Je dois obtenir X lignes de X TextBox, plus un TextBox en fin de chaque ligne pour décoder les données entrées.
Tant que je ne crée pas de ligne

Code :

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

Dim WithEvents NewTextBox as TextBox = New TextBox()

au début de ma Class, mais que j'écris simplement

Code :

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

Dim NewTextBox as TextBox = New TextBox()

au début de ma Sub GénérationBox, tout se passe bien, et mes box sont créées comme il faut... sauf que je n'ai pas d'évènements dessus.
Au contraire, si je fais l'inverse de ce qui est écrit au dessus, je n'ai que ma dernière box qui apparait mais elle réagit bien aux évènements. Dans ce cas, j'ai mis un Sleep (500) sur la création des box, je les voit bien se dessiner, mais elle disparaissent aussitôt (en fait je ne vois que la bordure, pas l'intérieur) sauf pour la dernière qui est elle apparente.
J'ai tenté de mettre un Handler après la génération du TextBox, mais il me demande de déclarer un WithEvents (ce qui est normal) mais du coup je retombe dans mon premier soucis.
En résumé, j'ai soit toutes mes box et pas d'Events, soit l'inverse.
Est-ce que je demande quelque chose d'impossible à Visual Basic ou bien est ce que j'ai loupé quelque chose d'important.
J'utilise VB 2008 Express Edition.
Mon code pour générer les box est du type : Me.Controls.Add(NewTextBox) suivi des options de format du contrôle TextBox.

Merci de m'aider, je deviens fou là...
Désolé d'avoir été long, mais je voulais être détaillé et précis. Je vous joindrais le code sans soucis si vous trouvez utile de l'avoir pour m'aider un peu.

Bonne soirée et mes meilleurs voeux.

[tomlev]

Il faut utiliser le mot-clé AddHandler pour ajouter dynamiquement un handler d'évènement.

Code :

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

1
2
3
4
5
6
7
8
9
Dim NewTextBox as TextBox = New TextBox()
AddHandler NewTextBox.TextChanged, AddressOf NewTextBox_TextChanged
 
 
...
 
Private Sub NewTextBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
    ...
End Sub

Pour enlever le handler, utilise RemoveHandler

[Haydjy]

Merci, ça marche très bien.

En fait, j'écrivais mal mon Addhandler, je mettais

Code :

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

AddHandler TextChanged, AddressOf NewTextBox_TextChanged

et comme d'une part, je ne suis pas habitué à les écrire, et que d'autre part ça ne me remontait pas d'erreur, je ne comprenais plus.
Bon, j'ai galéré un peu pour récupérer mon texte à l'intérieur du champs, mais j'y suis arrivé... je faisais un NewTextBox.Text au lieu de sender.Text

Merci encore.

Au passage merci à celui qui a édité mon texte pour insérer les balises début et fin de CODE, j'y ferais attention à l'avenir.