vb.net - Drawlineを使用したVisualBasic-ループを使用して3本の線を描画します

Question

線が見えるように、少なくとも十分な大きさのランダムな長さの3本の均一な線を描く必要があります。最大長はボタンのサイズ程度である必要があります。ボタンの下に3本の線を引く必要があります。ループを使用する必要があります。1行の基本的なコードがありますが、上記の要件でループに変換するにはどうすればよいですか？

Answer 1

間隔を決定し、開始位置と長さのいくつかの変数を設定する必要があります。Random.Next メソッドを使用して、選択したパラメーター内で長さを設定します。このようなものがあなたのために働くかどうか見てください.

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


Private Sub drawLine()
    Dim g As Graphics = CreateGraphics()
    Dim spacing As Integer = 5
    Dim xStart As Integer = 50 ''Start of line
    Dim xEnd As Integer  'End of Line
    Dim minLength As Integer = 10
    Dim maxLength As Integer = 70
    Dim rndm As New Random
    Dim i As Integer
    Dim y As Integer = 50 'Top of first Line
    g.Clear(Me.BackColor) 'Reset Drawing

    Do Until (i = 3)
        xEnd = rndm.Next(minLength, maxLength)
        g.DrawLine(Pens.Red, New Point(xStart, y), New Point(xStart + xEnd, y))
        y += spacing
        i += 1
    Loop
    g.Dispose()
End Sub