utiliser dlgop Command dialog

**levasseur62** · 16/08/2011, 15h12

Bonjour j'aimerais fais marché ce code,ci-dessous je l'ai mis dans un commandButton mais lorsque je lance, rien ne se passe,j'ai activé les composants suivants Microso.Comm Control6.0 et DialogControl6.0 avec Microsoft Windows Commencontrol6.0(SP6), j'aimerais savoir si je peux télécharger le controle contrôle Microsoft Common Dialog Control ? et comprendre pourquoi mon code marche pas,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
On Error GoTo Erreur
    dlgop.Filter = "Tous les fichiers (*.*)|*.*|Fichiers Audio MPEG (*.MP3, *.MP2) | *.MP3; *.MP2 | Fichiers Audio (*.wav, *.wma, *.snd)|*.wav; *.wma; *.snd|Fichier MIDI (*.mid, *.rmi, *.midi)|*.mid; *.rmi; *.midi"
    dlgop.FilterIndex = 2
    dlgop.ShowOpen
        List1.AddItem (dlgop.FileName)
Erreur:
    Exit Sub

Merci pour votre aide

**OhMonBato** · 16/08/2011, 16h03

Bonjour,

si tu ne vois rien, c'est que très probablement tu as une erreur, essaye donc de retirer le "On Error" et dis nous ce qui se passe.
Pour info Microso.Comm Control6.0 est pour le contrôle qui te sert à gérer tes ports RS232, il n'a rien à voir avec les boites de dialogues.

**SfJ5Rpw8** · 16/08/2011, 17h05

Il faut aussi ajouter un contrôle "CommonDialog" sur ta form et le nommer dlgop ...

**levasseur62** · 16/08/2011, 17h46

@ OhMonBato :
Lorsque j'enlève la première ligne il me dit " erreur d'exécution'424': un objet est requis

@bbil : je l'avais pas précisé mais il y'a bien un contrôle "CommonDialog", c'est pour ça que je ne comprends pas .

**OhMonBato** · 16/08/2011, 18h32

Comme tu ne précises pas sur quelle ligne se produit l'erreur....
Tu es sûr d'avoir bien coché "Microsoft Common Dialog Control 6.0 (SP6)" dans la liste des composants et seulement celui là ? (Tout autre composant est inutile).

Sinon peux tu faire l'essai de créer un nouveau projet avec seulement ce controle et un bouton de commande et de copier le code que tu nous donnes (sans le On error) et nous dire si tu as toujours ton erreur.