画面内だけにするには


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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加