generieren 1 Brief in allen Labels

Question

Guten Morgen

ich eine Anwendung erstellen, die ich 100 Labels von Label1 zu Label100 hat. Mein Ziel hier ist, dass alle diese Etiketten zufällige Buchstaben im Alphabet erzeugen müssen, egal ob es wiederholt wird, solange es anders ist.

Hier ist mein Code, den ich ausprobiert habe.

Dim validchars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
      Dim sb As New StringBuilder() 
      Dim rand As New Random() 

      For i As Integer = 1 To 1 
       Dim idx As Integer = rand.Next(0, validchars.Length) 
       Dim randomChar As Char = validchars(idx) 
       sb.Append(randomChar) 
      Next i 
      Label1.Text = sb.ToString() 
      Label2.Text = sb.ToString() 
      Label3.Text = sb.ToString() 
      Label4.Text = sb.ToString() 
      Label5.Text = sb.ToString() 
      Label6.Text = sb.ToString() 
      Label7.Text = sb.ToString() 
      Label8.Text = sb.ToString() 
'and so on until i reached Label100 

Aber meine Ausgabe ist dies :(

Bitte die anderen Buchstaben ignorieren, weil ich bis Label50

zu codieren versucht Wie kann ich es erreichen? Und gibt es andere Weise um das Aufrufen jedes einzelnen Labels zu verkürzen?

TYSM für zukünftige Hilfe

Answer 1

Hier ist die VB.NET-Version des von @mariocatch bereitgestellten Codes. Ich mag das.

Dim alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
Dim random As New Random() 

For i As Integer = 0 To 99 
    Dim label As New Label() 
    label.Text = alphabet(random.Next(0, alphabet.Length)).ToString() 

    flowLayoutPanel1.Controls.Add(label) 
Next 

Dies ist die Convertor C# -Code zu VB.NET-Code als Referenz verwenden online konvertieren.

Answer 2

Angenommen, bis zu 50 Labels sind die mit den "F" s:

Sie haben den Wert von sb bestimmt, nachdem Sie die Schleife verlassen haben. Sie nehmen dann diesen Wert und setzen das auf den Text jedes Etiketts, weshalb es nicht funktionieren würde. Sie haben auch eine Schleife erstellt, die bei 1 beginnt und bei 1 endet, was eine ziemlich sinnlose Schleife ist, da sie nur einmal ausgeführt wird. Wenn Sie die Schleife ändern, um 100 Zeichen im Zeichenfolgengenerator zu generieren, und dann die n-te Beschriftung auf das n-te Zeichen des Zeichenfolgen-Editors setzen, sollte dies funktionieren.

Answer 3

Ist das was du willst (C#)? Grundsätzlich erstellen Sie die Labels im laufenden Betrieb und fügen sie zu einer FlowLayoutPanel zum Stapeln und Positionieren hinzu.

var alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; 
Random random = new Random(); 

for (int i = 0; i < 100; i++) 
{ 
    Label label = new Label(); 
    label.Text = alphabet[random.Next(0, alphabet.Length)].ToString(); 

    flowLayoutPanel1.Controls.Add(label); 
} 

VB.NET:

Dim alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
Dim random As New Random() 

For i As Integer = 0 To 99 
    Dim label As New Label() 
    label.Text = alphabet(random.[Next](0, alphabet.Length)).ToString() 

    flowLayoutPanel1.Controls.Add(label) 
Next 

Answer 4

Option 1, mit Ihrer bestehenden Form:

ich die Etiketten im Code erstellt haben würde und nicht im Designer, aber wenn Sie schon haben sie, können Sie dies tun:

private void Form1_Load(object sender, EventArgs e) 
{ 
    var labels = this.Controls.OfType<Label>(); 
    var rnd = new Random(); 

    foreach (var label in labels) 
    { 
     label.Text = ((char)(rnd.Next(26) + 'A')).ToString(); 
    } 
} 

Einfach loop th Alle Beschriftungen des Formulars grob (Sie können sie gegebenenfalls filtern) und jedem einen zufälligen Buchstaben zuweisen. Und das ist alles. Keine Notwendigkeit, StringBuilders oder ein Array mit den Buchstaben zu verwenden.

habe ich auch Convertor es in VB zu drehen, ich hoffe, es funktioniert:

Private Sub Form1_Load(sender As Object, e As EventArgs) 
    Dim labels = Me.Controls.OfType(Of Label)() 
    Dim rnd = New Random() 

    For Each label As var In labels 
     label.Text = CChar(rnd.[Next](26) + "A"C).ToString() 
    Next 
End Sub 

Option 2, von Grund auf neu:

Schließlich basiert auf mariocatch Antwort, die eine FlowLayoutPanel verwendet Ich schlage vor, Sie tun dies:

1. Beginnen Sie mit einem leeren Formular.
2. Fügen Sie eine Panel hinzu.
3. Setzen Sie die Eigenschaft Dock auf Bottom.
4. Fügen Sie eine Button innen hinzu.
5. Gehen Sie zu seiner Anchor Eigenschaft und deaktivieren Sie oben und links (nichts ausgewählt).
6. Stellen Sie die Höhe des Panels ein und zentrieren Sie den Knopf horizontal.
7. Fügen Sie eine FlowLayoutPanel in der Mitte des Formulars hinzu.
8. Setzen Sie die Eigenschaft Dock auf Fill.

Und sonst nichts da. Dann nutzen Sie diesen Code:

Private Sub Form1_Load(sender As Object, e As EventArgs) 
    Dim rnd = New Random() 

    For i As Integer = 0 To 49 
     Dim label = New Label() 
     label.Width = 20 
     label.Text = CChar(rnd.[Next](26) + "A"C).ToString() 
     Me.flowLayoutPanel1.Controls.Add(label) 
    Next 
End Sub 

Danach denke ich Sie alle Details ohne Ausgabe anpassen können.