Commondialog

Soyez le premier à donner votre avis sur cette source.

Vue 15 649 fois - Téléchargée 922 fois

Description

Grâce à un CommonDialog, accédez facilement au programme que vous désirez.

Source / Exemple :


'ShowColor
'ShowFont
'ShowHelp
'ShowOpen
'ShowPrinter
'ShowSave
'L 'exemple suivant utilise le contrôle CommonDialog ainsi que les
'méthodes pour afficher les boîtes de dialogues communes.
'Pour tester cet exemple, collez le code dans la section des
'déclarations d'une feuille contenant des contrôles
'CommandButton,
'OptionButton (affectez la valeur 0 à sa propriété Index) et
'CommonDialog.

Private Sub Form_Paint()
    Static FlagFormPainted As Integer
    ' Lorsque la feuille s'affiche pour la première fois,
    If FlagFormPainted <> True Then
        For i = 1 To 5
            Load Option1(i) ' ajoute cinq boutons d'option au
                ' groupe de contrôles.
            Option1(i).Top = Option1(i - 1).Top + 350
            Option1(i).Visible = True
        Next i
        Option1(0).Caption = "Ouvrir"   ' Associe une légende à
        Option1(1).Caption = "Enregistrer"  ' à chaque bouton d'option.
        Option1(2).Caption = "Couleurs"
        Option1(3).Caption = "Polices"
        Option1(4).Caption = "Imprimante"
        Option1(5).Caption = "Aide"

        Command1.Caption = "Afficher Boîte de Dialogue"   ' Affecte une étiquette au
                    ' bouton de commande.
        FlagFormPainted = True  ' La feuille est entièrement
                ' affichée.

    End If
End Sub

Private Sub Command1_Click()
    
    If Option1(0).Value Then            ' Si le bouton d'option Ouvrir est
        CommonDialog1.ShowOpen  ' sélectionné, affiche la boîte de
    
    ElseIf Option1(1).Value Then     ' dialogue commune Ouvrir. Dans les autres cas,
        CommonDialog1.ShowSave  ' affiche la boîte de dialogue commune Enregistrer.
    
    ElseIf Option1(2).Value Then    ' ou la boîte de dialogue commune  Couleurs
        CommonDialog1.ShowColor
    
    ElseIf Option1(3).Value Then                ' Ou encore, si la propriété Flags
        CommonDialog1.Flags = cdlCFBoth ' a l'une des valeurs cdlCFBoth,
                                                             ' cdlCFPrinterFonts ou
                                                             ' cdlCFScreenFonts, utilise
                                                             ' la méthode ShowFont.
        CommonDialog1.ShowFont              ' Affiche la boîte de dialogue commune Polices.
    
    ElseIf Option1(4).Value Then        ' Ou encore,
        CommonDialog1.ShowPrinter   ' affiche la boîte de dialogue commune Imprimante.
    
    ElseIf Option1(5).Value Then    ' Ou
        CommonDialog1.HelpFile = "VB.HLP"
        CommonDialog1.HelpCommand = cdlHelpContents
        CommonDialog1.ShowHelp  ' affiche le sommaire de l'aide de Visual Basic.

        End If
End Sub

Private Sub cmdQuitter_Click()
End
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

arf....heu....je penses que oui, en fait j'en sais rien, comme tu peux le voir, il y à plus de 4 mois que j'ai poser cette question, alors j'imagine que j'avais trouver une solution alternative...en fait je ne me souviens plus ^^
mais merci quand meme d'avoir répondu
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
tu cherches un selecteur de dossier cible, en somme, non ?
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 une option 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.
(en fait le 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
656
Date d'inscription
mercredi 22 août 2001
Statut
Membre
Dernière intervention
11 mars 2005
13
putin moi j'aurais la honte a ta place JLB...
Tiens - tiens ... alors comme ça on maitrise le copier-coller depuis la MSDN ?? c'est bien ...
Afficher les 7 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.