OVH Cloud OVH Cloud

Menu contextuel sur listview ?

6 réponses
Avatar
Santino
Bonjour à tous,

Quelqu'un aurait il des exemples de menu contextuel fonctionnant sur un
listview ?

Merci !

Laurent

6 réponses

Avatar
Raymond [mvp]
Bonjour.

à ma connaissance, ce n'est pas possible de placer un menu contextuel sur un
listview. Il y a un moyen de détourner la difficulté en plaçant un bouton de
commande juxtaposé avec le listview et permettant d'afficher le menu
contextuel.
placer le bouton et indiquer la procédure suivante:
Private Sub Commande0_Click()
Application.CommandBars("essais").ShowPopup
End Sub

essais étant la barre de menus contextuels.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Santino" a écrit dans le message de news:
41fbd4d5$0$6604$
Bonjour à tous,

Quelqu'un aurait il des exemples de menu contextuel fonctionnant sur un
listview ?

Merci !

Laurent



Avatar
Santino
Ok, pourquoi pas ...

Maintenant, c'est vrai que si je voulais savoir comment faire c'était parce
qu'on voit souvent ça dans pas mal d'applications ... connais tu des objets
qui gèrent ce genre de choses ? Ou alors faut il utiliser autre chose que
VB?

Merci

Laurent


"Raymond [mvp]" a écrit dans le message de
news: %
Bonjour.

à ma connaissance, ce n'est pas possible de placer un menu contextuel sur
un listview. Il y a un moyen de détourner la difficulté en plaçant un
bouton de commande juxtaposé avec le listview et permettant d'afficher le
menu contextuel.
placer le bouton et indiquer la procédure suivante:
Private Sub Commande0_Click()
Application.CommandBars("essais").ShowPopup
End Sub

essais étant la barre de menus contextuels.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Santino" a écrit dans le message de news:
41fbd4d5$0$6604$
Bonjour à tous,

Quelqu'un aurait il des exemples de menu contextuel fonctionnant sur un
listview ?

Merci !

Laurent







Avatar
Raymond [mvp]
Tu peux utiliser les menus contextuels (sauf sur les ocx en général, qui
gèrent ou non eux-mêmes) sur tous les contrôles normaux access ( texte,
listes ......) . si un menu contextuel est utilisable tu peux le paramétrer
dans l'onglet autres des propriétés en indiquant oui dans menu contextuel et
le nom dans barre de menu contextuel. Tu peux indiquer un menu différent
pour chaque contrôle du formulaire. Si un ocx permet de gérer les menus
contextuel , tu trouveras les deux lignes dans les propriétés.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Santino" a écrit dans le message de news:
41fc007a$0$19410$
Ok, pourquoi pas ...

Maintenant, c'est vrai que si je voulais savoir comment faire c'était
parce qu'on voit souvent ça dans pas mal d'applications ... connais tu des
objets qui gèrent ce genre de choses ? Ou alors faut il utiliser autre
chose que VB?

Merci

Laurent


Avatar
Guy DETIENNE
Raymond,

Il est tout à fait possible d'utiliser un menu contextuel avec un Listview
en utlisant l'événement MouseUp, ou alors je n'ai rien compris à la question
!!!

Il faudra préalablement créer un menu...

Private Sub listview1_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Long, ByVal y As Long)

If Button = 2 Then 'si bouton droit cliqué
CommandBars("MonMenu").ShowPopup
End If

End Sub

Guy


"Raymond [mvp]" a écrit dans le message de
news:%
Bonjour.

à ma connaissance, ce n'est pas possible de placer un menu contextuel sur
un

listview. Il y a un moyen de détourner la difficulté en plaçant un bouton
de

commande juxtaposé avec le listview et permettant d'afficher le menu
contextuel.
placer le bouton et indiquer la procédure suivante:
Private Sub Commande0_Click()
Application.CommandBars("essais").ShowPopup
End Sub

essais étant la barre de menus contextuels.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Santino" a écrit dans le message de news:
41fbd4d5$0$6604$
Bonjour à tous,

Quelqu'un aurait il des exemples de menu contextuel fonctionnant sur un
listview ?

Merci !

Laurent







Avatar
Raymond [mvp]
Bonjour Guy.

dans les posts, on parle du vrai menu contextuel qu'on indique dans les
propriétés du contrôle et non une procédure événementielle qui affiche un
menu sur un événement de souris.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Guy DETIENNE" a écrit dans le message de news:

Raymond,

Il est tout à fait possible d'utiliser un menu contextuel avec un Listview
en utlisant l'événement MouseUp, ou alors je n'ai rien compris à la
question
!!!

Il faudra préalablement créer un menu...

Private Sub listview1_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Long, ByVal y As Long)

If Button = 2 Then 'si bouton droit cliqué
CommandBars("MonMenu").ShowPopup
End If

End Sub

Guy


Avatar
Guy DETIENNE
Ok ! Mes yeux ont donc fourché.
Mais créer un menu de toute pièce reste relativement simple à faire.



"Raymond [mvp]" a écrit dans le message de
news:eZvi$
Bonjour Guy.

dans les posts, on parle du vrai menu contextuel qu'on indique dans les
propriétés du contrôle et non une procédure événementielle qui affiche un
menu sur un événement de souris.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Guy DETIENNE" a écrit dans le message de news:

Raymond,

Il est tout à fait possible d'utiliser un menu contextuel avec un
Listview


en utlisant l'événement MouseUp, ou alors je n'ai rien compris à la
question
!!!

Il faudra préalablement créer un menu...

Private Sub listview1_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal x As Long, ByVal y As Long)

If Button = 2 Then 'si bouton droit cliqué
CommandBars("MonMenu").ShowPopup
End If

End Sub

Guy