Si on garde un bouton enfoncé?Résolu

Question

Je dispose d'un bouton qui lorsqu'on clique dessus me deplace une image dans ma picturebox. Je voudrais que savoir comment faire pour que si je garde mon bouton enfonc&#233; en restant cliqu&#233; dessus, mon image se d&#233;place en continu.

Comment faire?

econs · Accepted Answer

Une image (Image1), un bouton (Command1) et un Timer (Timer1) :





Dim buttonPressed As Boolean



Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    buttonPressed = True

End Sub



Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    buttonPressed = False

End Sub



Private Sub Form_Load()

    Timer1.Interval = 100

    Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

    If buttonPressed Then

        Image1.Left = Image1.Left + 50

    End If

End Sub


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

CeNedra83 · Answer

Merci beaucoup, c'est exactement &#231;a qu'il me fallait!!!!

Si on garde un bouton enfoncé?

2 réponses

Discussions similaires