Lut,
Utilises plutot un controle Picture :
Picture1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.Picture = LoadPicture(SelectedFile)
Picture1.Refresh
Text1.Text = Picture1.Width / Screen.TwipsPerPixelX
Text2.Text = Picture1.Height / Screen.TwipsPerPixelY |
Il faut bien sure adapter ça a ton code...
B@se 
-------------------------------
Réponse au message :
-------------------------------
> Bonjour, j'ai 2 champs de texte dans lequels s'affichent la largeur et la hauteur d'une image quand je clique sur le nom du fichier (dans un contrôle FileListBox). Pour le 1er fichier, pas de pb, mais si je clique de nouveau sur un nom de fichier, les champs de texte ne se rafraichissent pas et les propriétés restent celles de la première image.
> Voici mon code:
>
>
> Private Sub File1_Click()
> Dim SelectedFile As String
> Dim fs As Scripting.FileSystemObject
> 'L'utilisateur a sélectionné l' objet
> SelectedFile = File1.Path & "\" & File1.FileName
> Image1.Picture = LoadPicture(SelectedFile)
> Image1.Stretch = True
> Picture2.Visible = False
> Image1.Visible = True
> ScaleMode = 1
> Text1.DataChanged = True
> Text1.Text = Image1.Width / Screen.TwipsPerPixelX
> Text2.DataChanged = True
> Text2.Text = Image1.Height / Screen.TwipsPerPixelY
> 'Text2.Text = Image1.Height
>
> Merci d'avance
>