Private Sub ImagePers() FichePers = "Y:\PhotosPers\" & Me.TxTIDPers.Text & ".JPG" 'Chemin ou se trouve le fichier a charger If My.Computer.FileSystem.FileExists(FichePers ) Then 'Recherche l'existance d'un fichier Me.PicPers.Image = System.Drawing.Image.FromFile(FichePers ) ' Charger l'image correspondante au fichier Else Me.PicPers.Image = Nothing 'PictureBox1.Image = Nothing 'l'image restera vide End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question