Ich möchte eine Liste von Namen (3) aus einem Textfeld (Benutzereingabe) in ein Etikett anzeigen

Question

Dies ist der Code, den ich bisher habe, aber nicht richtig funktioniert. Das Textfeld für den Namen Benutzer sollte eingeben und die Schaltfläche zeigen, um die Namen in einem Etikett in der Reihenfolge anzuzeigen, die eingegeben wurde.

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click 
    Dim intcount, w1, w2, w3 As Integer 
    Dim intMax As Integer = 2 

    For intcount = 0 To intMax 
     strSurnames(intcount) = TextBox1.Text 

    Next 
    TextBox1.Clear() 

End Sub 

Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click 
    Dim intMax As Integer = 2 
    For intcount = 0 To intMax 
     lblShow.Text &= strSurnames(intcount) 
    Next 
End Sub 

Answer 1

Ich vermute, Sie nur 1 Textbox und klicken Sie auf die Schaltfläche „Hinzufügen Schaltfläche“ mehrfach verwenden wollen, den Namen zu speichern. Wenn dies wahr ist, werden Sie zuerst

Dim arrayStr As New List(Of String) 

jedes Mal erstellen müssen Sie auf die Schaltfläche Hinzufügen klicken, wird es in diesem Array hinzuzufügen.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     arrayStr.Add(TextBox1.Text.Trim()) 
     TextBox1.Clear() 
End Sub 

Und den vollständigen Namen zu zeigen, in nur einem Etikett, wenn Sie auf der „Show Button“ klicken, kann es tun, diese wie

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
     Label1.Text = "" //The label text is cleared. 
     For i As Integer = 0 To arrayStr.Count() - 1 
      Label1.Text += arrayStr(i) + ", " 
     Next 
    End Sub 

UPDATE - AUF DER GRUNDLAGE DEIN KOMMENTAR FRAGE Diese ist die aktualisierte Lösung basierend auf Ihrer Frage. Ich werde dich nur mit den "Sur-Namen" zeigen. Sie können das "Gewicht" auf die gleiche Weise implementieren.

Zuerst erstellen Sie Ihr Array und deklarieren Sie einen Count als Integer für die Größe Ihres Arrays.

Im "Add Button" erhöhen Sie die Anzahl um jedes Mal, wenn Sie einen neuen Sur-Namen hinzufügen. Sobald es Ihre "maximale" Nummer erreicht hat, deaktivieren Sie Ihre Schaltfläche um BtnAdd.Enabled = False.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     If count < 20 Then 
      surNameStr(count) = TextBox1.Text.Trim() 
      count = count + 1 
     Else 
      Button1.Enabled = False 
      Button2.Enabled = True 
     End If 
End Sub 

Dann, in "Show Button", können Sie so alle gespeicherten Nachnamen anzeigen.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
     Label1.Text = "" 
     For i As Integer = 0 To 19 
      Label1.Text += surNameStr(i) + vbNewLine 
     Next 
End Sub