Mouvement d'un objet en vb.net

Fermé
bouchrot Messages postés 352 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 - Modifié par bouchrot le 11/01/2012 à 21:20
bouchrot Messages postés 352 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 - 12 janv. 2012 à 16:21
Bonjour,

salut j'ai fait un programme qui fait un mouvement d'un objet en bas , haut, a gauche, a droite
j'ai créer 4 boutons et une picturebox

voici un exemple
('mouvement en haut)
PictureBox1.Top = PictureBox1.Top + 25
lorsque je clique sur le bouton nommé btnhaut la picturebox marche vers le haut

le probléme c'est que lorsque je clique plusieurs fois sur le bouton btnhaut ,la picturebox disparaitre vers le haut

j'aimerais bien que quelqu'un m'aide a résoudre ce problème
merci

1 réponse

Utilisateur anonyme
11 janv. 2012 à 21:47
Bonjour,

Fixer les limites :

Private Sub btn_Deplace_Haut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Deplace_Haut.Click

	If (pbx_Photo.Top > 24) Then
		pbx_Photo.Top = pbx_Photo.Top - 25
	End If

End Sub

Private Sub btn_DeplaceBas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Deplace_Bas.Click

	If ((pbx_Photo.Top + (pbx_Photo.Height + 10)) < (Me.Height - (pbx_Photo.Height + 10))) Then
		pbx_Photo.Top = pbx_Photo.Top + 25
	End If

End Sub


Cdt

Lupin
0
bouchrot Messages postés 352 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 6
12 janv. 2012 à 16:21
c'est ça , je vous remercie
0