[VB6] Remplissage ListBox à partir d'une liste

Bonjour,

Je souhaite remplir une ListBox au chargement de mon formulaire à partir d'une liste construite en dehors de ma form.

J'ai essayé de la passer en paramètres comme indiqué dans la FAQ avec Let Proprety mais je n'y arrive pas :

Code:

---

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

Option Explicit   Private m_lesSorties As New Collection   Public Sub Init(lesSorties As Collection) Sorties = lesSorties End Sub   Property Let Sorties(lesSorties As Collection) Set m_lesSorties = lesSorties End Property     'au chargement du formulaire, remplir la liste avec les sorties Sub Form_Load() Dim uneSortie   For Each uneSortie In m_lesSorties List1.AddItem uneSortie Next uneSortie End Sub

---

J'ai aussi essayé de recopier la liste élément par élément mais ça ne fonctionne pas. J'ai une erreur de ce type :

Citation:

---

Erreur d'exécution '440'
Erreur Automation

---

Ou

Citation:

---

échec appel procédure distante

---

Ou

Citation:

---

encore l'objet invoqué s'est déconnecté de ses clients

---

J'avoue ne rien y comprendre...

Si tu es simplement bloqué sur ce sujet :
http://www.developpez.net/forums/sho...d.php?t=155652
par ce que "tu ne sais pas à quoi celà correspond", simplement, alors qu'il s'agit tout simplement de l'utilisation de Office et d'un renvoi vers son aide... Déleste donc ce sujet, il me semble !

Ok!

Au passage, vu que tu en parles, je n'ai jamais compris ce que voulait dire ce tag.

Merci d'avance.

Edit : Je ne trouve pas le bouton :oops: de délestage

Citation:

---

Envoyé par speedster

Edit : Je ne trouve pas le bouton :oops: de délestage

---

Il n'y a pas de bouton.
Il faut aller dans "Outils de la discussion" au dessus du premier message.

Merci d'avoir répondu à ma demande.

Bonne programmation.

Pour en revenir à mon problème, après de multiples essais, je constate que le problème vient du fait que j'initialise ma ListBox à partir d'une Collection.

A chaque fois que j'essaye d'initialiser ma ListBox en parcourant ma Collection, ça plante.

Par ailleurs, comment fait-on pour cloner une Collection ou bien l'affecter à une autre variable?

Code:

---

1 2	Dim maCollection As Collection Set maCollection = colObj

---

colObj étant une autre liste, à l'exécution ça plante aussi :cry:

Citation:

---

à partir d'une liste construite en dehors de ma form

---

construite comment et sous quelle forme (fichier texte ?, Base de données ?...)

et c'est un collection de quoi ??? pas trés clair ton histoire...

Il s'agit d'une collection de String mais j'ai constaté qu'elle n'était pas correctement construite car certains objets n'étaient pas de type String.

Pour ce faire, j'ai essayé d'afficher chaque élément et ça plantait dès qu'on arrivait sur un élement n'étant pas de type String.

Ce qui est étrange, c'est que l'affichage de cette liste ne posait aucun problème à l'endroit où elle a été construite. Par contre un affichage de celle-ci ailleurs posait problème. C'est ce qui m'a induit en erreur.

A présent, le problème résolu. Merci tout de même pour vos réponses.