ImageList en paramètre d'une fonction

Bonjour,

J'essaye de passer une ImageList en paramètre d'une fonction mais cela me retourne l'erreur : runtime error 91 Object variable or with block variable not set.

Voilà ce que je fais (je simplifie grandement le code) :

Code:

---

1 2 3 4 5 6 7 8 9

Affichage Photo1.ListImages .... ....   Sub Affichage (Image As ListImages)   Set Grid.CellPicture = Image.Item("Maison").Picture   End Function

---

Le code bloque sur "Image.Item", comme si ça n'était pas défini.

Pourtant si je fais directement pour tester un Set Grid.CellPicture = Photo1.ListImages("Maison").Picture, ça fonctionne bien.

Auriez-vous une idée ? Merci à la moindre petite aide car cela fait déjà plusieurs heures que je me creuse la tête sur ce problème :(

Bonne journée à vous.

Yop

Bonjour,
L'erreur semble être levée parce que l'item Maison n'existe pas.
Il faut gérer impérativement toutes erreurs et les objects variables intermédiaires.

Par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Affichage (Image As ListImages)   on error goto err_Affichage   If Typename(Image.Item("Maison"))<>"Nothing" then Set Grid.CellPicture = Image.Item("Maison").Picture endif   'ou dim oImg as object 10 set oImg=Image.Item("Maison")   20 if typename(oImg)<>"Nothing" then ... 'etc. exit function err_Affichage: msgbox erl & vbcrlf & errno & vbtab & err.description resume next End Function

---

Avec ce genre d'erreurs, il est toujours préférable de scinder les lignes d'instructions
d'autant que cela permet d'exécuter le code ligne par ligne et de vérifier chaque affectation au fur et à mesure.

Ceci dit, si l'affectation directe fonctionne ! ...

Merci DarkVader d'avoir pris le temps de me répondre.

Par contre ça ne fonctionne toujours pas même avec ta solution.

En fait si je simplifie encore plus le code comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9

Affichage Photo1.ListImages .... ....   Sub Affichage (Image As ListImages)   MsgBox Image.Count   End Function

---

J'ai toujours l'erreur 91 sur 'Image.Count'.

Je ne comprends vraiment pas pourquoi.... :(

Tu aurais une autre idée ou quelqu'un d'autres ?

Merci d'avance.

Yop

___Ia ora na.

Citation:

---

Code:

---

Sub Affichage (Image As ListImages)

---

---

___Image est un mot résérvé de VB (propriété des feuilles et de certains contrôles) ; on ne peut pas l'utiliser comme nom de variable.
___Quelque chose comme

Code:

---

1 2 3 4 5

Sub Affichage (MesImages As ListImages)   MsgBox MesImages.Count   End Function

---

devrait fonctionner.
___Quant à Item, il semble qu'il ne puisse s'employer qu'avec un nombre (l'indice de l'image dans la collection) :

Code:

---

Set imgX = ImageList1.ListImages.Item(3)

---

qui équivaut à

Code:

---

1 2 3

Set imgX = ImageList1.ListImages(3) ' ou encore à Set imgX = ImageList1.ListImages("Numéro Trois")

---

___Bonne poursuite de vos projets.

Salut

Compris, pas compris :aie:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Form_Load() Compte ImageList1 Affichage ImageList1 End Sub Sub Compte(Image As ImageList) MsgBox Image.ListImages.Count End Sub Sub Affichage(Image As ImageList) Me.Picture = Image.ListImages.Item(1).Picture End Sub

---

ImageList1 -->Class ImageList -->Membre de MSComctlLib-->MSCOMCTL.ocx-->Contrôles communs Microsoft Windows 6.0
Mais, j'ai peut être raté quelque chose