2つの画像

STO 2008-02-22 20:41:32 No: 139032

VB.NET超初心者です。
Form1にPictureBox1とPictureBox2の画像2つがあります。
例えば、PictureBox1画像を横へ動かし、PictureBox2画像を縦へ動かすにはどうすればいいでしょうか？それぞれの画像が同時に違う方向へ動かしたいのです。

よろしくおねがいします。

魔界の仮面弁士 2008-02-22 21:00:18 No: 139033

> PictureBox1画像を横へ動かし
PictureBox1 の Left プロパティを変更してみてください。

> PictureBox2画像を縦へ動かすには
PictureBox2 の Top プロパティを変更してみてください。

たとえば、ボタンを押すごとに移動させるなら、

  Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    PictureBox1.Top += 15
    PictureBox2.Left += 15
  End Sub

といったコードになります。
(Location プロパティや、SetBounds メソッドによる移動も可能です)

STO 2008-02-22 22:33:37 No: 139034

Public Class Form1
Dim vectorx As Integer
Dim vectory As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        vectorx = 1
        vectory = 1
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.Top = PictureBox1.Top + vectory + (-1)
        PictureBox1.Left = PictureBox1.Left + vectorx
        PictureBox2.Top = PictureBox2.Top + vectory
        PictureBox2.Left = PictureBox2.Left + vectorx + (-1)
    End Sub
End Class

恥ずかしながらこんな感じでデバッグしたら意中の動きをしました。＾＾
ありがとうございます。こんな感じのコードでOKなのでしょうか？

STO 2008-02-23 21:26:40 No: 139035

ありがとうございました。

lol 2008-02-24 12:19:28 No: 139036

>vectorx = 1
>vectory = 1

>PictureBox1.Top = PictureBox1.Top + vectory + (-1)
>PictureBox2.Left = PictureBox2.Left + vectorx + (-1)

( ゜д゜)累彊ン

lol 2008-02-24 12:22:52 No: 139037

ん、文字化けしちった。
慣れないことするもんじゃないな。

「累彊ン」= 「ポカーン」な。

まあ、本人が満足してるなら構わないんだけどな。