Petit problème avec .Pattern

Question

Bonjour,



Je d&#233;vellope un petit programme avec la liste des lecteur, les dossiers de chaque lecteur et les fichiers de chaque dossier.

J'ai cr&#233;er une zone pour afficher l'image lorsque le fichier choisi est un fichier image.

Mon probl&#232;me est que lorsque je choisi un fichier image ( .jpg ou .bmp ), celui-ci ne s'affiche pas.

Voici mon code : 



Private Sub File1_Click()

If File1.Pattern = "*.jpg;*.bmp;*.gif" Then

SelectFile = File1.Path & "" & File1.FileName

Image1.Picture = LoadPicture(SelectFile)

End If

End Sub



J'aimerai donc savoir ou est l'erreur dans mon code, ou s'il faut utiliser une fonction sp&#233;ciale pour r&#233;aliser ce que je veut.

Merci d'avance pour vos r&#233;ponses ; )

cs_CanisLupus · Answer

Salut,

Tu testes File1.Pattern mais si c'est "*.*" &#231;a ne marchera jamais.

Au pif, si tu codes :
if right$(file1.filename,4) =".jpg" or right$(file1.filename,4) =".bmp" or right$(file1.filename,4)=".jpg") then ....

est ce que &#231;a marche ?

Loup Gris

cartman75 · Answer

Avec ton code ca marche tr&#232;s bien.

Merci beaucoup : )

Petit problème avec .Pattern

2 réponses

Discussions similaires