Ich will ein Ping Pong Spiel programmieren. Leider kann ich die Schläger nicht gleichzeitig bewegen. Wer kann mir helfen.
Hier der Quellcode der Steuerung:

Private Sub Form_KeyPress(KeyAscii As Integer)
'Bewegung von Schläger 1 mit 1. Methode
If Chr$(KeyAscii) = "s" Then
Schläger_1.Top = Schläger_1.Top - 200
End If
If Chr$(KeyAscii) = "x" Then
Schläger_1.Top = Schläger_1.Top + 200
End If
If Chr$(KeyAscii) = "p" Then
Timer1.Enabled = False
End If
If Chr$(KeyAscii) = "w" Then
Timer1.Enabled = True
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Bewegung Schläger 2 mit 2. Methode
If KeyCode = vbKeyUp Then
Schläger_2.Top = Schläger_2.Top - 200
End If
If KeyCode = vbKeyDown Then
Schläger_2.Top = Schläger_2.Top + 200
End If
End Sub

Ich verstehe nicht, warum du in beiden Prozeduren (keypress und keydown) Keycodes bzw Keyasciis abfragst.

Und wo genau liegt dein Problem?

mfG,

LoK!

@ Lok

Ich habe so ein Ping Pong Spiel gemacht. Jetzt will ich beide Schläger bewegen. Wenn aber Spieler 1 seinen Schläger bewegt kann Spieler 2 nicht gleichzeitig seinen Schläger bewegen. Hab so was mit Keyboardstate gehört. Raff das aber nicht.

Thanks

Schick mir mal 'ne Mail (Addy steht im Profil). Vielleicht kann ich dir helfen wenn ich das Projekt sehe.

mfG,

LoK!

Nicht mehr nötig. Ich hab den Fehler gefunden.

Danke trotzdem