Salut Jean-Michel !
Premièrement tu vas dans le menu projet, l'item "composants...", et dans la
boîte de dialogue qui s'ouvre, tu ajoutes la référence à l'objet Microsoft
Common Dialog Control 6.0 (SP6).
S'il n'y a pas cette version précise, bien évidemment tu choisi une version
inférieure.
Ensuite tu faits afficher un de tes formulaire en mode design, et tu y
ajoute un objet CommonDialog.
Pas besoin de le positionner, parce qu'il est invisible à l'utilisateur.
Et maintenant, voici le code qui te permettra de déclencher et de récupérer
le chemin d'un fichier qui sera désigné par ce CommonDialog .
Début du code vb6
' dans ce code, cd1 représente le control CommonDialog
With cd1
' je te recommande de toujours mettre ceci
.CancelError = False
' les types de fichiers autorisés
' ici je t'en ai mis deux (txt ou tout type de fichier)
.Filter = "Fichiers txt (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"
' le dossier de départ
' quand tu ne le mets pas, c'est mes documents par défaut
.InitDir = "d:\programmation"
' le titre qu'aura la boîte de dialogue
.DialogTitle = "Ouvrir un fichier"
' et on lance l'ouverture
.ShowOpen
' Attention, pour cette dernière option, il existe aussi:
' .ShowSave (utilisé pour les enregistrer sous)
End With
' et juste à la suite, le code pour récupérer la valeur du chemin
If cd1.FileName <> vbNullString Then
' ici tu renvoi la valeur
sResult = cd1.FileName
' sinon, tu peux aussi chercher à savoir si
' un fichier portant le même chemin n'existe pas déja.
End If
Fin du code VB6
J'espère t'avoir aidé.
Cependant, sachez que vous pouvez retrouver ce genre de bouts de code par le
logiciel CodeArchiver que vous pouvez retrouver sur mon site à l'adreszse:
www.visuweb.net
Amicalement !
Yannick Daniel Youalé
La programmation est une religion. Aimez-la, ou quittez-la.
Mon site: www.visuweb.net
----- Original Message -----
From: "Jean-Michel RAMOS" <[email protected]>
To: <[email protected]>
Sent: Friday, September 19, 2014 10:41 PM
Subject: [progliste] le contrôle ActiveX CommonDialog sous VB76
Bonsoir,
Je cherche a activer le contrôle ActiveX CommonDialog sous VB6 afin de
pouvoir utiliser l'instruction CommonDialog1.ShowOpen.
Mon objectif, est de proposer dans une fenètre, l'ouverture d'un
explorateur pour que l'utilisateur puisse faire une sélection de fichier
au format TXT.
Mais, je ne sais pas comment m'y prendre.
Quelqu'un pourrait-il m'aider ?
Merci, JM.
Progliste :
Pour se désinscrire de la liste :
mailto:[email protected]?subject=unsubscribe
Pour voir les archives de la liste :
http://www.mail-archive.com/[email protected]/
Je vous rappelle que les pièces jointe sont activés leur taille est limité
à 2 MO
Pour accéder aux fichiers de la liste
http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
Ou en utilisant la nouvelle page de partage :
http://outils-n.archive-host.com/partage-fm0m7b947vglikp9Efpso94gt
Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en privé,
je vous répondrez en privé.
Progliste :
Pour se désinscrire de la liste :
mailto:[email protected]?subject=unsubscribe
Pour voir les archives de la liste :
http://www.mail-archive.com/[email protected]/
Je vous rappelle que les pièces jointe sont activés leur taille est limité à 2 MO
Pour accéder aux fichiers de la liste
http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
Ou en utilisant la nouvelle page de partage :
http://outils-n.archive-host.com/partage-fm0m7b947vglikp9Efpso94gt
Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en privé, je
vous répondrez en privé.
