C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 68 を表示中)
■39687 / )  Re[18]: PictureBoxを左右に往復するループ
□投稿者/ へっぽこ (25回)-(2009/08/12(Wed) 14:05:06)
No39669 (επιστημη さん) に返信
> If idouryou > 0 Then
>   idouryou = rn.Next(10)
> Else
>   idouryou = -rn.Next(10)
> EndIf
> 
> ってやったらどうなります?
> 

アドバイスに従ってやってみました(ちがうかもしれませんが)
<実行結果>
右端にいきたくてもスムーズにいけず、すこし移動しては戻りを何度も繰り返してジタバタしています。

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        PictureBox1.Top = rn.Next(400) 'Y座標を0〜399で発生
        
        If PictureBox1.Left > Me.Width - PictureBox1.Width Or PictureBox1.Left < 0 Then


            idouryou *= -1 '上記の条件のときの移動方向を反転
        Else
            idouryou *= 1

            If idouryou > 0 Then
                idouryou = rn.Next(10)
            Else
                idouryou = -rn.Next(10)
            End If
        End If

        PictureBox1.Left += idouryou


    End Sub

返信 編集キー/


管理者用

- Child Tree -