selectionner un fichier png Nous allons ouvrir une boite de dialogue par un bouton pourselectionner un ficher PNG uniquement. Le nom et le chemin nous seront retouné dans une textbox. Voici le code :
PUBLIC SUB Png_Click() Dialog.Filter = FileFilter(TRUE) Dialog.Path = User.home Dialog.Title = "S?lection du fichier png" IF Dialog.OpenFile() THEN RETURN Fpng.Text = Dialog.Path CATCH Message.Warning(ERROR.Text) END
PRIVATE FUNCTION FileFilter(OPTIONAL All AS Boolean = FALSE) AS String[] DIM filter AS NEW String[] filter.Add("*.png") filter.Add("Fichiers png")
RETURN filter END
Date de création : 25/07/2009 @ 22:55
Dernière modification : 02/10/2009 @ 21:18
Catégorie : Utiliser les fichiers Page lue 5580 fois