Utilisez pset en MouseMove et ClickRésolu

Question

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

cs_DARKSIDIOUS · Accepted Answer

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 !

Renfield · Answer

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

jmfmarques · Answer

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 ...

Utilisez pset en MouseMove et Click

3 réponses

Votre réponse

Discussions similaires