Discussion :

[Yop]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DarkVader]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ! ...

[Yop]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[XylonAkau]

___Ia ora na.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set imgX = ImageList1.ListImages.Item(3)

qui équivaut à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

___Bonne poursuite de vos projets.

[ProgElecT]

Salut

Compris, pas compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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