Mouvement panel

fabman21 Messages postés 22 Date d'inscription vendredi 29 avril 2011 Statut Membre Dernière intervention 13 septembre 2011 - 3 mai 2011 à 21:54
fabman21 Messages postés 22 Date d'inscription vendredi 29 avril 2011 Statut Membre Dernière intervention 13 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

3 réponses

AlKatou Messages postés 95 Date d'inscription vendredi 7 février 2003 Statut Membre Dernière intervention 28 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.


bonne continuation, alKa



C'est en forgeant, que l'on devient forgeron.
fabman21 Messages postés 22 Date d'inscription vendredi 29 avril 2011 Statut Membre Dernière intervention 13 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.)

VIVE Visual Basic
fabman21 Messages postés 22 Date d'inscription vendredi 29 avril 2011 Statut Membre Dernière intervention 13 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
Rejoignez-nous