Gnub | je viens de trouver sur vb france ; voici le code en question
Code :
- Option Explicit
- 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)
- Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- If Button = vbRightButton Then
-
- 'Simulation du clic droit de la souris
- Call mouse_event(2, 0, 0, 0, 0)
- Call mouse_event(4, 0, 0, 0, 0)
- DoEvents
-
- PopupMenu menupopup
-
- End If
- End Sub
|
encore merci pour vos réponses Message édité par Gnub le 26-07-2003 à 11:21:21
|