2つの画像

STO  2008-02-22 11:41:32  No: 139032  IP: 192.*.*.*

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

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

編集 削除
魔界の仮面弁士  2008-02-22 12:00:18  No: 139033  IP: 192.*.*.*

> 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 13:33:37  No: 139034  IP: 192.*.*.*

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 12:26:40  No: 139035  IP: 192.*.*.*

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

編集 削除
lol  2008-02-24 03:19:28  No: 139036  IP: 192.*.*.*

>vectorx = 1
>vectory = 1

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

( ゜д゜)累彊ン

編集 削除
lol  2008-02-24 03:22:52  No: 139037  IP: 192.*.*.*

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

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

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

編集 削除