VB.NET控件不可見

Question

我想看到Me.Controls所有的標籤，當我用：

For Each Control As Label In Me.Controls.OfType(Of Label)() 
    MsgBox(Control.Name.ToString) 
Next 

那隻能說明沒有被重命名的標籤。我在這裏做錯了什麼？

Answer 1

大部分情況下，您的代碼看起來不錯，除非您在其他容器控件（如Panels和GroupBoxes）內部有標籤。在這種情況下，您也需要遍歷這些容器。

下面是一個例子：

Dim allContainers As New Stack(Of Control) 
allContainers.Push(Me) 
While allContainers.Count > 0 
    For Each item As Control In allContainers.Pop.Controls 
    If item.Controls.Count > 0 Then 
     allContainers.Push(item) 
    End If 
    If TypeOf item Is Label Then 
     MessageBox.Show("Label.Name = " + item.Name) 
    End If 
    Next 
End While