Common dialog

hqv0 Messages postés 54 Date d'inscription samedi 22 novembre 2003 Statut Membre Dernière intervention 12 juin 2004 - 28 mars 2004 à 00:43
hqv0 Messages postés 54 Date d'inscription samedi 22 novembre 2003 Statut Membre Dernière intervention 12 juin 2004 - 28 mars 2004 à 12:29
bonjour , j'ai intallé le Common Dialog mais maintenant je voudrai ourir un fichier bloc note et le mettre dans une listbox Comment faire

voila le debut de mon code pour le common dialog que je nomme CD

With CD
.DialogTitle = "Ouverture des Dicos"
.CancelError = True
.Filter = "Mots Anglais (*.txt)|*.txt|All files (*.*)|*.*"
.InitDir = App.Path
.Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist
.ShowOpen
End With

maintenant je ne connais pas la suite pour mettre dans une listbox les elements de mon fichier .txt

merci de votre aide

3 réponses

radcur Messages postés 282 Date d'inscription lundi 29 septembre 2003 Statut Membre Dernière intervention 15 août 2012 2
28 mars 2004 à 04:27
salut

voici un peu la suite en grande ligne... a toi de le disposer au bon endroit

ton fichier sélectionné sera dans CD.filename donc
'//Ouvre ton fichier
open (cd.filename) for input as #1

'//Lit le fichier jusqu'a la fin et ajoute chaque ligne lu dans le listbox
do until EOF(1)
input #1, ligne
Listbox1.add ligne
loop
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
28 mars 2004 à 12:05
Bonjour

Listbox1.addItem ligne
0
hqv0 Messages postés 54 Date d'inscription samedi 22 novembre 2003 Statut Membre Dernière intervention 12 juin 2004
28 mars 2004 à 12:29
Merci - c'etait tres simple il sufisait de le savoir !!!
ca marche géant.

J'etais bloquée sur un truc hyper simple alors que je sais rentrée une liste avec de multiple split (comme quoi !)

je pense que ta reponse va servir à énormement de personnes car sur le forum de VB cette question n'est pas abordée et on voit dans les sources que le common dialog est tres loin d'etre utilisé au profit de DriveList

Encore merci et bon week end
0
Rejoignez-nous