1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| 'fonction récursive permettant de retourner le premier TaskResult trouvé dans les controles de la page
' TYPE : TaskResults : le taskResults s'il a été trouvé, nothing si non trouvé
' IN : p_controls : la collection de controle dans laquelle chercher le TaskResult
Private Function getTaskResults(ByVal p_controls As ControlCollection) As TaskResults
getTaskResults = Nothing
Dim control As Control
For Each control In p_controls
If control.HasControls() Then
If TypeOf control Is ESRI.ArcGIS.ADF.Web.UI.WebControls.TaskResults Then
getTaskResults = CType(control, ESRI.ArcGIS.ADF.Web.UI.WebControls.TaskResults)
Return getTaskResults
End If
getTaskResults = getTaskResults(control.Controls)
If Not getTaskResults Is Nothing Then
Return getTaskResults
End If
End If
Next
End Function |
Partager