2016-01-30 3 views
-1

Je travaille sur un jeu pour un petit projet .NET (VB.NET) Visual Basic dans Visual Studio 2010.Déplacement du lecteur avec les touches fléchées, mais avec 4 images - VB.NET

Je suis coincé , parce que j'ai un caractère de chat que j'ai réussi à contrôler avec les touches fléchées, mais le but principal était - le chat n'a pas seulement 1 image mais 4 images, une image de chaque côté - gauche, droite, haut, bas. Je ne les ai pas tous mis en bitmap dans les ressources, j'ai simplement mis 4 photos sur le formulaire de jeu, 1 est visible (l'image principale est celle où le chat est tourné vers la gauche) et le les autres 3 sont invisibles.

Je ne peux pas le faire bouger sans "téléporter". par exemple, s'il part à gauche comme premier pas, puis monte comme deuxième étape - il se téléporte à un autre endroit dans le formulaire, au lieu de partir de la même coordonnée qu'il était lorsqu'il s'est déplacé à gauche.

Je n'ai pas encore trouvé de réponse, et j'ai cherché dans beaucoup d'endroits, et j'ai aussi essayé quelques variantes de code moi-même et ça a marché à moitié, donc j'ai vraiment besoin d'aide pour résoudre ce problème.

Merci et bonne semaine,

chat magique ~

+2

Sans code, il est très difficile de vous aider. S'il vous plaît lire [comment demander] (http://stackoverflow.com/help/how-to-ask a) et adopter votre question en conséquence –

+0

Comme @AlexB. mentionné, si vous souhaitez de l'aide, vous devez fournir un [exemple minimal, complet et vérifiable] (https://stackoverflow.com/help/mcve). –

Répondre

-1

Je pense que vous avez oublié de déplacer tous les PictureBoxes. par exemple:

Select Case e.KeyData 
     Case Keys.Right 
      picUp.Visible = False 
      picDown.Visible = False 
      picLeft.Visible = False 
      picRight.Visible = True 
      picUp.Left += 1 
      picDown.Left += 1 
      picLeft.Left += 1 
      picRight.Left += 1 
     Case Keys.Left 
      picUp.Visible = False 
      picDown.Visible = False 
      picLeft.Visible = True 
      picRight.Visible = False 
      picUp.Left -= 1 
      picDown.Left -= 1 
      picLeft.Left -= 1 
      picRight.Left -= 1 
     Case Keys.Up 
      ' Similar 
     Case Keys.Down 
      ' Similar 
    End Select