Drawline을 사용하는 Visual Basic - 루프를 사용하여 3 개의 선 그리기

Question

선이 보이도록 적어도 충분히 큰 임의 길이의 3 개의 균일 선을 그릴 필요가 있습니다. 최대 길이는 버튼의 크기와 같아야합니다. 세 줄은 단추 아래에 그려야합니다. 루프를 사용해야합니다. 위의 요구 사항을 루프로 바꾸는 방법은 한 줄짜리 기본 코드가 있습니까?

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