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
| Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Le textbox 1 simule l'acquisition série des valeurs via Pic
TextBox1.Text = 0
For i As Integer = 0 To MonTableau.Length - 1
x = (Rnd(1) * 20 - 5) 'Génération de nbr aléatoire
MonTableau(i) = x
ListBox1.Items.Add(MonTableau(i))
Next
Chart1.Series("Series1").ToolTip = "#VALX" + ";#VALY" ' donnée affichée dans une info bulle
End Sub
'un bouton fait apparaitre le graphe
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To MonTableau.Length - 1
x = MonTableau(i)
Chart1.Capture = True
Chart1.Series("Series1").Points.AddXY(i, x)
Chart1.Series("Series1").ChartType = DataVisualization.Charting.SeriesChartType.SplineArea
' spline line tension
Chart1.Series("Series1")("LineTension") = "0.4"
' Enlever la marge de l'axe des X
Chart1.ChartAreas("ChartArea1").AxisX.IsMarginVisible = False
'Choix du type de marker
Chart1.Series("Series1").MarkerStyle = MarkerStyle.Circle 'des marqueur permette de visualiser la valeur sur le graphe
'Couleur du marker
Chart1.Series("Series1").MarkerColor = Color.Magenta
Next
End Sub
'C'est ici que je bloque, les commentaire sont les parties que j'ai déja essayé et se qui reste est la valeur qui s'affiche en label lorsque je click sur le graph.
'Pas moyen de selectionner directement et de récupérer la valeur du graphe????
Private Sub Chart1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chart1.Click
Dim i As Integer
Dim j As Array
Dim reftableau(50) As Integer
'Enable range selection and zooming end user interface
'Chart1.ChartAreas(0).CursorX.IsUserEnabled = True
'Chart1.ChartAreas(0).CursorX.IsUserSelectionEnabled = True
'Chart1.ChartAreas(0).CursorY.IsUserEnabled = True
'Chart1.ChartAreas(0).CursorY.IsUserSelectionEnabled = True
'Chart1.Series("Series1").LabelToolTip()
'ListBox2.Items.Add(a)
'Chart1.ChartAreas(0).AxisX.ScrollBar.IsPositionedInside = True
'Chart1.ChartAreas(0).AxisY.ScaleView.Zoomable = True
'Chart1.ChartAreas(0).AxisY.ScrollBar.IsPositionedInside = True
' Autre exemple ToolTip sur tous les points de la series
'Affichons les valeurs Y au dessus de chaque colonne
'Chart1.Series(0).IsValueShownAsLabel = True
' Chart1.ChartAreas(0).CursorX.IsUserEnabled = True
'Chart1.ChartAreas(0).CursorX.IsUserSelectionEnabled = True
'x1 = (Chart1.Series(0).Label)
'ListBox3.Items.Add(Chart1.Series("Series1").AxisLabel)
'ref = (Chart1.Series(0).IsValueShownAsLabel)
'ref = Chart1.Series("Series1").AxisLabel = "#VALX"
'ref = CDbl(Cursor.Position.X)
'ref = ChartArea.Position(Devices.Mouse).value
'i = ChartArea.Position(Devices.Mouse).value
'For i = LBound(j) To UBound(j)
' Debug.Print ("Point"(i)";"="x(i))
'ref = MonTableau(i)
'Next
'Affiche les valeurs Y au dessus de chaque colonne
Chart1.Series(0).IsValueShownAsLabel = True
ref = System.Windows.Forms.Control.MousePosition.X
ListBox3.Items.Add(ref)
'Chart1.Series().Isvaluesshownaslistbox3 = True
'If x2 <> x1 Then
'ref = MonTableau(x2)
'reftableau(i) = ref
'i = i + 1
'ListBox2.Items.Add(reftableau(x1))
'x2 = x2 + 1
'End If
End Sub |
