画面内だけにするには

イル 2004-11-06 20:06:10 No: 117410

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

マグ 2004-11-06 21:53:37 No: 117411

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

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

イル 2004-11-07 00:40:25 No: 117412

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

のような感じです。

名無しのどん兵衛 2004-11-07 00:58:44 No: 117413

> 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^)