UTILISATION DU COMPOSANT COMMONDIALOG

Signaler
Messages postés
2
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
25 septembre 2002
-
cs_nihaoma
Messages postés
140
Date d'inscription
jeudi 2 mai 2002
Statut
Membre
Dernière intervention
2 février 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4322-utilisation-du-composant-commondialog

cs_nihaoma
Messages postés
140
Date d'inscription
jeudi 2 mai 2002
Statut
Membre
Dernière intervention
2 février 2010

une ch'tite question....quelqu'un sait s'il existe une boite de dialogue commune (ou bien un flag sur le .ShowSave) qui permet d'enregistrer plusieurs fichiers dans un meme répertoire ?...en fait, que l'utilisateur ne voit pas le champ 'Nom du fichier' et 'Type de fichier' mais qu'il puisse choisir le lecteur et le dossier comme dans le .ShowSave.
Je pourais simplement créer une Form avec un Drive et un FileList et ca marcherait très bien, mais bon si y'a un truc déja fait, pourquoi réinventer la roue ? lol

merci pour vos réponses
TRAX44
Messages postés
93
Date d'inscription
mercredi 18 septembre 2002
Statut
Membre
Dernière intervention
20 juillet 2006

Oui pour .showOpen ou .ShowSave çà marche mais .ShowColor çà renvoir 0 donc noir. Pour l'instant le seul truc que j'ai trouvé, c'est de provoqué une erreur et de la detecté :


Private Sub Command1_Click()
On Error GoTo annule
com1.CancelError = True
com1.ShowColor
MsgBox com1.Color
GoTo fin
annule:
MsgBox "Annulé!"
fin:

End Sub


Si quelqu'un trouve quelque chose de mieux çà m'interesse !
Cordialement
TRAX
lyoni
Messages postés
1
Date d'inscription
samedi 10 avril 2004
Statut
Membre
Dernière intervention
25 juin 2004

blinnit : quand tu cliques sur 'annuler' CommonDialog1.FileName n'est pas modifié : il contient la valeur qu'il avait avant le CommonDialog1.ShowOpen (le dernier fichier que t'as ouvert en cliquant sur 'ouvrir' en non 'annuler') et non le fichier sur lequel t'as cliqué avant de faire 'annuler'.

Voici donc une solution :

'pour vous convaincre de ce que j'ai dit ci-dessus...
MsgBox ("avant .showOpen : " & CommonDialog1.FileName)

CommonDialog1.FileName = Empty

CommonDialog1.ShowOpen

If CommonDialog1.FileName = Empty Then 'annuler
MsgBox ("annuler")
Exit Sub
End If

...
blinnit
Messages postés
18
Date d'inscription
mardi 24 juin 2003
Statut
Membre
Dernière intervention
18 mars 2006

Hummm a toi de faire un test, si tu a choisi un fichier avant d'annuler, ca renvois le nom du fichier, donc c pas bon...
Il y a une solution, je l'avais deja trouvée ici, mais je la retrouve plus et ca m'énerve...