Clic souris

[Résolu]
Signaler
Messages postés
565
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
30 avril 2008
-
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
-
bonjour!
comment faire pour recuperer un clic de souris meme si le prog n'est pas au premier plan car j'aimerai faire quelque chose comme:
if clicksouris then
msgbox "click"
end if
voila
VirusMan :-p
:shock) une idée est un chose ,la dire en est une autre :shock)

4 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
4 fonctions API pour la souris:

http://www.vbfrance.com/code.aspx?ID=7683
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
j'ai trouvé encore mieux , il y a seulement un petit problème pour arrêter faire ALT-F4

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim Pt As POINTAPI

Private Sub Form_Load()
    SetCapture Me.hwnd
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SetCapture Me.hwnd
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    GetCursorPos Pt
    Me.Cls
    Me.Print "Cursor position:"
    Me.Print "X:" & Str$(Pt.X) & " Y:" & Str$(Pt.Y)
    Me.Print
    Me.Print "Boutons positions:"
    Me.Print "Button:" & Button & "  Shift= " & Shift
    Me.Print
    Me.Print " (Press ALT-F4 to unload this form)"
'   SetCapture Me.hwnd
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SetCapture Me.hwnd
End Sub
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
16
Ah j'ai déjà vu un truc de ce genre il y a quelques jour, ça parlais de Events, etc...
Je retrouve cela et te le note

Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
16
Merci Gobillot ça fait 45 min que je le cherchais

Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]