25.キー操作でイメージを上下左右に移動させる方法
< 使用用途 >
ゲームなんかで使えますね(^^)
< 説明 >
イメージファイルをキーボードの上下左右キーで移動出来ます。
キーボードの内訳(他にもたくさんありますが、今回はこれだけしか書きません)
|
|
|
vbKeyLeft |
|
← キー |
vbKeyUp |
|
↑ キー |
vbKeyRight |
|
→ キー |
vbKeyDown |
|
↓ キー |
< SAMPLE >
’フォームにイメージコントロールを貼りつけた状態です。
Private Sub Form_KeyDown(KeyCodeAs
Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
Image1.Move Image1.Left, Image1.Top - 100
Case vbKeyDown
Image1.Move Image1.Left, Image1.Top + 100
Case vbKeyRight
Image1.Move Image1.Left + 100
Case vbKeyLeft
Image1.Move Image1.Left - 100
End Select
End Sub