Si on garde un bouton enfoncé? [Résolu]

CeNedra83 96 Messages postés lundi 20 novembre 2000Date d'inscription 11 juillet 2006 Dernière intervention - 1 juil. 2005 à 09:53 - Dernière réponse : CeNedra83 96 Messages postés lundi 20 novembre 2000Date d'inscription 11 juillet 2006 Dernière intervention
- 1 juil. 2005 à 10:57
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é en restant cliqué dessus, mon image se déplace en continu.

Comment faire?
Afficher la suite 

2 réponses

Meilleure réponse
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 1 juil. 2005 à 10:44
3
Merci
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ée, c'est une chance de réponse bien adaptée.

Merci econs 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 125 internautes ce mois-ci

CeNedra83 96 Messages postés lundi 20 novembre 2000Date d'inscription 11 juillet 2006 Dernière intervention - 1 juil. 2005 à 10:57
0
Merci
Merci beaucoup, c'est exactement ça qu'il me fallait!!!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.