none
PictureBox "springen" lassen RRS feed

  • Frage

  • Hallo

     

    ich habe ein Mann der laufen kann also eine PictureBox

    ich würde gerne das der Mann Sprigen kann und das ich einstellen kann wie hoch...

    ich würde mich über Tips sehr frauen

    • Bearbeitet Thorsten Dörfler Freitag, 1. April 2011 16:57 Titel (was: PictureBox "sprigen" lassen)
    Donnerstag, 31. März 2011 13:52

Antworten

  • Hallo MusikerEmo3000,

    gehe ich recht in der Annahme, dass der laufende Mann ein eingebundene Animation z.B. ein GIF o.ä. ist?
    Wenn ja, musst du eigentlich diese Animation dahingehend ändern, dass der Mann springt.

    Wenn es eher so ist, dass du die Position der PictureBox veränderst, dann kannst du das auch so mit der Höhe der PictureBox machen.

    Hier ein Beispiel das ggf. zwei Möglichkeiten abdeckt.
    Erste Möglichkeit du lässt deine PictureBox langsam "klettern" bis ein Punkt x erreicht ist und schickst sie dann wieder nach unten.

    In meine Beispiel doppst die PictureBox alledings mit Erreichen des definierten Punktes weil mein Code hier einen Schwachpunkt hat der ggf. gewollt sein kann. So lange die PictureBox hier mehr als 10 Pixel vom oberen Rand der Form ist, "klettert" sie. wenn danach fällt sie ab. Da in meinem Beispiel die 10 Pixel vorgegeben sind klettert die Box langsam um danach zu "doppsen".

    Public Class Form1
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.PictureBox1.Left = 0
        Me.PictureBox1.Top = 200
        Me.Timer1.Start()
      End Sub
    
      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 200
        Dim weiter As Integer = 3
        Dim höher As Integer = -5
    
        If Me.PictureBox1.Top > 10 Then
          Me.PictureBox1.Left = PictureBox1.Left + weiter
          Me.PictureBox1.Top = PictureBox1.Top + höher
    
        Else
          Me.PictureBox1.Left = PictureBox1.Left + weiter
          Me.PictureBox1.Top = PictureBox1.Top - höher
        End If
    
      End Sub
    End Class
    

    Die Geschwindigkeit mit der geklettert wird legst du im TimerInterval fest.

    Viel Erfolg


    Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/
    Donnerstag, 31. März 2011 17:28