[VB] passer un array en parametre ???

passer un array en parametre ??? [VB] - Programmation

Marsh Posté le 21-01-2004 à 15:14:52    

est-ce que c'est possible de passer un tableau en paramètre d'une fonction ? en évitant de faire une déclaration globale du tableau, si possible ... si oui, pouvez-vous me donner un exemple plz ? merci


---------------
MyAnimeList
Reply

Marsh Posté le 21-01-2004 à 15:14:52   

Reply

Marsh Posté le 21-01-2004 à 15:44:32    

mauvaise section kirvl, je connais pas le réponse dsl

Reply

Marsh Posté le 21-01-2004 à 15:54:03    

Oui c'est possible.
 

Code :
  1. Dim Params(0 To 2) As String
  2. Params(0) = "param 1"
  3. Params(1) = "param 2"
  4. Params(2) = "param 3"
  5. Call UneFonction(Params)

Reply

Marsh Posté le 22-01-2004 à 14:19:59    

dsl pour l'erreur de section :(
 
et pour la réponse de guru : peux-tu me donner la déclaration de UneFonction plz ? Je sais pas comment définir le array ...
 
j'attend une truc du genre
Sub UneFonction(Params(1 to n)) <=== c la partie en gras qui me gène


---------------
MyAnimeList
Reply

Marsh Posté le 22-01-2004 à 14:40:20    

sub test(params() as string)
  msgbox(ubound(params))
end sub
 
test Array("a", "b", "c" )
test split("a,b,c,d,e,f", "," )

Reply

Marsh Posté le 22-01-2004 à 14:41:22    

dsl pour le double topic : un modo a déplacé un ancien topic mal placé


---------------
MyAnimeList
Reply

Marsh Posté le 22-01-2004 à 14:42:08    

ouais, sinon, c'est qui ton histoire de truc en gras, pourquoi à ça te dérange ? et c'est quoi ce 1 to n ?

Reply

Marsh Posté le 22-01-2004 à 14:43:38    

non non non, c pas ça : mon tableau est deja rempli et il contient n cases ... je veux juste le passer en paramètres pour pouvoir l'utiliser dans ma fonction


---------------
MyAnimeList
Reply

Marsh Posté le 22-01-2004 à 14:47:55    

hé ben, mon truc marche... t pas doué...
 
copie ma sub test.
 
et appelle-la avec ton tableau en paramètres, tu vas voir qu'elle marche très bien.

Reply

Marsh Posté le 22-01-2004 à 14:50:31    

Tiens, voilà une autre  
 
sub vent(prout() as string)  
  dim pet as string
  pouet = ""
  for pet = lbound(prout) to ubound(prout)
     pouet = pouet & prout(pet) & vbCrLf
  next
  msgbox(pouet)  
end sub  
 
Tu vas voir que ma fonction qui pue marche très bien.
 
call vent(params)
 
Ca va t'affichier :
param 1
param 2
param 3


Message édité par MagicBuzz le 22-01-2004 à 14:52:54
Reply

Marsh Posté le 22-01-2004 à 14:50:31   

Reply

Marsh Posté le 22-01-2004 à 14:50:48    

j'ai pas dit que ça marchait pas, c'est juste que ça ne correspond pas à mon problème ... de toute façon j'ai réussi à me sortir de mon problème sans avoir à passer de tableau en paramètres ... merci quand même


---------------
MyAnimeList
Reply

Marsh Posté le 22-01-2004 à 14:54:15    

ben alors explique ton problème...
 
tu veux le passer en byref ton tableau ?
 
sub vent(byref prout() as string)
  for pet = lbound(prout) to ubound(prout)  
     prout(pet) = "tu pues le chat " & pet
  next  
end sub
 
et ton array est modifié. tu veux quoi au juste ?


Message édité par MagicBuzz le 22-01-2004 à 14:54:47
Reply

Sujets relatifs:

Leave a Replay

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