Torna al Thread
Call EstraiDati(Me, SorgenteStatMagazzino, DataGridViewStatistiche, CStr(strSQL))
'+++ databind dati +++
ChartStats.DataSource = SorgenteStatMagazzino
'+++ scelta tipo di grafico +++
ChartStats.Series(0).ChartType = SeriesChartType.Column '+++ tipo di grafico di default +++
'+++ colore, spessore e stile del bordo +++
ChartStats.BorderlineColor = Color.Black
ChartStats.BorderlineDashStyle = ChartDashStyle.Solid
ChartStats.BorderWidth = 2
'+++ associazione campi sulle assi X e Y +++
ChartStats.Series(0).XValueMember = strValoreX
ChartStats.Series(0).YValueMembers = strValoreY
ChartStats.Series(0).XValueType = ChartValueType.Auto
ChartStats.Series(0).YValueType = ChartValueType.Auto
'+++ indica di utilizzare il valore dell'asse delle x come punto visualizzato +++
ChartStats.Series(0).IsXValueIndexed = True
'ChartStats.DataBind()
'+++ abilitazione al 3D +++
ChartStats.ChartAreas(0).Area3DStyle.Enable3D = False
'+++ gradiente e sfondo +++
ChartStats.ChartAreas(0).BackGradientStyle = GradientStyle.TopBottom
ChartStats.ChartAreas(0).BackColor = Color.AntiqueWhite
'+++ colore della serie +++
'ChartStats.Series(0).Color = Color.Brown
'+++ label sopra il valore +++
'ChartStats.Series(0).Label = "CIAOOOOOOOOOOOO"
'+++ Tipo di marcatore della posizione sul grafico +++
ChartStats.Series(0).MarkerStyle = MarkerStyle.Circle
'+++ specifica se mostrare la serie nella legenda (il valore viene modificato in base al tipo di grafico nel codice successivo) +++
ChartStats.Series(0).IsVisibleInLegend = False
'+++ Testo della serie nella legenda (remmato cosi i testi ce li mette da solo quando la legenda è visibile) +++
'ChartStats.Series(0).LegendText = strLegendTesto
'ChartStats.Series(0).LegendToolTip = strLegendTesto
ChartStats.Legends(0).IsDockedInsideChartArea = True
ChartStats.Legends(0).Docking = Docking.Bottom
'+++ Valore scritto come label +++
ChartStats.Series(0).IsValueShownAsLabel = True
'+++ Tipologia dei colori rappresentativi dei valori +++
ChartStats.Series(0).Palette = ChartColorPalette.BrightPastel
'+++ Titolo del grafico +++
ChartStats.Titles("Title1").Text = strTitolo
ChartStats.Titles(0).Visible = True
ChartStats.ChartAreas(0).AxisX.Title = strTitoloAsseX
ChartStats.ChartAreas(0).AxisY.Title = strTitoloAsseY