2009-07-06 8 views

Répondre

15

Il y a un exemple de code dans this question. Citant:

En VB6, ajoutez le composant:

  • Projet> Composants
  • Dans l'onglet Commandes, sélectionnez Microsoft Common Dialog Control 6.0 (SP6)

maintenant sur votre formulaire, ajouter le nouveau contrôle Common Dialog à partir de la boîte à outils

Dans le code, vous avez besoin de:

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*" 
CommonDialog1.DefaultExt = "txt" 
CommonDialog1.DialogTitle = "Select File" 
CommonDialog1.ShowOpen 

'The FileName property gives you the variable you need to use 
MsgBox CommonDialog1.FileName 
1

il faut le "1", mais fonctionne très bien merci

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*" 
CommonDialog1.DefaultExt = "txt" 
CommonDialog1.DialogTitle = "Select File" 
CommonDialog1.ShowOpen 

« La propriété FileName vous donne la variable que vous devez utiliser MsgBox CommonDialog1.FileName

+0

I modifié la réponse de @Ant – Rob

Questions connexes