COMMONDIALOG

'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

 

Télécharger le zip