Suite à une demande qui m'a été faite je joins un petit code qui permet de rechercher un fichier dans un répertoire particulier sur le disque dur ou autre support (disquette ou CD). Gestion d'erreur si le périphérique n'est pas disponible. Ici, dans ce code je viens rechercher un fichier image que j'affiche .
Source / Exemple :
Private Sub Dossier_Change()
Fichiers.Path = Dossier.Path
End Sub
Private Sub Fichiers_Click()
Dim Nomfic As String
Nomfic = Fichiers.Path
If Right(Nomfic, 1) <> "\" Then Nomfic = Nomfic & "\"
Nomfic = Nomfic & Fichiers.FileName
Image1.Picture = LoadPicture(Nomfic)
Picture1.Picture = LoadPicture(Nomfic)
End Sub
Private Sub Lecteur_Change()
On Error GoTo TraiteErreur
Dossier.Path = Lecteur.Drive
Exit Sub
TraiteErreur:
Dim Reponse As Integer
Reponse = MsgBox(Err.Description, 5, "Erreur")
If Reponse = 4 Then Resume
End Sub
Conclusion :
Au niveau de l'image un controle Image a été crée superposé par un contrôle PictureBox
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.