Code : Tout sélectionner
Procedure ess_redim_tab()
Dim nom_page.s(1,1)
For i=1 To 5
Redim nom_page.s(1,i)
Debug i
Next
EndProcedure
ess_redim_tab()
Code : Tout sélectionner
Procedure ess_redim_tab()
Dim nom_page.s(1,1)
For i=1 To 5
Redim nom_page.s(1,i)
Debug i
Next
EndProcedure
ess_redim_tab()
donc avec GlobalLes tableaux sont toujours locaux par défaut, donc pour accéder à partir d'une procedure à un tableau défini dans le code source principal du programme, l'utilisation de Global ou Shared est requise.
Code : Tout sélectionner
Procedure ess_redim_tab()
Global Dim nom_page.s(1,1)
For i=1 To 5
ReDim nom_page.s(1,i)
Debug i
Next
EndProcedure
ess_redim_tab()
Code : Tout sélectionner
Global Dim nom_page.s(1,1)
Procedure ess_redim_tab()
For i=1 To 5
ReDim nom_page.s(1,i)
Debug i
Next
EndProcedure
ess_redim_tab()