如何在循環中更改所有標簽的值

Question

我正在嘗試將標簽的值更改為位於數組中的某個值。 我有一個遍歷數組的循環

我希望能夠做這樣的事情

標簽和i.text =“某些文本”

Dim QuestionArray(10) As String
'dr is OleDbDataReader from database
While dr.Read()
QuestionArray(cnt)=(dr("Question").ToString)
cnt+=1
End While

For i = 0 To QuestionArray.Length
'Label(i) can not be used
Label(i).text = QuestionArray(i)
Next i 

Answer 1

我希望它可以幫助您...

For Each objCtrl As Control In yourFormName.Controls
        ' Assign Some Text 
If TypeOf objCtrl Is Label Then
End If
Next

Answer 2

您可以創建一個數組來保存標簽。

Dim LabelArray() As Label = {Label0, Label1, Label2, Label3, Label4, Label5, _
  Label6, Label7, Label8, Label9, Label10}
    For i = 0 To QuestionArray.Length - 1
        LabelArray(i).Text = QuestionArray(i)
    Next