Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic evenement menu

evenement menu

5 réponses
Avatar
PR-VB6
Bonjour,

Un menu n'a qu'un évènement click.
Est il possible d'en avoir un 2ème par exemple
CTRL + click

merci

PR
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Oui il suffit de vérifier le paramètre shift de l'évenement mouseuop ou
mousedown.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

PR-VB6 wrote:
Bonjour,

Un menu n'a qu'un évènement click.
Est il possible d'en avoir un 2ème par exemple
CTRL + click

merci

PR


Avatar
PR-VB6
mais un menu n'a pas d'évènement mouse_up ou mouse_down!!!


"ng" a écrit dans le message de
news:%
Salut,

Oui il suffit de vérifier le paramètre shift de l'évenement mouseuop ou
mousedown.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

PR-VB6 wrote:
> Bonjour,
>
> Un menu n'a qu'un évènement click.
> Est il possible d'en avoir un 2ème par exemple
> CTRL + click
>
> merci
>
> PR




Avatar
François Picalausa
Hello,

Tu peux récupérer l'état de la touche Ctrl par l'API GetAsyncKeyState:

Private Const VK_CONTROL = &H11

Private Declare Function GetAsyncKeyState _
Lib "User32" _
( _
ByVal vKey As Long _
) _
As Integer

Private Sub mnuCtrl_Click()
If GetAsyncKeyState(VK_CONTROL) And &H8000 Then
Debug.Print "Ctrl"
Else
Debug.Print "Sans Ctrl"
End If
End Sub

Mais je me demande si une telle interface serait compréhensible au premier
coup d'oeil!?
Une checkbox ou deux menus séparés serait peut être plus appropriés?

--
François Picalausa

"PR-VB6" a écrit dans le message de news:

mais un menu n'a pas d'évènement mouse_up ou mouse_down!!!


Avatar
PR-VB6
merci bcp
si ca marche c'est exactement ce qu'il me faut
je suis un peu iconoclaste et je n'aime pas l'aide de windows
or je veux pouvoir expliquer un menu/sous menu
merci encore
Pr



"François Picalausa" a écrit dans le message de
news:
Hello,

Tu peux récupérer l'état de la touche Ctrl par l'API GetAsyncKeyState:

Private Const VK_CONTROL = &H11

Private Declare Function GetAsyncKeyState _
Lib "User32" _
( _
ByVal vKey As Long _
) _
As Integer

Private Sub mnuCtrl_Click()
If GetAsyncKeyState(VK_CONTROL) And &H8000 Then
Debug.Print "Ctrl"
Else
Debug.Print "Sans Ctrl"
End If
End Sub

Mais je me demande si une telle interface serait compréhensible au premier
coup d'oeil!?
Une checkbox ou deux menus séparés serait peut être plus appropriés?

--
François Picalausa

"PR-VB6" a écrit dans le message de news:

> mais un menu n'a pas d'évènement mouse_up ou mouse_down!!!




Avatar
ng
Salut,

J'ailu trop vite : je n'avais pas vu qu'il s'agissait d'un menu :/

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

PR-VB6 wrote:
mais un menu n'a pas d'évènement mouse_up ou mouse_down!!!


"ng" a écrit dans le message de
news:%
Salut,

Oui il suffit de vérifier le paramètre shift de l'évenement mouseuop
ou mousedown.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

PR-VB6 wrote:
Bonjour,

Un menu n'a qu'un évènement click.
Est il possible d'en avoir un 2ème par exemple
CTRL + click

merci

PR