Lire un Tableau

dim I% , Dlist_tri%
dim no%:' variable réservée à la création d'objets Panoramic
dim a$
dim nb_el% : nb_el%=26 :' soit le nombre de boutons à créer (on peut mettre plus, mais pas moins que 26)
dim el$(nb_el%)
label traitement_click
height 0,830:' adapte la hauteur de FORM 0 pour les 26 boutons

a$="a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z"
a$=upper$(a$) :' je préfère en majuscule
' condition pour fonctionner ave EXPLODE pas de séparateur au début et à la fin de la chaine a$

no%=no%+1 : Dlist_tri%=no% : dlist no%:' cette méthode donne un nom (Dlist_tri%) au dlist

' découpage de la chaine a$ et transfert dans le tableau el$(nb_el%)
Clear_Variables_EL(nb_el%) :' pour s'assurer tout les éléments soient vides (en cas d'utilisation multiple de la sub EXPLODE)
EXPLODE("|",a$) : Incremente_Variables_EL(Dlist_tri%)

' création du premier bouton
no%=no%+1 : button no% : top no%,5 : caption no%,el$(1) : on_click no%,traitement_click
' création des 25 boutons suivants
for I% = 2 to 26
    no%=no%+1:' prend le numéro d'objet suivant
    Button no% : top no%,top(no%-1)+height(no%-1)+5 :' positionne la hauteur du bouton par rapport au précédent
    caption no%,el$(i%)
    on_click no%,traitement_click
next I%

END
' =======================================================================================
traitement_click:
    I%=number_click :' indique quel numéro d'objet vient d'être cliqué
    message "vous avez cliqué sur le bouton: "+caption$(I%)+" qui a pour numéro d'objet: "+str$(I%)
return
'  . . . . . . . .
'  . . . . . . . .
'  . . . . . . . .
' =======================================================================================
SUB EXPLODE(delimiter$,chaine$):' Nardo modifié JC
' Cette SUB décompose une chaine de caractères et inscrit chaque élément dans Dlist_tri%
' à complèter par la SUB Incremente_Variables_EL(z%)
  CLEAR Dlist_tri%
  WHILE INSTR(chaine$,delimiter$)<>0
     ITEM_ADD Dlist_tri%,LEFT$(chaine$,INSTR(chaine$,delimiter$)-1)
     chaine$=RIGHT$(chaine$,LEN(chaine$)-INSTR(chaine$,delimiter$))
  END_WHILE
 ITEM_ADD Dlist_tri%,chaine$
END_SUB
' -----------------------------
Sub Incremente_Variables_EL(z%)
' cette SUB récupère les variables du Dlist_tri% pour les intégrer dans la variable el$(?) à la bonne position
  dim_local ii%
 for ii%=1 to count(z%)
     if count(z%)=0 then exit_sub
     el$(ii%)=item_read$(z%,ii%)
 next ii%
End_Sub
' ---------------------------
Sub Clear_Variables_EL(nb_V%)
' remise à zéro ("") des variables el$(?)
 dim_local ii%
 for ii%=1 to nb_V%:el$(ii%)="":next ii%
End_Sub