XL 2016 VBA - Évènement TextBox_Enter() non géré en module de Classe
- Initiateur de la discussion Dudu2
- Date de début
fanch55
XLDnaute Barbatruc
Saut @Dudu2,
J'ai testé:
codes-sources.commentcamarche.net
Cela semble fonctionner
J'ai testé:
Classe de TextBox et événements Exit et Enter
Bonjour, Suite à cette discussion, et, plus particulièrement, ce code d'ucfoutu, je me suis dit qu'il serait agréable de créer un objet personnalisé "TextBox_Date". Souhaitant donc créer une classe de textbox, et afin de contrôler leur...
codes-sources.commentcamarche.net
Cela semble fonctionner
patricktoulon
XLDnaute Barbatruc
re
l'astuce est simple
les classe gèrent les events mose_....
et un des arguments qui est button
qui permet d'avoir le mêm comportement
donc avec mon astuce d'instance commune de classe à toutes les autres
on devrait te donner le même résultat
allez démonstration
l'astuce est simple
les classe gèrent les events mose_....
et un des arguments qui est button
qui permet d'avoir le mêm comportement
donc avec mon astuce d'instance commune de classe à toutes les autres
on devrait te donner le même résultat
allez démonstration
fanch55
XLDnaute Barbatruc
Salut @patricktoulon ,
Ton code fonctionne correctement avec la souris, pas le clavier .
Celui que j'ai récupéré au post #2 semble fonctionner également au clavier
Ton code fonctionne correctement avec la souris, pas le clavier .
Celui que j'ai récupéré au post #2 semble fonctionner également au clavier
patricktoulon
XLDnaute Barbatruc
patricktoulon
XLDnaute Barbatruc
Dudu2
XLDnaute Barbatruc
Salut le premiers de la Classe,
@fanch55, le code auquel tu fais référence est celui qui commence par ça ?
Je sais pas où le gars a trouvé un truc pareil mais ça vient de l'espace !
@patricktoulon,
Pareil, je sais pas où t'as trouvé une astuce pareille mais j'en reste coi !
Merci pour la vidéo explicative !
Merci à tous les deux, je continue à suivre de près vos réflexions mutuelles sur les solutions proposées.
@fanch55, le code auquel tu fais référence est celui qui commence par ça ?
VB:
Public Sub Entrer()
Attribute Entrer.VB_UserMemId = -2147384830@patricktoulon,
Pareil, je sais pas où t'as trouvé une astuce pareille mais j'en reste coi !
Merci pour la vidéo explicative !
Merci à tous les deux, je continue à suivre de près vos réflexions mutuelles sur les solutions proposées.
patricktoulon
XLDnaute Barbatruc
re
@Dudu2
je suis en train de te l'adapter au touche je reviens plus tard
tu veux les touches
9 tabulation ok (simple)
13 enter ok (simple)
38 flèche haut(c'est plus compliqué dans le sens ou le textbox du dessus n'est pas forcement le tabindex -1)
40 flèche bas (idem que touche 38 même punition)
37 flèche gauche ok (simple)
39 flèche droite ok (simple)
sinon avec touches tab et enter j'ai déja réglé le problème
dans le sens ou je lui fait faire la même chose qu'en temps normal c'est a dire tab ou enter passe au taindex suivant
si tu me dis que les flèches tu t'en sert pas je suis bon pour l'event enter et exit complet
@Dudu2
tout simplement en connaissant bien les events et leur comprotement particuliers en certains cas
je suis en train de te l'adapter au touche je reviens plus tard
tu veux les touches
9 tabulation ok (simple)
13 enter ok (simple)
38 flèche haut(c'est plus compliqué dans le sens ou le textbox du dessus n'est pas forcement le tabindex -1)
40 flèche bas (idem que touche 38 même punition)
37 flèche gauche ok (simple)
39 flèche droite ok (simple)
sinon avec touches tab et enter j'ai déja réglé le problème
dans le sens ou je lui fait faire la même chose qu'en temps normal c'est a dire tab ou enter passe au taindex suivant
si tu me dis que les flèches tu t'en sert pas je suis bon pour l'event enter et exit complet
Dudu2
XLDnaute Barbatruc
Concernant l'éditeur VBA, comment fais-tu pour avoir le "smart indent" ?
Ça c'est mon menu contextuel, rien de tel !
Ça c'est mon menu contextuel, rien de tel !
Dudu2
XLDnaute Barbatruc
Pourquoi tu veux l'adapter aux touches ?
Avec l'évènement Private Sub TxtB_Click() à la place du MouseUp ça marche avec toutes les touches.
Avec l'évènement Private Sub TxtB_Click() à la place du MouseUp ça marche avec toutes les touches.
patricktoulon
XLDnaute Barbatruc
re
pour le smart indent je l'ai installer c'est tout
sauf qu'il n'est plus mis ajour depuis vb6 2007
mais de la même manière que l'installation de l'ocx pour le listview
si on le fait a la main (voir même avec un petit bat
on peut l'installer sur 32 et 64
pour le smart indent je l'ai installer c'est tout
sauf qu'il n'est plus mis ajour depuis vb6 2007
mais de la même manière que l'installation de l'ocx pour le listview
si on le fait a la main (voir même avec un petit bat
on peut l'installer sur 32 et 64
patricktoulon
XLDnaute Barbatruc
re
re non c'est moi qui t'ai induit en erreur toute à l'heure
l'events NonDuTextBox_click() n'existe pas
re non c'est moi qui t'ai induit en erreur toute à l'heure
l'events NonDuTextBox_click() n'existe pas
Dudu2
XLDnaute Barbatruc
Ah oui, je me suis mélangé les crayons avec tes 2 UserForms.
patricktoulon
XLDnaute Barbatruc
l'un c'est d'origine le(2)
l'autre est géré par la classe c'est le (1)
l'autre est géré par la classe c'est le (1)
Discussions similaires
- Question
- Résolu(e)
- Résolu(e)
