Utilisation du composant commondialog

Soyez le premier à donner votre avis sur cette source.

Vue 6 758 fois - Téléchargée 496 fois

Description

voici un exemple bref des possibilités de ce composant

Source / Exemple :


Private Sub Command1_Click()
    CommonDialog1.DialogTitle = "ouvrir un fichier sympatique ..."
    CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHelpButton
    CommonDialog1.Filter = "Tous (*.*)|*.*|Fichiers texte (*.txt)|*.txt"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then 'annuler
        Label1.Caption = CommonDialog1.FileName
    End If
End Sub

Private Sub Command2_Click()
    CommonDialog1.DialogTitle = "enregistrer un fichier sympatique ..."
    CommonDialog1.Flags = cdlOFNPathMustExist + cdlOFNOverwritePrompt + cdlOFNHelpButton
    CommonDialog1.ShowSave
    If CommonDialog1.FileName <> "" Then 'annuler
        Label2.Caption = CommonDialog1.FileName
    End If
End Sub

Private Sub Command3_Click()
    CommonDialog1.ShowColor
    Picture1.BackColor = CommonDialog1.Color
End Sub

Private Sub Command4_Click()
    CommonDialog1.Flags = cdlCFBoth
    CommonDialog1.ShowFont
    Label3.Font.Bold = CommonDialog1.FontBold
    Label3.Font.Italic = CommonDialog1.FontItalic
    Label3.Font.Name = CommonDialog1.FontName
    Label3.Font.Size = CommonDialog1.FontSize
    Label3.Font.Strikethrough = CommonDialog1.FontStrikethru
    Label3.Font.Underline = CommonDialog1.FontUnderline
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
140
Date d'inscription
jeudi 2 mai 2002
Statut
Membre
Dernière intervention
2 février 2010

une ch'tite question....quelqu'un sait s'il existe une boite de dialogue commune (ou bien un flag sur le .ShowSave) qui permet d'enregistrer plusieurs fichiers dans un meme répertoire ?...en fait, que l'utilisateur ne voit pas le champ 'Nom du fichier' et 'Type de fichier' mais qu'il puisse choisir le lecteur et le dossier comme dans le .ShowSave.
Je pourais simplement créer une Form avec un Drive et un FileList et ca marcherait très bien, mais bon si y'a un truc déja fait, pourquoi réinventer la roue ? lol

merci pour vos réponses
Messages postés
93
Date d'inscription
mercredi 18 septembre 2002
Statut
Membre
Dernière intervention
20 juillet 2006

Oui pour .showOpen ou .ShowSave çà marche mais .ShowColor çà renvoir 0 donc noir. Pour l'instant le seul truc que j'ai trouvé, c'est de provoqué une erreur et de la detecté :


Private Sub Command1_Click()
On Error GoTo annule
com1.CancelError = True
com1.ShowColor
MsgBox com1.Color
GoTo fin
annule:
MsgBox "Annulé!"
fin:

End Sub


Si quelqu'un trouve quelque chose de mieux çà m'interesse !
Cordialement
TRAX
Messages postés
1
Date d'inscription
samedi 10 avril 2004
Statut
Membre
Dernière intervention
25 juin 2004

blinnit : quand tu cliques sur 'annuler' CommonDialog1.FileName n'est pas modifié : il contient la valeur qu'il avait avant le CommonDialog1.ShowOpen (le dernier fichier que t'as ouvert en cliquant sur 'ouvrir' en non 'annuler') et non le fichier sur lequel t'as cliqué avant de faire 'annuler'.

Voici donc une solution :

'pour vous convaincre de ce que j'ai dit ci-dessus...
MsgBox ("avant .showOpen : " & CommonDialog1.FileName)

CommonDialog1.FileName = Empty

CommonDialog1.ShowOpen

If CommonDialog1.FileName = Empty Then 'annuler
MsgBox ("annuler")
Exit Sub
End If

...
Messages postés
18
Date d'inscription
mardi 24 juin 2003
Statut
Membre
Dernière intervention
18 mars 2006

Hummm a toi de faire un test, si tu a choisi un fichier avant d'annuler, ca renvois le nom du fichier, donc c pas bon...
Il y a une solution, je l'avais deja trouvée ici, mais je la retrouve plus et ca m'énerve...
Messages postés
656
Date d'inscription
mercredi 22 août 2001
Statut
Membre
Dernière intervention
11 mars 2005
13
faut, kan tu fe annuler filename renvoie "", fe un test avant de decrire ce genre de remarques stp ...
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.