Ce sujet est résolu.
1 | |||
Auteur | Messages | ||
---|---|---|---|
spheris | #1 Posté le 27/12/2020 à 18:31:45 | ||
![]() | Bonjour, Comment simplifier ce code : 8 boutons appartenant au groupe monbouton. Lors d'un clic, je veux recopier le texte dans montexte dans la propriété texte du bouton. comment simplifier la procédure click ci dessous :
Merci pour votre aide. ![]() | ||
valaquarus | #2 Posté le 28/12/2020 à 12:03:00 | ||
-- Unus Ex Altera --![]() | Public Sub monbouton_Click() Select Case Button Default Last.text = montexte End Select End Bisous et bonne année Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.3 | ||
valaquarus | #3 Posté le 28/12/2020 à 12:28:15 | ||
-- Unus Ex Altera --![]() | Ou autre plus simple : Public Sub monbouton_Click() If Last.Text = Label1.Text Then Last.Text = "" Else Last.text = Label1.Text Endif End Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.3 | ||
vuott | #4 Posté le 28/12/2020 à 14:32:21 | ||
Ne cedere ineluctabili possimus | Le texte, contenu par la variable "montexte", est-il différent selon la bouton pressée ? Ou est-il identique pour toutes les boutons ? « Vita non suavis esse potest, nec Mors amara. » | ||
spheris | #5 Posté le 28/12/2020 à 22:37:15 | ||
![]() | montexte est le résultat dialog.path d'un filechooser. Il n'est pas le même. | ||
spheris | #6 Posté le 29/12/2020 à 09:42:48 | ||
![]() | Bon j'ai trouvé. Curieux mais il suffit simplement d'écrire:
Je ne comprends pas bien pourquoi mais voilà. | ||
Patrick | #7 Posté le 31/12/2020 à 15:56:19 | ||
Bonjour, C'est parce que LAST prend la valeur du dernier objet utilisé dans un observateur d’événement, on peut faire des choses du genre : LAST.Text = montext Seclect case LAST case Boutton1 mon traitement Et ainsi garder la propriété Tag pour autre chose. On peut aussi séparer les traitements avec observer : public sub _new() dim obs as observer obs = new observer(button1) as "monbouton" end public sub monbouton_click() LAST.Text = montext end public sub button1_click() mon traitement end C'est pratique et lisible. | |||
1 |