Mouvement panel

Signaler
Messages postés
22
Date d'inscription
vendredi 29 avril 2011
Statut
Membre
Dernière intervention
13 septembre 2011
-
Messages postés
22
Date d'inscription
vendredi 29 avril 2011
Statut
Membre
Dernière intervention
13 septembre 2011
-
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

Messages postés
95
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
28 novembre 2017

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.
Messages postés
22
Date d'inscription
vendredi 29 avril 2011
Statut
Membre
Dernière intervention
13 septembre 2011

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

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