產生的所有標籤1個信

Question

早安

我創建具有到Label100的應用程序。我的目標是所有的標籤必須在字母表中生成隨機字母，無論它是否重複，只要它不同。

這是我試過的代碼。

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 

但我的輸出是這樣的:(

請忽略其他字母，因爲我試圖代碼，直到Label50

我怎樣才能實現呢？是有其他的方式縮短呼叫每個標籤？

TYSM for future help

Answer 1

這裏是由@mariocatch提供的代碼的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 

這是Convertor用於將C＃代碼轉換爲VB.NET代碼以供參考。

Answer 2

假設標籤多達50個是帶有「F」的標籤：

您已經確定sb離開循環後的值。然後，您將採取這一價值並將其設置爲每個標籤的文本，這就是爲什麼它不起作用。你也創建了一個從1開始到1結束的循環，這是一個非常毫無意義的循環，因爲它只運行一次。如果修改循環以在stringbuilder中生成100個字符，然後將第n個標籤設置爲stringbuilder的第n個字符，則應該起作用。

Answer 3

這就是你想要的（c＃）？基本上，動態創建Labels，並將它們添加到FlowLayoutPanel進行堆疊和定位。

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

選項1，與現有的形式：

我會在代碼中，而不是在設計師所創建的標籤，但如果你已經有他們，你可以這樣做：

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(); 
    } 
} 

簡單地循環th粗略表格的所有標籤（如果需要，可以過濾它們）併爲每個標籤分配一個隨機字母。就這樣。不需要使用StringBuilders或帶有字母的數組。

我也用Convertor把它變成VB，我希望它的工作原理：

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 

選項2，從頭開始：

最後，基於mariocatch的答案，它採用了FlowLayoutPanel ，我建議你這樣做：

1. 以空格開始。
2. 添加Panel。
3. 將其Dock屬性設置爲Bottom。
4. 裏面添加一個Button。
5. 轉至其Anchor屬性並取消選擇「頂部」和「左側」（未選中）。
6. 設置面板的高度並水平居中按鈕。
7. 在表格的中間添加一個FlowLayoutPanel。
8. 將其Dock屬性設置爲Fill。

而沒有別的。然後使用此代碼：

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 

之後，我認爲你可以調整所有的細節沒有任何問題。