[VB] Sélection par clic droit dans une listbox ? [ résolu ! ]

Sélection par clic droit dans une listbox ? [ résolu ! ] [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 25-07-2003 à 20:54:02    

Savez-vous si il est possible qu'en cliquant avec le bouton droit sur un item de la listbox, cet élément soit sélectionné ?
 
Merci !


Message édité par Gnub le 26-07-2003 à 11:21:51
Reply

Marsh Posté le 25-07-2003 à 20:54:02   

Reply

Marsh Posté le 25-07-2003 à 21:12:53    

En inversant les boutons dans Windows ? [:ddr555]

Reply

Marsh Posté le 25-07-2003 à 22:25:08    

Gnub a écrit :

Savez-vous si il est possible qu'en cliquant avec le bouton droit sur un item de la listbox, cet élément soit sélectionné ?
 
Merci !


 
va sur ma signature, et regarde "API windows", tu peux inverser les bouton de la souris ! sérieux...

Reply

Marsh Posté le 26-07-2003 à 10:10:23    

merci pour vos réponses ; en fait ce que j'aimerai c'est que le clic droit déclenche un menu contextuel en rapport avec l'item de la list sur lequel on clique, donc la simple inversion de boutons ne suffirait pas, puisqu'il faut que je détecte lequel des deux boutons a été employé...
 
Cela dit si ce n'est pas réalisable, c'est pas grave :)

Reply

Marsh Posté le 26-07-2003 à 10:13:35    

Gnub a écrit :

merci pour vos réponses ; en fait ce que j'aimerai c'est que le clic droit déclenche un menu contextuel en rapport avec l'item de la list sur lequel on clique, donc la simple inversion de boutons ne suffirait pas, puisqu'il faut que je détecte lequel des deux boutons a été employé...
 
Cela dit si ce n'est pas réalisable, c'est pas grave :)


 
c'est faisable mais je sais plus comment ! va voir sur www.vbfrance.com en attendant mieux !

Reply

Marsh Posté le 26-07-2003 à 11:21:08    

je viens de trouver sur vb france ; voici le code en question
 

Code :
  1. Option Explicit
  2. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  5. Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  7.   If Button = vbRightButton Then
  8.        
  9.         'Simulation du clic droit de la souris
  10.         Call mouse_event(2, 0, 0, 0, 0)
  11.         Call mouse_event(4, 0, 0, 0, 0)
  12.         DoEvents
  13.        
  14.         PopupMenu menupopup
  15.        
  16.     End If
  18. End Sub


 
encore merci pour vos réponses :)


Message édité par Gnub le 26-07-2003 à 11:21:21
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed