MESSAGEBOX - Boite de dialogue( Temps de lecture estimé à Moins d'une minute)
Bonjour,
Dans votre application, vous pourrez ajouter un bouton Parcourir , pour chercher un fichier présent sur vos disques locaux par une boite de dialogue. Nous allons utiliser une boite de dialogue .
Dans votre code de l 'evenement Click de votre bouton inscrivez ce code :
PUBLIC SUB Button1_Click()
Dialog.Filter = [ *.jpg , Fichiers JPEG , .png , Fichiers PNG , .xpm , Fichiers XPM ] 'defini le filtre d 'extention
Dialog.Title = Ouvrir unfichier 'defini le titre de la boite
Dialog.Path = Application.Path 'defini le chemin par defaut à l 'ouverture
IF Dialog.OpenFile() THEN RETURN 'si on ne peut ouvrir le fichier alors ne rien faire
END
Le plus important à connaitre, c 'est que le fichier que vous aurez sélectionné sera présent dans le DIALOG.PATH. Ainsi il vous sera facile de récupérer le chemin de votre fichier par la commande :
dim monfichier as String
monfichier = dialog.path
Voila ! cet exemple commenté est simple et vous aidera à concevoir vos projets.
Pour aller un peu plus loin, vous pouvez consulter la doc ici :
http://gambasdoc.org/help/comp/gb.form.dialog/dialog/openfile
A bientôt
);