Discussion :

[Vincent32]

Bonjour,

Est-il possible de récupérer les coordonnées en pixel d'un point d'abscisse X et d'ordonnée Y d'un graphique ?

Si oui comment faire

Merci d'avance pour votre aide

[tomlev]

Il va falloir que tu précises un peu, parce qu'en l'état il est impossible de répondre à ta question. De quel genre de graphique tu parles ? Il y a plein de façons de faire des graphiques en .NET...

[-N4w4k-]

De plus, de quelles coordonnées parles tu? coordonnées du "graphique" ? coordonnées d'un point sur le graphique? de la souris ? etc.

[Vincent32]

Bonjour,

Il s'agit d'un graphique mathématique avec une courbe de type ligne de ce type :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
  Dim Graph2 As New Chart
            Dim Aire2 As New ChartArea
            Dim S1b As New Series, S2b As New Series, S3b As New Series
            'Dim pt1 As New PointF(-1.3, 100)
            'Dim pt2 As New PointF(-1.3, 55.7682)
            'Dim pt3 As New PointF(-0.5385, 82.3515)
            ' Dim pt4 As New PointF(-0.5385, 100)
            'Dim points As PointF() = {pt1, pt2, pt3, pt4}
            'Dim Annot As New PolygonAnnotation
            Dim Ano2 As New CalloutAnnotation()
 
            Aire2.Name = "Aire2"
            Graph2.ChartAreas.Add(Aire2)
            Graph2.Cursor = Cursors.Cross
 
            Graph2.Location = New System.Drawing.Point(0, 0)
            Graph2.Size = New System.Drawing.Size(982, 662)
 
            Graph2.Titles.Add("Détermination de la morphologie des feuillets en fonction du potentiel chimique en soufre")
            Graph2.Titles(0).Font = New Font("Arial", 14, FontStyle.Bold)
            Graph2.Titles(0).Text = "Détermination de la morphologie des feuillets en fonction du potentiel chimique en soufre"
            Graph2.Titles(0).ForeColor = ParamCalcRay.T2.BackColor
            Graph2.Titles(0).Alignment = System.Drawing.ContentAlignment.MiddleCenter
            Graph2.Titles(0).Docking = Docking.Top
            Graph2.Titles(0).IsDockedInsideChartArea = True
            Graph2.Titles(0).Position.Auto = True
 
            Graph2.ChartAreas(0).AxisX.Title = "Potentiel chimique en soufre (eV)"
            Graph2.ChartAreas(0).AxisX.TitleAlignment = StringAlignment.Center
            Graph2.ChartAreas(0).AxisX.LineWidth = 2
            Graph2.ChartAreas(0).AxisX.MajorGrid.Enabled = False
            Graph2.ChartAreas(0).AxisX.MinorGrid.Enabled = False
            Graph2.ChartAreas(0).AxisX.Crossing = -2
            Graph2.ChartAreas(0).AxisX.TitleFont = New Font("Arial", 12, FontStyle.Bold)
            Graph2.ChartAreas(0).AxisX.TitleForeColor = ParamCalcRay.A2.BackColor
            Graph2.ChartAreas(0).AxisX.LineColor = ParamCalcRay.A2.BackColor
            Graph2.ChartAreas(0).AxisX.Minimum = -2
            Graph2.ChartAreas(0).AxisX.Maximum = 0
            Graph2.ChartAreas(0).AxisX.MajorTickMark.Interval = 0.5
            Graph2.ChartAreas(0).AxisX.MajorTickMark.LineColor = ParamCalcRay.A2.BackColor
            Graph2.ChartAreas(0).AxisX.MajorTickMark.Size = 2
            Graph2.ChartAreas(0).AxisX.MajorTickMark.TickMarkStyle = TickMarkStyle.AcrossAxis
            Graph2.ChartAreas(0).AxisX.MinorTickMark.Interval = 0.1
            Graph2.ChartAreas(0).AxisX.MinorTickMark.LineColor = ParamCalcRay.A2.BackColor
            Graph2.ChartAreas(0).AxisX.MinorTickMark.Size = 1
            Graph2.ChartAreas(0).AxisX.MinorTickMark.TickMarkStyle = TickMarkStyle.InsideArea
            Graph2.ChartAreas(0).AxisX.LabelStyle.Font = New Font("Arial", 12, FontStyle.Bold)
            Graph2.ChartAreas(0).AxisX.LabelStyle.ForeColor = ParamCalcRay.A2.BackColor
            Graph2.ChartAreas(0).AxisX.LabelStyle.Interval = 0.5
            Graph2.ChartAreas(0).AxisX.IsMarksNextToAxis = True
 
            Graph2.ChartAreas(0).AxisY.Title = "Pourcentage de bords M (%)"
            Graph2.ChartAreas(0).AxisY.TitleAlignment = StringAlignment.Center
            Graph2.ChartAreas(0).AxisY.LineWidth = 2
            Graph2.ChartAreas(0).AxisY.MajorGrid.Enabled = False
            Graph2.ChartAreas(0).AxisY.MinorGrid.Enabled = False
            Graph2.ChartAreas(0).AxisY.MajorTickMark.Size = 2
            Graph2.ChartAreas(0).AxisY.MajorTickMark.TickMarkStyle = TickMarkStyle.AcrossAxis
            Graph2.ChartAreas(0).AxisY.MinorTickMark.Size = 0.5
            Graph2.ChartAreas(0).AxisY.MinorTickMark.TickMarkStyle = TickMarkStyle.InsideArea
            Graph2.ChartAreas(0).AxisY.TitleFont = New Font("Arial", 12, FontStyle.Bold)
            Graph2.ChartAreas(0).AxisY.TitleForeColor = ParamCalcRay.O2.BackColor
            Graph2.ChartAreas(0).AxisY.LineColor = ParamCalcRay.O2.BackColor
            Graph2.ChartAreas(0).AxisY.Minimum = 0
            Graph2.ChartAreas(0).AxisY.Maximum = 100
            Graph2.ChartAreas(0).AxisY.MajorTickMark.Interval = 25
            Graph2.ChartAreas(0).AxisY.MajorTickMark.LineColor = ParamCalcRay.O2.BackColor
            Graph2.ChartAreas(0).AxisY.MajorTickMark.Size = 2
            Graph2.ChartAreas(0).AxisY.MajorTickMark.TickMarkStyle = TickMarkStyle.AcrossAxis
            Graph2.ChartAreas(0).AxisY.MinorTickMark.Interval = 5
            Graph2.ChartAreas(0).AxisY.MinorTickMark.LineColor = ParamCalcRay.O2.BackColor
            Graph2.ChartAreas(0).AxisY.MinorTickMark.Size = 1
            Graph2.ChartAreas(0).AxisY.MinorTickMark.TickMarkStyle = TickMarkStyle.InsideArea
            Graph2.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 12, FontStyle.Bold)
            Graph2.ChartAreas(0).AxisY.LabelStyle.ForeColor = ParamCalcRay.O2.BackColor
            Graph2.ChartAreas(0).AxisY.LabelStyle.Interval = 25
            Graph2.ChartAreas(0).AxisY.IsMarksNextToAxis = True
 
            '   Graph2.ChartAreas(0).AxisY2.LineWidth = 2
            '  Graph2.ChartAreas(0).AxisY2.MajorGrid.Enabled = False
            ' Graph2.ChartAreas(0).AxisY2.MinorGrid.Enabled = False
            'Graph2.ChartAreas(0).AxisY2.LineColor = Param2.Button32.BackColor
            ' Graph2.ChartAreas(0).AxisY2.Minimum = 0
            '  Graph2.ChartAreas(0).AxisY2.Maximum = 100
            '   Graph2.ChartAreas(0).AxisY2.MajorTickMark.Interval = 25
            '    Graph2.ChartAreas(0).AxisY2.MajorTickMark.LineColor = Param2.Button32.BackColor
            '     Graph2.ChartAreas(0).AxisY2.MajorTickMark.Size = 2
            '      Graph2.ChartAreas(0).AxisY2.MajorTickMark.TickMarkStyle = TickMarkStyle.AcrossAxis
            '       Graph2.ChartAreas(0).AxisY2.MinorTickMark.Interval = 5
            '        Graph2.ChartAreas(0).AxisY2.MinorTickMark.LineColor = Param2.Button32.BackColor
            '         Graph2.ChartAreas(0).AxisY2.MinorTickMark.Size = 1
            '          Graph2.ChartAreas(0).AxisY2.MinorTickMark.TickMarkStyle = TickMarkStyle.InsideArea
            '           Graph2.ChartAreas(0).AxisY2.LabelStyle.Enabled = False
            '            Graph2.ChartAreas(0).AxisY2.Enabled = AxisEnabled.True
 
            If ParamCalcRay.V5.Checked = True Then
                S1b.Name = "S1b"
                Graph2.Series.Add("S1b")
                Graph2.Series("S1b").Points.DataBindXY(Tx, Ty)
                Graph2.Series("S1b").ChartType = SeriesChartType.Line
                Graph2.Series("S1b").BorderWidth = 2
                Graph2.Series("S1b").ChartArea = "Aire2"
                Graph2.Series("S1b").ToolTip = "x : #VALX ; y : #VALY"
                Graph2.Series("S1b").Color = ParamCalcRay.C5.BackColor
                Graph2.Series("S1b").BorderDashStyle = ChartDashStyle.Solid
                Graph2.Series("S1b").YAxisType = AxisType.Primary
 
            End If
 
            If ParamCalcRay.V6.Checked = True Then
                S2b.Name = "S2b"
                Graph2.Series.Add("S2b")
                Graph2.Series("S2b").Points.AddXY(D, 0)
                Graph2.Series("S2b").Points.AddXY(D, Y)
                Graph2.Series("S2b").ChartType = SeriesChartType.Line
                Graph2.Series("S2b").BorderWidth = 2
                Graph2.Series("S2b").ChartArea = "Aire2"
                Graph2.Series("S2b").ToolTip = D & " eV ; " & Y & " %"
                Graph2.Series("S2b").Color = ParamCalcRay.C6.BackColor
                Graph2.Series("S2b").BorderDashStyle = ChartDashStyle.Solid
                Graph2.Series("S2b").YAxisType = AxisType.Primary
 
                S3b.Name = "S3b"
                Graph2.Series.Add("S3b")
                Graph2.Series("S3b").Points.AddXY(-2, Y)
                Graph2.Series("S3b").Points.AddXY(D, Y)
                Graph2.Series("S3b").ChartType = SeriesChartType.Line
                Graph2.Series("S3b").BorderWidth = 2
                Graph2.Series("S3b").ChartArea = "Aire2"
                Graph2.Series("S3b").ToolTip = D & " eV ; " & Y & " % de bords M"
                Graph2.Series("S3b").Color = ParamCalcRay.C6.BackColor
                Graph2.Series("S3b").BorderDashStyle = ChartDashStyle.Solid
                Graph2.Series("S3b").YAxisType = AxisType.Primary
 
                If ParamCalcRay.V7.Checked = True Then
                    Ano2.ClipToChartArea = "Aire2"
                    Ano2.Text = "Potentiel chimique en soufre : " & D & " eV ;" & vbNewLine & " Morphologie : " & Y & " % de bords M ;" & vbNewLine & " Couverture en soufre : " & CM & " % de S sur les bords M, " & CS & " % de S sur les bords S"
                    Ano2.ForeColor = ParamCalcRay.C7.BackColor
                    Ano2.Font = New Font("Arial", 10, FontStyle.Bold)
                    Ano2.LineColor = ParamCalcRay.C7.BackColor
                    Ano2.AnchorDataPoint = Graph2.Series("S3b").Points(1)
                    Ano2.AllowMoving = True
                    Ano2.AllowSelecting = True
                    Graph2.Annotations.Add(Ano2)
                End If
            End If
 
            'Annot.ClipToChartArea = "Aire2"
            'Annot.Text = "mon annotation" 'cette ligne fonctionne pas
            ' Annot.GraphicsPath(points) 'cette ligne ne marche pas et je ne vois pas comment faire
            ' Annot.BackColor = Color.Red
 
            CalcRay.TabControl1.TabPages(1).Controls.Add(Graph1)
            CalcRay.TabControl1.TabPages(2).Controls.Add(Graph2)

Je souhaiterais rajouter des points à des valeurs X et Y des axes et récupérer les valeurs en pixel si possible