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

■No39782 (επιστημη さん) に返信
 
> 　本掲示板にご回答をお寄せくださる皆様、ご多忙のところ
> 　誠に恐れ入りますが、下記の問題に対しそのままコンパイル
> 　し実行できるプログラムを示していただければ幸甚と存じます。
> 
> なんて書いても「おしえて君」には違いない。てことでしょ。

わかりました。通訳していただきありがとうございます。
ところで早速、修正して作ってみました。
思った通りの動きをしているのですが、いかがなものでしょうか？（これも教えて君になるかな？）


Dim idouryou As Integer = 10      '移動量
    Dim rn As Random = New Random()  
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick



        PictureBox1.Top = rn.Next(400) 'y座標をランダムに生成



        PictureBox1.Left += idouryou 　'移動量10ずつ右へ進む

        If PictureBox1.Left > Me.Width - PictureBox1.Width Then 　'もし右端を越えたら

            idouryou = -rn.Next(10) 　　　'負の数の移動量を生成し
            PictureBox1.Left += idouryou 　'生成した移動量で左へ進む

        End If

        If PictureBox1.Left < 0 Then 　　'もし左端を越えたら
            idouryou = rn.Next(10) 　　　'正の数の移動量をランダムに生成し
            PictureBox1.Left += idouryou '生成した移動量で右へ進む
        End If


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = Not Timer1.Enabled
       
    End Sub