在vb.net中創建多個標籤並添加文本

Question

我有一個列表KeyValuePair s，其中KeyValuePair s的數量隨時間變化。在一個表單中，我需要爲每個KeyValuePair創建一個包含Value作爲文本的標籤。

我該怎麼做？

這是我曾嘗試...

For Each element In keyvalueP 
      Dim Label1 As New Label 
      With Label1 
       .Width = 512 
       .Height = 18 
       .Left = 12 
       .Text = " Nr. " & i & " - Matchtype " & element.Value.ToString 
      End With 
      i = i + 1 
Next 

Answer 1

其實我設法找到，你可以分享一些代碼工作

Private Sub R75Dialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Dim labelText = "" 
     Dim i = 0 
     For Each element In keyvalueP 
     labelText = " Nr. " & i & " Groupname: " & element.Key.ToString & " - Matchtype " & element.Value.ToString 
     Dim label As New Label() 
     Dim count As Integer = Panel1.Controls.OfType(Of Label)().ToList().Count 
     label.Location = New Point(10, (25 * count) + 2) 
     label.Size = New Size(1000, 20) 
     label.Name = "label_" & (count + 1) 
     label.Text = labelText 
     Panel1.Controls.Add(label) 
     i = i + 1 
    Next 
End Sub