0

私が書いたこのコードがありますが、このコードはフォームを左クリックしたときに使用されましたが、円の乱数ではありませんでした。ボタンをクリックすると、フォーム全体にランダムな色で5〜10個のランダムな円を描くように適応させる方法を考えていますが、ループを使用する必要があります. ありがとう!!

Private Sub CirclePainterForm_MouseDown(ByVal sender As _
    Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles MyBase.MouseDown

        Dim graphicsObject As Graphics = CreateGraphics()
        Dim randomObject As Random = New Random
        Dim diameter As Integer = randomObject.Next(5, 200)

        If e.Button = Windows.Forms.MouseButtons.Left Then
            graphicsObject.FillEllipse(New SolidBrush(RandomColor()), e.X, e.Y, _
            diameter, diameter)

            graphicsObject.FillEllipse(New SolidBrush(RandomColor()), e.X + 250, e.Y, _
            diameter + 50, diameter + 50)

            graphicsObject.FillEllipse(New SolidBrush(RandomColor()), e.X + 500, e.Y, _
            diameter + 75, diameter + 75)

            graphicsObject.FillEllipse(New SolidBrush(RandomColor()), e.X + 750, e.Y, _
            diameter + 100, diameter + 100)

            graphicsObject.FillEllipse(New SolidBrush(RandomColor()), e.X + 1000, e.Y, _
            diameter + 125, diameter + 125)
4

1 に答える 1