Clic droit TreeView multipage

Question

Bonjour à tous,

J'aimerais savoir si il est possible d'effectuer un clic droit afin d'afficher un menu contextuel sur un noeud spécifique d'un treeview se trouvant dans une page d'un multipage?

En espérant avoir été assez précis

Merci d'avance.

cs_Jack · Answer

Salut

Et pourquoi penses-tu que cela ne soit pas possible ?
Quelle mauvaise expérience endures-tu ?

A priori, qu'un objet soit installé dans un autre ne l&#8217;empêche pas de gérer ses évènements normalement.

On est sur un forum, pas sur un chat : donne le maximum d'info sur ton environnement et ton problème technique, ça fera gagner du temps à tout le monde.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

JackleKija · Answer

J'ai un multipage sur un UserForm contenant 17 pages et chacune d'elle contient un treeview

TreeView1
TreeView2
...
...
...
TreeView17

Quand j'applique une procédure d'événement clic sur le TreeView1 ou TreeView2 ou ... (n'importe) 
rien ne se déclenche


Private Sub TV_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
 
    MsgBox "Test"
 
End Sub


Logiquement quand je clique sur un élément du TreeView cela devrait m'afficher la message box mais rien...

Si j'execute cette procédure avec MultiPage1 ou UserForm cela fonctionne


Private Sub MultiPage1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
 
    MsgBox "Test"
 
End Sub



Je me demande juste si ma procédure est placée, au bon endroit ou s'il faut faire quelque chose en pluse pour qu'il reconnaisse un TreeView quelconque.

NHenry · Answer

Bonjour, 

Utilises AddHandler pour ajouter des gestionnaire d'événements à des événements des controles.

Sinon, tu peux aussi faire un collection ( List(Of)(...) ) de TreeView pour automatiser le code.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

cs_Jack · Answer

C'est simplement que tu ne passe pas dans la bonne procédure :
Private Sub TV_MouseDown(ByVal ...
s'applique à un objet nommé TV.
Or tes objets s'appellent TreeView1, TreeView2 ...
On devrait lire 
Private Sub TreeView1_MouseDown(ByVal ...

A moins que tu n'aies pas encore tout dit entre le lien entre les TreeView1 (...) et ce TV ...
Si, comme le laisse présager la catégorie de ta question, tu travailles en vb.Net sous Excel, dans ce cas la réponse de NHenry résoudra le problème, mais la déclaration que tu nous montre ne ressemble pas à une déclaration d'évènement de .Net.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

JackleKija · Answer

Bonjour,

J'ai fait le con dans le premier code que je vous ai montré, bien sur à la place de TV c'est TreeView1 mais ca vient d'un absurde copier/coller.

Sinon la réponse de NHenry m'a mis sur la bonne voie, j'ai groupé mes TreeView et mis le bout de code dans un module de classe.
J'ai également changé les paramètres car ils n'ont pas la même dimension dans un multipage je pense

Par contre c'est bien du VBA et non du .NET


Private Sub GroupTreeView_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As stdole.OLE_XPOS_PIXELS, ByVal Y As stdole.OLE_YPOS_PIXELS)

    'code clic droit

End Sub

cs_Jack · Answer

NHenry t'a proposé cela en pensant au .Net où une même procédure peut être associée à plusieurs objets, du moment qu'ils sont de même type.
Or de propos en VBA.
Le groupement n'aura aucun effet, oublie.

Donc, je me répète : il faut que la procédure que tu tentes d'exécuter appartienne au composant qui génère l'évènement - Lapalisse (1470-1525)
Si plusieurs TreeView doivent exécuter une procédure commune, il te faut créer cette procédure extérieurement aux évènements et l'appeler (Call) depuis les procédures évènement de chaque composant - impossible de grouper (en VBA).
Donc, les procédures qui se déclencheront au clic seront celles ressemblant à
Private Sub TreeView1_MouseDown(ByVal ...

NHenry · Answer

Bonjour, 

En effet, je me suis trompé de langage, dsl.
Je ne devais pas être très réveillé.

---------------------------------------------------------------------
Mon site

Clic droit TreeView multipage

7 réponses

Votre réponse

Discussions similaires