décharger une image de son controle image

[carlos]

Bonjour le forum

Je charge des images à partir d'un combobox vers un USF trombinoscope composé de controles image.
Si je veux appeler un nouveau groupe d'images , j'ai besoin de décharger les controles image pour en charger de nouvelles.
Voici pour charger :
Me.Controls('Image' & i).Picture = LoadPicture(CheminFichier & '.jpg')

voici pour décharger ,ca coince et clear ne va pas .

For i = 1 To 30
Me.Controls('Image' & i).clear
Next
Merci

Carlos

 

[vekmort]

Bonjour Carlos Orangina,

Zai findé :

Me.Controls('Image1').Picture = LoadPicture('')

Bye :woohoo:

 

[Ti_]

salut
en fait, il y a plus simple, sans passer par LoadPicture :

Set Image1.Picture = Nothing

ah oui, dans ta boucle ça donnerait :

set Me.Controls('Image' & i).Picture = nothing

Message édité par: Ti_, à: 07/04/2006 10:42

 

[carlos]

Bojour vekmort , Ti_

Merci, ca fonctionne tres bien .
Ti_ tu peux continuer à te regarder dans la glace ..

Merci