ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : code un peu spécial   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

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
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3