画面内だけにするには

---

こんにちは。
質問なのですが、ここのイメージを動かすというのを参考にして作っているのですが、このままやっていると画面外からイメージが飛び出してしまいます。画面内のみで移動させるにはどうすればいいのでしょうか？

編集 削除

---

VB.NETかVB6  どちらでしょうか?

それと、
ソースも記載してください。

編集 削除

---

VB6.0です。
ソースはここに記載してあるものでやっているのですが・・・
Private Sub Form_KeyDown(KeyCodeAs Integer, Shift As Integer)

        Select Case KeyCode
        Case vbKeyUp
             Image1.Move Image1.Left, Image1.Top - 5
        Case vbKeyDown
            Image1.Move Image1.Left, Image1.Top + 5
        Case vbKeyRight
            Image1.Move Image1.Left + 5
        Case vbKeyLeft
            Image1.Move Image1.Left - 5
        End Select

End Sub

のような感じです。

編集 削除

---

>        Case vbKeyUp
>             Image1.Move Image1.Left, Image1.Top - 5


Case vbKeyUp
  If Image1.Top - 5 >= 0 Then
     Image1.Move Image1.Left, Image1.Top - 5
  End If

のように移動する命令の前にIf文で判断してやればいいです。
残りは試行錯誤して頑張って下さい。(^o^)

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。