If node is nothing then else end if
public function rechercehNode(node as nodes, recherche as string) as boolean dim i as integer for i = 0 to ubound(node) - 1 if node(i).value = recherche then rechercehNode = true exit function end if if ubound(node(i).nodes) <> 0 then rechercehNode = rechercehNode(node(i).nodes, recherche) if rechercehNode then exit fnuction end if end if next i end function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question