VB2008でPictureBoxをキーボードを使って動かしたい
VBを始めたばかりの初心者です。
VB2008を使ってPictureBoxに取り込んだイラストをキーボードを使って自由に動かしたいと思っています。
今作ったものの問題点
1.現状、全く同時に→と↑のキーを押せば右上に動きます。
また、→キーを押してイラストが右に動いているときに、↑キーを押すと上に動きます。
これを右上に動くようにする方法が知りたいのです。
2.キーを押し続けてイラストを動かし続けようとすると、一回動いて止まってから動き続けるという風になってしまいます。
これを止まらずに動くようにしたいのです。
ちなみにこれ↓が今のソースコードです。
Public Class Form1
Private Sub form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Up Then
PictureBox1.Top = PictureBox1.Top - 10
End If
End Sub
Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Down Then
PictureBox1.Top = PictureBox1.Top + 10
End If
End Sub
Private Sub form1_KeyLeft(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Left Then
PictureBox1.Left = PictureBox1.Left - 10
End If
End Sub
Private Sub form1_KeyRight(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Right Then
PictureBox1.Left = PictureBox1.Left + 10
End If
End Sub
End Class
これ↑を実行する場合は、デザインにPictureBoxを表示してください。PictureBoxに入れるイラストは適当なものを入れてください。
よろしくお願いします。
お礼
無事鳴らなくなりました！ 教えていただいた部分をもう少し掘り下げて勉強してみます。 ありがとうございました！