[web] getOpenFile Module Tk

**Slippers** · 26/05/2005, 13h19

Bonjour a tous,

Mon probleme est le suivant j ai trouver un une tit methode toute sympa avec les module tk pour selectionner un fichier sur le disque.

Ca fonctionne tres bien qd je selectionne un fichier. Ms je voudrais faire une multi selection, alors j ai lu sur le site qu il fallait rajouter -multiple.
Hors qd je le fais ca deconne rien ca plante le prog faut-il rajouter autre chose que multiple ?

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use Tk ;
 
$fenetre = new MainWindow ( ) ;
 
$fenetre -> Button ( -text => 'Ouvrir Fichier' ,
                     -command => sub {
                        $nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'c:\\') ;  # sous Windows
                        print "$nom_fichier\n" ;
                     }
            ) -> pack ( -padx => 5 , -pady => 5 ) ;
 
MainLoop ( ) ;
 
Je dois rajouter  kwa ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'c:\\',-multiple,...

**djibril** · 26/05/2005, 14h54

si tu veux selectionner plusieurs fichiers, tu devras faire plusieurs boutons de selection. Impossible de faire une selection multiple sur les fichiers (même en html, t'es obliger de faire plusieurs boutoun parcourir), faut pas trop demander à l'informatique qd même

A toi de faire un truc dynamique. Si l'utilisateur veut selectionner 3 files, alors 3 boutons s'affichent, etc

**Slippers** · 26/05/2005, 15h42

Ms sur le site il est marque :

-multiple
Allows the user to choose multiple files from the Open dialog.

Ca veut dire kwa alors ?

**Slippers** · 26/05/2005, 15h45

Ou alors il y a pas moyen de selectionner un repertoire a la place d un fichier ? comme ca je recupere l emplcement et je peux taper tout le contenu du repertoire quelque part ?

**djibril** · 26/05/2005, 16h00

fais voir l'adresse du site!!

**Slippers** · 26/05/2005, 21h56

http://aspn.activestate.com/ASPN/docs/ActivePerl/site/lib/Tk/getOpenFile.html

**djibril** · 26/05/2005, 22h25

ok, j'ai vu et essayé. connais pas l'option multiple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Tk::Error: unknown option "-multiple", must be -defaultextension, -filetypes, -initialdir, -initialfile, -parent or -title at C:/Perl/site/lib/Tk.pm line 271.
 Tk callback for tk_getOpenFile
 [\&main::__ANON__]
 Tk callback for .button
 Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 228
 Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111
 (command bound to event)

**Slippers** · 26/05/2005, 22h31

Bande de petit veinard j ai trouver comment l utiliser :p lol

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use Tk ;
 
$fenetre = new MainWindow ( ) ;
 
$fenetre -> Button ( -text => 'Ouvrir Fichier' ,
                     -command => sub {
                        $nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'c:\\',-multiple => 'c:\\' ) ;  # sous Windows
                        print "$nom_fichier\n" ;
                     }
            ) -> pack ( -padx => 5 , -pady => 5 ) ;
 
MainLoop ( ) ;