Composant commondialog VB

Version imprimable

04/04/2008, 19h29
nabil01010

Composant commondialog VB
slt
je voulais écrire un bou de prorgamme en VB qui me permettra d'ouvrir un fichier à l'aide du composant "commondailog".
est ce que klk'1 pourra m'aider sur les points suivants:
- initialiser la liste deroulante du type de fichier
- comment faire pour ouvrir un fichier selectionné en cliquant sur le boutton "Ouvrir"
N.B:
je voudrais ouvrir seulement des fichier dont l'extention est *.pdf

merci
04/04/2008, 19h55
ucfoutu

Bonjour,

Tu trouveras dans la Faq (sur ce site) tout ce qu'il faut pour te servir du contrôle CommonDialog ...

Et tu trouveras ici :
http://www.developpez.net/forums/sho...d.php?t=521796
une discussion de ce jour dans laquelle tu verras comment on peut se servir de ShellExecute.

Reviens, si tu as encore une difficulté, en précisant laquelle.

code ouvertur inexecutable

slt
j'ai esseye avec le programme suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Doc_Click()
 
    Dim Canceled As Integer
    Canceled = False
On Error GoTo Doc_Error
 
    CommonDialog1.Filter = "*.pdf|*.pdf"
    CommonDialog1.DialogTitle = "Select PDF File"
    CommonDialog1.CancelError = True
    CommonDialog1.FilterIndex = 1  'Sets default filter to *.txt.
    CommonDialog1.DefaultExt = "pdf"  
    CommonDialog1.Action = 1  
    Debug.Print CommonDialog1.FilterIndex
    Debug.Print CommonDialog1.FileName  
 
Doc_Error:
      Canceled = True
    Resume Next
End Sub

et quand j'appuie sur le bouton ouvrir ,le fichier PDF que j'ai selectinne ne s'ouvre pas

1) Tu vas me faire le plaisir de te débarrasser de ces gestions d'erreur, hein ?

il suffit de :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Doc_Click() Dim Canceled As Integer CommonDialog1.Filter = "*.pdf|*.pdf" CommonDialog1.DialogTitle = "Select PDF File" CommonDialog1.DefaultExt = "pdf" CommonDialog1.Action = 1 If CommonDialog1.filename = "" Then MsgBox "aucun fichier choisi ... je sors donc" exit sub End If MsgBox CommonDialog1.filename ' et à partir de là : sers-toi de Shellexecute, s'il te plait !End Sub
2) Tu vois la ligne en rouge ?
Tu lis ce que j'ai écrit plus haut à propos de ShellExecute ?
Alors : agis ...;)

05/04/2008, 11h35
Delbeke

Cela a été dit plusieur fois, le commondialog ne sert pas à ouvrir un fichier. Son seul objectif est de demander à l'utilisateur le nom du fichier à ouvrir à la mode windows. Un simple textbox suffirait pour obtenir cette nformation, mais ce n'est pas aussi condortable pour l'utilisateur.
Une fois ce nom de fichier obtenu, il reste à ton programme à ouvrir le fichier.
C'est la que çà se complique, car un fichier programme ne s'ouvre pas comme un fichier image ou un fichier son ou fichier de base de données ou un fichier texte ou un fichier pdf.
Si par ouvrir un fichier pdf, tu penses : afficher un fichier pdf, la tu es mal car windows n'est pas equipé d'origine pour le faire. Il faut pour cela te procurer un programme spécial concu pour faire ça, comme Acrobat Viewer par exemple. Quand tu installes un programme de ce type, généralement le programme d'installation ajoute des informations dans la base de registre pour que windows sache quoi faire quand, en utilsant l'explorateur, il sache quel progamme il doit utilser et avec quel paramètres.

depuis vb, tu peux demander à windows d'utiliser ces paramètres. C'est l'instruction shellexecute dont te parle ufoutu que je salue au passage.