Discussion :

[Gualino]

Bonjour à tous,

Avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Public Sub SetYMDToBlack()
 
        For Each serie As Series In YMDChart.Series
            serie.Color = Color.Black
        Next
 
    End Sub

çà coince à la ligne for each:

La référence d'objet n'est pas définie à une instance d'un objet.

Un bouton exécute une procédure qui crée le YMDChart et ses series. Puis un autre click (et si une condition est vérifié) doit changer le style du chart et mettant les séries en noir.

Je comprend bien qu'après mon premier click sur le bouton et une fois la procédure terminé, pour le programme il n'existe pas de YMDChart, d'où l'erreur....

Mais alors comment faire?

[BenoitM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
if  (Not YMDChart IS Nothing AndAlso Not YMDChart.Series Is Nothing)
{
        For Each serie As Series In YMDChart.Series
            serie.Color = Color.Black
        Next
 
}

[Gualino]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
if  (Not YMDChart IS Nothing AndAlso Not YMDChart.Series Is Nothing)
{
        For Each serie As Series In YMDChart.Series
            serie.Color = Color.Black
        Next
 
}

Le problème c'est que malgrès que YMDChart et ses series ont étaient crées, à ce moment là YMDChart et YMDChart.Series sont Nothing...

[BenoitM]

YMDChart est déclaré où/comment?
Le New ce fait où?

[Gualino]

Dans un même classe j'ai :

En debut de classe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim WithEvents YMDChart As Chart
    Dim WithEvents YMDChartArea As ChartArea

puis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Public Sub PlotYMD() handles buttonPlot.click
 
        YMDChart = New Chart
        YMDChartArea = New ChartArea("YMDChartArea")
        YMDChart.ChartAreas.Add(YMDChartArea)
 
        'Series
        For Me.Delta = DeltaMin To CDec(DeltaMax) Step DeltaIncrement
            YMDChart.Series.Add("Delta " & Round(Delta, 2).ToString & "°")
        Next
 
        For Me.Beta = BetaMin To CDec(BetaMax) Step BetaIncrement
            YMDChart.Series.Add("Beta " & Round(Beta, 2).ToString & "°")
        Next
 
...

Puis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Public Sub SetYMDToBlack() handles buttonPlot.click
 
if CheckBox.cheked= true
 
            For Each serie As Series In YMDChart.Series
                serie.Color = Color.Black
            Next
 
end if
 
    End Sub

[Gualino]

Résolu!

Il faut déclarer le chart en tant que membre partagé avec le mot clef shared.