VB.NET-Steuerelemente nicht sichtbar

Question

Ich versuche, alle Etiketten in Me.Controls zu sehen, und wenn ich benutze:

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

es zeigt nur die Etiketten, die nicht umbenannt haben. Mache ich hier etwas falsch?

Answer 1

Der Code sieht in den meisten Fällen richtig aus, es sei denn, Sie haben Beschriftungen in anderen Containersteuerelementen wie Panels und GroupBoxen. In diesem Fall müssten Sie auch diese Container durchlaufen. Hier

ein Beispiel:

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