GRADIENTDIALOG - SÉLECTION DE DÉGRADÉS LINÉAIRES

        '**************************************************
        '**** Sélectionne de dégradés pré-enregistrés *****
        '**************************************************
        '
        'Mode d'ouverture de la boite de dialogue
        '
        'Dialog_Allow_NewDeleteEdit = Affiche le bouton permettant les modification du fichier de dégradés
        'Dialog_Allow_SaveLoad = Autorise l'utilisateur à changer de fichier de dégradés et à le sauvegarder
        'Dialog_MultiSelect = Autorise la multisélection de dégradés
        '
        GradientDialog1.flags = GradientDialog.CollectorDialogFlags.Default_Dialog
        '
        'Spécifie le filtre de la boite de dialogue Ouvrir/Sauver (Dialog_Allow_SaveLoad doit être spécifié)
        GradientDialog1.Filters = "Fichier de dégradé (*.deg)|*.deg|Tous fichiers (*.*)|*.*"
        '
        'Facultatif => Vous pouvez spécifier un emplacement de fichier à la boîte de dialogue
        'GradientDialog1.FileName = "c:\dégradés.deg"
        '
        'Affiche la boîte de dialogue
        If GradientDialog1.ShowCollector = Windows.Forms.DialogResult.OK Then
            '
            'On regarde le nombre d'éléments sélectionnés dans la boîte de dialogue
            If GradientDialog1.SelectedItems.Items.Count > 0 Then
                '
                'On récupère l'objet Gradient, que l'on convertit en
                'System.Drawing.Drawing2D.LinearGradientBrush()
                'via la méthode ToBrush
                '
                Dim LinearGradient As LinearGradientBrush = _
                    GradientDialog1.SelectedItems.Items(0).ToBrush(0, 0, 10, 10)
                '
            End If
            '
        End If

        '**************************************************
        '************ Sélection d'un dégradé **************
        '**************************************************
        '
        'Facultatif => Vous pouvez spécifier un dégradé à charger dans la boîte de dialogue
        'GradientDialog1.Gradient = MyGradient' (Objet Gradient)
 
        'Affiche la boîte de dialogue
        If GradientDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            '
            'On récupère l'objet Gradient, que l'on convertit en
            'System.Drawing.Drawing2D.LinearGradientBrush()
            'via la méthode ToBrush
            '
            Dim LinearGradient As LinearGradientBrush = _
                    GradientDialog1.Gradient.ToBrush(0, 0, 10, 10)
            '
        End If