ループの繰り返しごとに新しいラベルを追加する

Question

私はハングマンアプリケーションを作成しようとしていますが、何らかの理由で私は単語を得ることができません。正しく表示するには「推測」する必要があります。ループの中でわかるように、すべての反復で新しいラベルが作成されます。ラベルのtextプロパティはw​​ordLetterとして定義されたwordStringの文字として設定されます。新しいラベルのすべてのプロパティが設定されると、それがフォームに追加され、ポイントはラベルの下に線を描くように定義され、xAxis（前のラベルの右に次のラベルを配置するために使用されます）とiが繰り返されます。問題は、最初のラベルのみが表示されるか、wordString "PROGRAM"の "P"です。ループを繰り返すたびに、同じ名前の新しいラベル「wordLabel」が作成され、新しいラベルが作成されないためです。私はこれを回避する方法がわかりません。配列を使用したとしても、すべての繰り返しで新しいラベルを作成する必要があります。

The result

Dim point1, point2 As Point 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim i As Integer 

    Dim wordString As String = "PROGRAM" 
    Dim wordLetter As String 
    Dim xAxis As Integer 

    Do While i < wordString.Length 
     Dim wordLabel As New Label 

     wordLetter = wordString.Chars(i) 

     wordLabel.Font = New Font("Comic Sans MS", 25) 
     wordLabel.AutoSize = True 
     wordLabel.Text = wordLetter 
     wordLabel.BackColor = Color.Transparent 
     wordLabel.Location = New System.Drawing.Point(xAxis + 7, 190) 

     Me.Controls.Add(wordLabel) 

     point1.X = Convert.ToInt32(wordLabel.Location.X) - 10 
     point1.Y = Convert.ToInt32(wordLabel.Location.Y) + 40 

     point2.X = Convert.ToInt32(wordLabel.Size.Width) - 13 
     point2.Y = Convert.ToInt32(wordLabel.Location.Y) + 40 

     xAxis += 3 
     i += 1 

    Loop 
End Sub 

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint 

    e.Graphics.DrawLine(Pens.Black, point1, point2) 

End Sub 

Answer 1

これはあなたのために働く必要があります。 前のラベルの最後の左の位置を保持します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Try 
     BuildHangman("PROGRAM") 
    Catch ex As Exception 
     MessageBox.Show(String.Concat("An error occurred: ", ex.Message)) 
    End Try 
End Sub 

Private Sub BuildHangman(wordString As String) 

    Dim i As Integer 
    Dim wordLetter As String 
    Dim lastLeft As Integer 

    Dim sensibleFont As New Font("Segoe UI", 25) 

    Do While i < wordString.Length 

     Dim wordLabel As New Label 

     wordLetter = wordString.Chars(i) 
     wordLabel.Font = sensibleFont 
     wordLabel.AutoSize = True 
     wordLabel.Text = wordLetter 
     wordLabel.BackColor = Color.Transparent 
     wordLabel.Location = New System.Drawing.Point(lastLeft + 7, 190) 

     Me.Controls.Add(wordLabel) 

     lastLeft = wordLabel.Left + wordLabel.Width 

     i += 1 

    Loop 

End Sub