1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Control
  5. Utilisation du composant commondialog

Utilisation du composant commondialog

Soyez le premier à donner votre avis sur cette source.

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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
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
Signaler
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
Signaler
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

...
Signaler
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...
Signaler
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
S'inscrire maintenant

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.

Du même auteur (gg00xiv)