Discussion :

[khadija24]

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

Code :

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

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

[Delbeke]

L'instruction

Code :

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

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 :

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

unload picture1(I)

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

[sovo]

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.

[khadija24]

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

[zazaraignée]

Code :

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

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.