fabman21
Messages postés22Date d'inscriptionvendredi 29 avril 2011StatutMembreDernière intervention13 septembre 2011
-
3 mai 2011 à 21:54
fabman21
Messages postés22Date d'inscriptionvendredi 29 avril 2011StatutMembreDernière intervention13 septembre 2011
-
4 mai 2011 à 12:54
Bonsoir, Depuis un moment je me creuse la tete afin de definir un mouvement a un objet ( de type panel ou picture). Par exemple je veux qu'un panel fasse des allers et retours de bas en haut (evidamment dans une form).Pourriez vous m'indiquer comment faire ? Merci d'avance
VIVE Visual Basic
AlKatou
Messages postés95Date d'inscriptionvendredi 7 février 2003StatutMembreDernière intervention28 novembre 2017 3 mai 2011 à 23:05
salut,
ta question en plus de celle d'hier (keydown et panel) sonnent très exercices de cours.
donc, je ne ferais que t'aiguiller. adapte le code que je mis en réponse à ta précédente demande. c'est le même principe sauf que le test des touches n'est plus nécessaire. mets le code dans un timer et tu prends une variable booléenne à titre d'inversion de direction en entrant en butée des bords de ta Form.
fabman21
Messages postés22Date d'inscriptionvendredi 29 avril 2011StatutMembreDernière intervention13 septembre 2011 4 mai 2011 à 08:06
bonjour,Merci pour tes indications.
(Juste je fais de la programmation pour le loisir.(je n'en fais pas du tout en cours,pour l'instant)J'essaye juste de me donner des objectifs de mini programme pour apprendre a bien métriser les nombreuses fonctions de visual basic.)
fabman21
Messages postés22Date d'inscriptionvendredi 29 avril 2011StatutMembreDernière intervention13 septembre 2011 4 mai 2011 à 12:54
rebonjour, j'ai essayé mais j'ai 2 problème le panel ne bouge pas
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' pour la vitesse de déplacement
Dim iCoefMove As Integer = 10000
' recalcule la nouvelle position selon la touche appuyée
' iCoefMove * Abs(0 ou -1), -1 si la touche est appuyée
Panel2.Top = Panel2.Top - iCoefMove * System.Math.Abs(CInt())
Panel2.Top = Panel2.Top + iCoefMove * System.Math.Abs(CInt())
Panel2.Left = Panel2.Left - iCoefMove * System.Math.Abs(CInt())
Panel2.Left = Panel2.Left + iCoefMove * System.Math.Abs(CInt())
End Sub
Et je ne trouve pas pour empècher les panels(celui la et celui de ma derniere question) de quitter la form j'ai trouver l'evenement mouseleave pour la sourie mais je ne sais pas faire pour un objet
VIVE Visual Basic