dim. 30 octobre 2016, 18h55
eddymaue
atoutfox.public.association
code un peu spécial
j'ai récupéré ce code dans Addinfox.prg
en bleu je comprend, j'ai déjà fait du code
en roujge c'est la première fois que je vois ca et je ne comprend pas comment
cela s'exécute meme si ca ne plante pas
voilà
bonne soirée è tous
lcNodeVariable = sys(2015)
local &lcNodeVariable.
&lcNodeVariable. = toBrowser.oleMembers.Object.Nodes(1)
*** Key and Text properties are the same for all nodes...
do while type(lcNodeVariable+'.Key') = 'C'
* if &lcNodeVariable..Key = tcName
if &lcNodeVariable..Key == tcName
return &lcNodeVariable..Index
endif
lcNodeVariableTemp = lcNodeVariable
lcNodeVariable = sys(2015)
local &lcNodeVariable.
&lcNodeVariable. = &lcNodeVariableTemp..Next
* release &lcNodeVariableTemp.
enddo
return -1
ENDFUNC && GetMainNode
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017932