Klappt soweit so gut, aber sobald ich eine Ebene tiefer steigen möchte ( etwa weil ein Panel da ist, welche noch andere Elemente enthält ) möchte ich über die gleiche Funktion eine "Etage tiefer" und rekursiv auch dieses Element durchsuchen.
Bisher sieht das etwa so aus.
Aus Main heraus einfach der Aufruf: gambas code
suche (FMain) Public Sub Suche(CO As Container) Dim I As Integer Dim TE As String Dim T As String Dim CL As CONTROL Print "----------- CHILDREN --------------------------------------" For I = 0 To (CO.Children.Count - 1) Step 1 CL = CO.Children.Next Print "NEXT = ----> " & CL.NAME & " TYpe = " & Object.Type(CL) TE = Object.Type(CL) If TE = "Panel" Then Print "GOING DOWN" Suche() ' Will einen Container, aber wo krieg ich den aus dem Children Endif Print "CHILDREN -> NAME = --> " & CO.Children.NAME & "- ACTION --" & CO.Children.Action & "-- TAG --" & CO.Children.Tag; T = "TYPE = " & TE ' & " CLASS = " ' & Object.Class.Name(CO.Children.Name) Print "---- " & T Next End
Wie kann ich jetzt bei Erkennen eines Objekts vom Typ "Panel" weiter verzweigen ???