load et unload

bon salut
g un petit programme la ou je fait charger des picturebox celon le programme suivant en vb 6.0 :

Code:

---

1 2 3 4 5 6

for i=1 to j load picture1(i) ... . . Picture1(i).Picture = LoadPicture(MSFlexGrid1.Text) next i

---

et je veux faire un 2ème chargement la ou j change mais un msg d'erreur "objet déja chargé "
alors comment faire pour utiliser unload ou autre solution
merci

L'instruction

Code:

---

load picture1(I)

---

Charge un picture1 d'index I sur ta form
Si tu executes une seconde fois, il est deja chargé , donc , plantage
tu peux peut etre commencer par decharger les picture1 précedent avec

Code:

---

unload picture1(I)

---

On mette un on error resume next avant d'essayer de charger

Comme te l'a dit Delbeke, tu ne peux pas charger deux picture qui ont le meme index. Donc si tu veux faire varie J afin de creer d'autre picture, tu doit te rassurer que cette variation ce fait en dehors de celle de I et tout devrais ce passer sans encombre.

ça marche plus si je décharge un objet qui n'est pas chargé

Code:

---

1 2 3 4 5 6 7 8

Private Sub DechargerControles() ' Cette procédure décharge les contrôles d'un groupe indicés ' sauf celui dont l'indice est 0 (zéro) Dim i As Integer For i = monTblCtrl.Count - 1 To 1 Step -1 Unload monTblCtrl(i) Next End Sub

---

Tu décharges tes contrôles par précaution avant d'en recharger à nouveau.