Utilisez pset en MouseMove et Click

Résolu
Signaler
Messages postés
3
Date d'inscription
mercredi 1 novembre 2006
Statut
Membre
Dernière intervention
23 janvier 2007
-
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
-
Salut
Comment  utilisez pset  en MouseMove et Click en meme temp
je veux click la Mouse et la deplace pour dessine un linge corespandant a la deplasement de la Mouse


merci


thx

3 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
Passe par une variable temporaire booléene que tu passe à true dans le MouseDonw, puis à false dans le MouseUp : ainsi, dans le mousemove, si ta variable est à true, c'est que la souris est cliquée.

Note: le PSet est très très lent ! Il vaut mieux utiliser les fonctions graphiques de l'API Windows !
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
pas besoin d'API, Dark, la fonction Line ira très bien (oublier PSET pour faire le tracé de type crayon)

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbLeftButton Then
        Me.CurrentX = X
        Me.CurrentY = Y
    End If
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbLeftButton Then
        Me.Line -(X, Y)
    End If
End Sub

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
Oui !

Ou utilise l'événement mouse down (et le n° de bouton maintenu pressé), une variable "etat", l'événement mousemove et  l'événement mouseup pour y mettre fin ...
reviens avec du code ...