Ich habe in meinem Programm zwei Timer. Einer der einfach nur zählt und die Zeit in ein Label schriebt und einer der bei jedem Tick 3 PictureBoxes nach oben bewegt. Außerdem habe ich noch eine Picturebox, die man mit den Pfeiltatsen bewegen kann.
Wenn ich allerdings eine der Pfeiltasten gedrückt halte (also die eine Box bewege) stoppen beide Timer...
Warum?
Quelltext:
Public Class Spiel
Dim last As String = Nothing
Dim lastsize As String = Nothing
Dim upsize As Size = New Size(77, 77)
Dim leftsize As Size = New Size(77, 77)
Dim downsize As Size = New Size(77, 77)
Dim rightsize As Size = New Size(77, 77)
Dim zeit As Integer = 0
Private Sub Spiel_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
Me.WindowState = FormWindowState.Normal
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
End If
If e.KeyCode = Keys.Down Then
Timer1.Enabled = True
If Not lastsize = "down" Then
Me.PictureBox1.Size = downsize
Me.PictureBox1.BackgroundImage = My.Resources.runter2
Me.PictureBox1.BackColor = Color.Transparent
last = "down"
lastsize = "down"
End If
Dim auto As Point = New Point(PictureBox1.Location.X, PictureBox1.Location.Y + 9)
Me.PictureBox1.Location = auto
Timer1.Enabled = True
End If
If e.KeyCode = Keys.Up Then
If Not lastsize = "up" Then
Me.PictureBox1.Size = upsize
Me.PictureBox1.BackgroundImage = My.Resources.hoch2
Me.PictureBox1.BackColor = Color.Transparent
last = "up"
lastsize = "up"
End If
Dim auto As Point = New Point(PictureBox1.Location.X, PictureBox1.Location.Y - 9)
Me.PictureBox1.Location = auto
End If
If e.KeyCode = Keys.Left Then
If Not lastsize = "left" Then
Me.PictureBox1.Size = leftsize
Me.PictureBox1.BackgroundImage = My.Resources.links2
Me.PictureBox1.BackColor = Color.Transparent
last = "left"
lastsize = "left"
End If
Dim auto As Point = New Point(PictureBox1.Location.X - 9, PictureBox1.Location.Y)
Me.PictureBox1.Location = auto
End If
If e.KeyCode = Keys.Right Then
If Not lastsize = "right" Then
Me.PictureBox1.Size = rightsize
Me.PictureBox1.BackgroundImage = My.Resources.rechts2
Me.PictureBox1.BackColor = Color.Transparent
last = "right"
lastsize = "right"
End If
Dim auto As Point = New Point(PictureBox1.Location.X + 9, PictureBox1.Location.Y)
Me.PictureBox1.Location = auto
End If
End Sub
Private Sub Spiel_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer2.Start()
Dim score As Integer = "0"
Me.DoubleBuffered = True
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Not PictureBox2.Bounds.IntersectsWith(PictureBox5.Bounds) Then
PictureBox2.Location = New Point(PictureBox2.Location.X, PictureBox2.Location.Y - 6)
End If
If Not PictureBox3.Bounds.IntersectsWith(PictureBox5.Bounds) Then
PictureBox3.Location = New Point(PictureBox3.Location.X, PictureBox2.Location.Y - 6)
End If
If Not PictureBox4.Bounds.IntersectsWith(PictureBox5.Bounds) Then
PictureBox4.Location = New Point(PictureBox4.Location.X, PictureBox2.Location.Y - 6)
End If
If PictureBox2.Bounds.IntersectsWith(PictureBox1.Bounds) Or PictureBox3.Bounds.IntersectsWith(PictureBox1.Bounds) Or PictureBox4.Bounds.IntersectsWith(PictureBox1.Bounds) Then
Timer1.Enabled = False
PictureBox1.BackgroundImage = My.Resources.nrno1
PictureBox2.BackgroundImage = My.Resources.lion
PictureBox2.BackColor = Color.Transparent
PictureBox3.BackgroundImage = My.Resources.lion
PictureBox3.BackColor = Color.Transparent
PictureBox4.BackgroundImage = My.Resources.lion
PictureBox4.BackColor = Color.Transparent
End If
If PictureBox7.Bounds.IntersectsWith(PictureBox1.Bounds) Then
won.Show()
Me.Hide()
Timer1.Enabled = False
won.Label2.Text = "Benötigte Zeit:" & zeit & "s"
End If
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
zeit = zeit + 1
label1.text = zeit
End Sub
End Class
