Je cherche à faire un clic droit de la souris, pour obtenir le menu
contextetuelle, et accéder à la dernière commande de mon menu (donc flèche
haut et entrer).
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
Alfred
Bonjour Je te propose : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then mnusub1_Click ' le sub correspondant à l'option du menu End If
End Sub
Alfred
"BE (Christophe Houchard)" a écrit dans le message news: #uuSB3#
Bonjour,
Je cherche à faire un clic droit de la souris, pour obtenir le menu contextetuelle, et accéder à la dernière commande de mon menu (donc flèche haut et entrer).
Bonjour
Je te propose :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If Button = 2 Then
mnusub1_Click ' le sub correspondant à l'option du menu
End If
End Sub
Alfred
"BE (Christophe Houchard)" <be@coulidoor.fr> a écrit dans le message news:
#uuSB3#FEHA.2208@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je cherche à faire un clic droit de la souris, pour obtenir le menu
contextetuelle, et accéder à la dernière commande de mon menu (donc flèche
haut et entrer).
Bonjour Je te propose : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then mnusub1_Click ' le sub correspondant à l'option du menu End If
End Sub
Alfred
"BE (Christophe Houchard)" a écrit dans le message news: #uuSB3#
Bonjour,
Je cherche à faire un clic droit de la souris, pour obtenir le menu contextetuelle, et accéder à la dernière commande de mon menu (donc flèche haut et entrer).
bonjour, ou les constantes vbleftbutton, vbrightbutton,vbmiddlebutton valeur de button sur evenement mouse_down, mouse_up
Christophe Vergon
"Alfred" a écrit dans le message de news: c4h700$h62$
Bonjour Je te propose : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single,
Y As Single)
If Button = 2 Then mnusub1_Click ' le sub correspondant à l'option du menu End If
End Sub
Alfred
"BE (Christophe Houchard)" a écrit dans le message news: #uuSB3# > Bonjour, > > Je cherche à faire un clic droit de la souris, pour obtenir le menu > contextetuelle, et accéder à la dernière commande de mon menu (donc
flèche
> haut et entrer). > > Avec le code que j'ai tapé je bloque. > > > Clique.X = 500 > Clique.Y = 300 > SetCursorPos Clique.X, Clique.Y > mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 > mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 > SendKeys "{UP}" > SendKeys "{ENTER}" > DoEvents > > > Pouvez vous m'aider. > > Merci de votre aide > >
bonjour,
ou les constantes vbleftbutton, vbrightbutton,vbmiddlebutton
valeur de button sur evenement mouse_down, mouse_up
Christophe Vergon
"Alfred" <alfred@alfred.fr> a écrit dans le message de news:
c4h700$h62$1@news-reader2.wanadoo.fr...
Bonjour
Je te propose :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single,
Y As Single)
If Button = 2 Then
mnusub1_Click ' le sub correspondant à l'option du menu
End If
End Sub
Alfred
"BE (Christophe Houchard)" <be@coulidoor.fr> a écrit dans le message news:
#uuSB3#FEHA.2208@TK2MSFTNGP09.phx.gbl...
> Bonjour,
>
> Je cherche à faire un clic droit de la souris, pour obtenir le menu
> contextetuelle, et accéder à la dernière commande de mon menu (donc
flèche
> haut et entrer).
>
> Avec le code que j'ai tapé je bloque.
>
>
> Clique.X = 500
> Clique.Y = 300
> SetCursorPos Clique.X, Clique.Y
> mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
> mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
> SendKeys "{UP}"
> SendKeys "{ENTER}"
> DoEvents
>
>
> Pouvez vous m'aider.
>
> Merci de votre aide
>
>
bonjour, ou les constantes vbleftbutton, vbrightbutton,vbmiddlebutton valeur de button sur evenement mouse_down, mouse_up
Christophe Vergon
"Alfred" a écrit dans le message de news: c4h700$h62$
Bonjour Je te propose : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single,
Y As Single)
If Button = 2 Then mnusub1_Click ' le sub correspondant à l'option du menu End If
End Sub
Alfred
"BE (Christophe Houchard)" a écrit dans le message news: #uuSB3# > Bonjour, > > Je cherche à faire un clic droit de la souris, pour obtenir le menu > contextetuelle, et accéder à la dernière commande de mon menu (donc
flèche
> haut et entrer). > > Avec le code que j'ai tapé je bloque. > > > Clique.X = 500 > Clique.Y = 300 > SetCursorPos Clique.X, Clique.Y > mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 > mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 > SendKeys "{UP}" > SendKeys "{ENTER}" > DoEvents > > > Pouvez vous m'aider. > > Merci de votre aide > >