mouvement d'un objet en vb.net Fermé

Question

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
Configuration: Windows 7 / Firefox 3.6.25

Utilisateur anonyme · Answer

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

Mouvement d'un objet en vb.net

1 réponse

Discussions similaires