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 ???
