impossible de passer un argument

Bonjour
Voici le code défectueux

Public Sub addobj(fonction As String, filenames As String)
obj(nbobj).Functions = fonction

obj(nbobj).filename = filenames
msgbox obj(nbobj).filename          //Rem ici je test pour voir si le filename est vide et il n'est pas vide
obj(nbobj).lefts = 200
obj(nbobj).tops = 200
nbobj = nbobj + 1
Form2.Hide
loadob obj(nbobj)
End Sub

Private Sub loadob(objd As Objets)
MsgBox objd.filename
    Load images(images.Count)
    images(images.Count - 1).Visible = True
   images(images.Count - 1).Picture = LoadPicture(paths & objd.filename)
     images(images.Count - 1).Left = objd.lefts
     images(images.Count - 1).Top = objd.tops
     Form1.Show
End Sub

Le problème c'est que l'argument passé par à loadob est vide alors objd.filename vaut "" donc erreur de path. Même chose pour objd.tops et objd.lefts.

Objets est un type personalisé, que j'utilise objd as Objets ou as single ou tout autre type
l'argument est null quand même.
Merci de m'aider.

Je n'ai pas lu le reste... et ne veux pas le lire à ce stade ...

Ne te serait-il pas tout simplement venu à l'idée, dans ta routine, loaddob, de faire in tout petit :

msgbox paths & objd.filename
avant 
images(images.Count - 1).Picture = LoadPicture(paths & objd.filename)

juste pour voir... avant d'ouvrir une discussion ?

moi j'aurais plusieurs questions :
Qu'est-ce obj(), images(), paths, ...

Tout ça semble etre des variables globales. Pourquoi ne pas les utiliser directement alors plutot que de les passer en paramètres.
Ou laors tu ne les déclares pas globales, et tu les passe toutes en parametres. Mais mélangé en vrac variables globales et passage de paramètres relatifs à ces variables est sources d'erreurs (bêtes) difficiles à trouver.

Perso, je limite un max les variables globales, comme ça pas de surprise de portée

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Private Sub loadob(objd As Objets)
Ne serait-ce pas Object ?

Pourquoi mets-tu des S partout
Lefts, Tops, Filenames...

Je suis à peu près certain que tu n'utilises pas Option Explicit.
Si c'est le cas, commence par là et fais Ctrl-F5

MPi

Salut,

Sans aller jusqu'au erreur d'ecriture, il y a quelques chose qui me semble très bizarre:
'Ceci semble être une variable numérique

nbobj = nbobj + 1 
'[...]
loadob obj(nbobj) 

'Ma question est donc comment une variable numerique 
'Peu devenir un OBJET contenant les propriétés:
'.filename, Lefts, et Top?????

Ou alors il y a une subtilité que je n'ai pas encore comprise (ce qui est bien sûr possible)
@+: Ju£i€n
Pensez: Réponse acceptée

RE,

JE TIENS A M'EXCUSER....ETANT LUNDI MATIN Je n'est pa sles yeux en faces des trous et mon précédent post n'a aucune valeur puisque ARCHI FAUX.

Encore une fois désolé.

En revanche apres avoir relu encore une fois le code (en espérant avoir remis mes lunettes correctement,)

Peu etre devrais tu incrémenter nbobj  apres avoir appelé la procédure loadob
Petite sugestion pour effacer ma GROSSE CO....RIE précédente.

@+: Ju£i€n
Pensez: Réponse acceptée

J'ai trouvé mon problème

obj(nbobj).tops = 200
nbobj = nbobj + 1 ' cest ca mon erreur j'ai incrémenté de nombre d'objet avant de faire loadob alors erreur
Form2.Hide
loadob obj(nbobj)

Merci quand même. nbobj était le nombre d'objet de type objets

et obj est déclaré dim obj(2000) as objets