Gambas France BETA


Pas de compte ? Incription

[GB3]?dialog.path?

Ce sujet est résolu.

1
AuteurMessages
Reivillo#1 Posté le 7/10/2013 à 08:04:48
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour @ Toutes & Tous.

J'ai un soucis, avec le code ci-dessous:
1
2
3
4
5
dialog.path = User.Home
IF Dialog.OpenFile(TRUE) THEN RETURN
TextArea1.Text = File.Load(dialog.path)
CATCH
Message.Info(Error.Text)

Avec le composant gb.gui, je recupère bien le fichier,
alors qu'avec gb.qt4 et gb.qt4.ext,
il me retourne l'erreur: File is a directory.

Avez-vous une idée?

Merci.
Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Flachy Joe#2 Posté le 7/10/2013 à 19:18:06
Iguane : Il Gambas Uniquement pour Activer ses NEuronesSalut,

http://gambasdoc.org/help/comp/gb.qt4/dialog/openfile?fr&v3
Si Multi est à FALSE (par défaut), alors l'utilisateur peut sélectionner un fichier seulement, et le chemin du fichier sélectionné est retourné dans la propriété Paths.

Si Multi est à TRUE, alors l'utilisateur peut sélectionner plusieurs fichiers, et les chemins des fichiers sélectionnés sont retournés comme un tableau de chaînes de caractères dans la propriété Paths.


Tu as juste oublié un s en fait.
;) Flachy Joe ;)
Reivillo#3 Posté le 7/10/2013 à 20:30:24
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir Flachy Joe.

Merci, çà fonctionne.

J'avais pas fait attention,
qu'il fallait obligatoirement,
passer par un FOR EACH.
J'étais resté fixé sur le Composant gb.gui,
qui lui, retourne le Fichier directement.

Reivillo.

1
2
3
4
5
6
7
8
9
10
DIM PathFile AS STRING

Dialog.Path = Application.Path & "/projets"
Dialog.Filter = ["*.*"]
IF Dialog.OpenFile(TRUE) THEN RETURN
FOR EACH PathFile IN Dialog.Paths
TextArea1.Text = File.Load(PathFile)
NEXT
CATCH
Message.Info(Error.Text)
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
1