Discussion :

[themine702]

(j'été entrain d'écrire un message plus détaillé sa a beugué et tout effacé, je vais faire plus simple donc )


ok alors, on a une form vb.net simple, avec un bouton à chaque fois qu'on appuie dessus ca va ajouter un bouton à la form

par exemple j'appuie 10 fois à chaque, ca va ajouter un bouton qui n'est pas déja déclaré

en sachant que le :

Code :

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

Dim buton1 as new button

(ca utilise l'UI d'un bouton mais on peut pas l'afficher sur la form)

puis il faut que je puisse pouvoir modifier le boutton, après qu'il a été ajouté, par example je remplace le texte du bouton2 (qui a été déclaré après que j'ai appuyé sur le bouton1)

c'est vraiment très important j'en ai besoin
merci d'avance (pour plus de détail je suis là)

[Pol63]

quand on veut garder une instance accessible, on la met dans une variable (type variable sur la classe du form)
quand on eut garder des instances sans en connaitre le nombre, on utilise une collection (un tableau à une dimension amélioré)

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
 
private _buttons as new list(of button) ' collection qui contiendra tous les boutons ajoutés dynamiquement, _boutons(0) étant le 1er ajouté 
 
 
public sub buttonAddbutton_Click (sender as object, e as system.Eventargs) handles buttonAddbutton.Click
  dim b as new button ' instanciation d'un nouveau bouton
  _buttons.Add(b) ' ajout de l'instance dans la collection pour pouvoir la retrouver plus tard
  me.flowlayoutpanel1.controls.Add(b) ' ajout du controle sur le form (ici sur un type de panel qui gère le positionnement, mais tu peux faire me.controls.Add(b) et gérer toi même .top et .left)
  addhandler b.click, addressof unbuttonClick ' ici c'est pour s'abonner à un évènement de l'instance
  me.text = _boutons.count.tostring & " boutons ajoutés" ' pour illustrer le .count
end sub
 
private sub unbuttonClick(sender as object, e as system.Eventargs) ' si on a créé plusieurs boutons, le click de tous les boutons ramène ici
   dim boutoncliqué = directcast(sender, button) ' donc on récupère celui qui a été cliqué dans sender
   ' code
end sub

je t'ai mis tous les concepts utiles, c'est à approfondir en testant ...

[themine702]

oui sa aide mais le problème est que chaque bouton, à l'appuie doit exécuter :

Code :

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

OID_execute("le nom du bouton" & "ID")

après la sub s'occupe du reste

puis par exemple pour un "webbrowser" sa doit exécuter sa quand la page finit de charger ..

et tant qu'on y est sa :

Code :

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

1
2
3
4
Dim btn1 as new button
me.controls.Add(btn1)
btn1.location.x = 0
btn1.location.y = 0

sa marcherai aussi ?

j'ai un peu réfléchi sur ta dernière réponse vous m'avez dit, tous les boutons exécuteront le meme code, et si juste dans le byVal on rajoute un (i) qui aurai le nom du bouton appuyé et quand on appuie sa exécuterai une function ou une sub, qui exécuterai le code du bouton qu'il faut par if elseif .. non ?

[Pol63]

un évènement a une signature donnée (nombre et type des paramètres), on ne peut pas en rajouter

par contre comme je l'ai dit sender contient le bouton cliqué
chaque control a une propriété tag dans laquelle on met ce qu'on veut
tu peux donc faire b.tag = unnombreincrémenté

et dans l'event lire le tag pour exécuter quelque chose qui sera différent pour chaque bouton


pour le .location, c'est ce que je disais, moi j'ai mis dans un flowlayoutpanel parce que c'est 100x plus pratique (tu n'as pas essayé sinon tu en serais convaincu) mais tu peux définir la location comme tu le souhaites
par contre .location.x et .location.y sont "readonly" (parce que ...)
donc soit définir .location, soit définir .top et .left

[themine702]

bah ok merci :p

[themine702]

un évènement a une signature donnée (nombre et type des paramètres), on ne peut pas en rajouter

par contre comme je l'ai dit sender contient le bouton cliqué
chaque control a une propriété tag dans laquelle on met ce qu'on veut
tu peux donc faire b.tag = unnombreincrémenté

et dans l'event lire le tag pour exécuter quelque chose qui sera différent pour chaque bouton


pour le .location, c'est ce que je disais, moi j'ai mis dans un flowlayoutpanel parce que c'est 100x plus pratique (tu n'as pas essayé sinon tu en serais convaincu) mais tu peux définir la location comme tu le souhaites
par contre .location.x et .location.y sont "readonly" (parce que ...)
donc soit définir .location, soit définir .top et .left

je vais utiliser le code maintenant et je me rend compte que je c'est tellement facile que j'aurai pu le faire seul, bref, vous avez dit location.x et .y sont "readonly" mais c'est facile de les modifier comme ça : .location = new point(x, y) ' juste au cas ou quelqu’un va utiliser le code

bonjour, alors sur le meme sujet ce que je veut faire c'est n'importe l'event que éxécute n'importe quel boutton sa va executer une sub qui fera ceci :

Code :

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

1
2
3
'Je dois récupérer le nom de l'Event puis faire ça :
execute("bouton : " & (le nom de l'objet) & "_" & (le nom de l'event)
'pour le nom de l'objet facile le probleme c'est le nom de l'event par example récupérer : TextChanged

[Pol63]

rien de spécialement prévu pour ça je pense
après il y a du bricolage possible

quand une sub est liée à plusieurs types d'event, e est à déclarer as System.EventArgs
mais l'instance est bien du type prévu, et pour certains events c'est un type dérivé qui fournit, donc tu peux tester le type de e (enfin pour click par exemple c'est un eventargs simple)

après il reste de regarder dans la pile des appels l'appelant si ca vient de textbox.ontextchanged ou autre