Pb de rafraichissement champ de texte

Question

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

cs_Base · Answer

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  8-)

Pb de rafraichissement champ de texte

1 réponse

Discussions similaires