[RESOLU] - [VB6] Obtenir le nombre de dimensions d'un tableau ?

Obtenir le nombre de dimensions d'un tableau ? [RESOLU] - [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 13-07-2004 à 15:12:11    

Bonjour,  
 
j'aimerai savoir s'il y a un moyen de connaitre le nombre de dimensions d'un tableau ? Attention je ne veux pas connaitre le nombre d'élément dans chaque dimension.
 

Code :
  1. dim MonTablo (1 to 5, 1 to 10, to 15) as Variant


 
Et j'aimerai que mon code me retourne 3 comme le nombre de dimensions et non pas 5, 10 ou 15 comme le nombre d'élément dans chacune des dimensions.  
 
Merci


Message édité par fred29 le 14-07-2004 à 17:17:42
Reply

Marsh Posté le 13-07-2004 à 15:12:11   

Reply

Marsh Posté le 13-07-2004 à 16:54:40    

à par fair un UBound sur chaque dimension du tableau jusqu'à avoir une erreur, je ne vois pas comment faire :/


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 13-07-2004 à 17:27:05    

J'ai toujours contourné le problème en gérant l'erreur ou en connaissant le nombre de dimensions, faute d'avoir trouvé une méthode "officielle".
 
Remarque (à deux balles) en passant: UBound ne renvoie pas un nombre d'éléments (5, 10, 15) mais la borne supérieure (cf. indice 0)
Mais vu que ton tableau est mal défini (3ème dimension " To 15" ) c'est pas ton premier problème ;)


Message édité par tegu le 13-07-2004 à 17:28:13
Reply

Marsh Posté le 14-07-2004 à 17:17:29    

oué erreur :D
 
bon j'ai pris la solution de gérer par l'erreur aussi, ça marche sans faute mais bon j'aime pas trop bosser comme ça mais je vois aucune solution :)
 
Merci

Reply

Marsh Posté le 14-07-2004 à 18:33:08    

Gérer les erreurs est "fondamental"... On le fait bien quand on n'a pas d'API "FichierExiste" par ex.
 
Sous QuickBasic, j'avais surexploité les erreurs générés par le PC en "cherchant" la résolution de l'écran de la machine sur laquelle mon prog tournait en déroutant l'erreur du SCREEN et régressant à chaque fois (SVGA -> VGA -> EGA -> .. -> pas de vidéo). Ca rend service...

Reply

Marsh Posté le 14-07-2004 à 20:48:45    

y a gérer les erreurs et provoquer des erreurs :D
 
gérer les erreurs c'est tout à fait normal ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed