[اليوم السابع]

(11-01-21, 04:17 AM)1nj كتب : انا عملت تجربه باضافه chart

كود :

Dim query = DataGridView1.Rows.Cast(Of DataGridViewRow).GroupBy(Function(x) x.Cells(6).Value.ToString).ToDictionary(Function(x) x.Key, Function(y) y.Count())
Me.Chart1.DataSource = query
Chart1.Series(0).Points.DataBindXY(query.Keys, query.Values)
Chart1.Series(0).IsValueShownAsLabel = True

وكانت النتيجه

للأسف انا عندي الشارت مختلف لانه من 
nuget اسمه livechart
و ده الكود الخاص به

كود :

  Dim labelPoint1 As System.Func(Of ChartPoint, String) = Function(chartPoint) String.Format("{0} ({1:P})", chartPoint.Y, chartPoint.Participation)
           my_chart.Series = New SeriesCollection From {
               New PieSeries With {
                   .Title = item.Key,
                   .Values = New ChartValues(Of Double) From {
                      item.Value
                   },
                   .PushOut = 15,
                   .DataLabels = True,
                   .LabelPoint = labelPoint1
               }
              }