sto utilizzando, per impararmi questa libreria:
Button3_Click
Panel4.Visible=False
Panel3.Visible= False
Panel2.Visible= False
Panel1.Visible= False
Panel6.Visible= True
mbc1.LegendShapeSize = 7.0 'this line of code needs to be before mbc1.setTheLegendPositionAndForm("BELOW_CHART_CENTER", "CIRCLE")
mbc1.setTheLegendPositionAndForm("BELOW_CHART_CENTER", "CIRCLE") 'pass strings from the above comments
mbc1.TheLegendColor = Colors.yellow
mbc1.TheLegendTextSize = 20.0
mbc1.LegendTitle = ""
mbc1.ChartDescription = "TITLE : Some Arbitrary Data"
mbc1.ChartDescriptionColor = 0XFFFFA500 'ORANGE
mbc1.ChartDescriptionTextSize = 17
mbc1.ValueTextColor = Colors.Black
mbc1.ValueTextSize = 10.0
'the following 3 arrays must have the same number of entries/elements
mbc1.BarColors = Array As Int(Colors.Blue, Colors.Yellow, Colors.Green, Colors.Red, Colors.Magenta, Colors.Cyan, Colors.Blue, Colors.Yellow, Colors.Green, Colors.Red, Colors.Magenta, Colors.Cyan)
mbc1.LegendText = Array As String("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
mbc1.ChartData = Array As Float(52.3, 16.7, 46.0, 40.5, 101.6, 40.9, 15.7, 25.9, 35.6, 25.3, 67.5, 75.2) 'values - it will be converted to %
mbc1.DoubleTapToZoomEnabled = True
mbc1.DrawBarShadow = False
mbc1.GridBackgroundColor = Colors.white
mbc1.ValueTextColor = 0XFFFFA500
mbc1.DrawBorders = True
mbc1.DrawGridBackground = True
mbc1.DrawHighlightArrow = True
mbc1.DrawValueAboveBar = True
mbc1.PinchZoom = True
mbc1.ScaleEnabled = True
mbc1.BorderColor = Colors.Yellow
mbc1.BorderWidth = 3.0
mbc1.BarData = 12 'this number must be the same as the number of elements in the above arrays
End Sub
vorrei sapere, come posso, al posto del chartdata avere dei numeri a caso, inserire i numeri estratti e raggruppati tramite una query sql.
grazie!
Button3_Click
Panel4.Visible=False
Panel3.Visible= False
Panel2.Visible= False
Panel1.Visible= False
Panel6.Visible= True
mbc1.LegendShapeSize = 7.0 'this line of code needs to be before mbc1.setTheLegendPositionAndForm("BELOW_CHART_CENTER", "CIRCLE")
mbc1.setTheLegendPositionAndForm("BELOW_CHART_CENTER", "CIRCLE") 'pass strings from the above comments
mbc1.TheLegendColor = Colors.yellow
mbc1.TheLegendTextSize = 20.0
mbc1.LegendTitle = ""
mbc1.ChartDescription = "TITLE : Some Arbitrary Data"
mbc1.ChartDescriptionColor = 0XFFFFA500 'ORANGE
mbc1.ChartDescriptionTextSize = 17
mbc1.ValueTextColor = Colors.Black
mbc1.ValueTextSize = 10.0
'the following 3 arrays must have the same number of entries/elements
mbc1.BarColors = Array As Int(Colors.Blue, Colors.Yellow, Colors.Green, Colors.Red, Colors.Magenta, Colors.Cyan, Colors.Blue, Colors.Yellow, Colors.Green, Colors.Red, Colors.Magenta, Colors.Cyan)
mbc1.LegendText = Array As String("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
mbc1.ChartData = Array As Float(52.3, 16.7, 46.0, 40.5, 101.6, 40.9, 15.7, 25.9, 35.6, 25.3, 67.5, 75.2) 'values - it will be converted to %
mbc1.DoubleTapToZoomEnabled = True
mbc1.DrawBarShadow = False
mbc1.GridBackgroundColor = Colors.white
mbc1.ValueTextColor = 0XFFFFA500
mbc1.DrawBorders = True
mbc1.DrawGridBackground = True
mbc1.DrawHighlightArrow = True
mbc1.DrawValueAboveBar = True
mbc1.PinchZoom = True
mbc1.ScaleEnabled = True
mbc1.BorderColor = Colors.Yellow
mbc1.BorderWidth = 3.0
mbc1.BarData = 12 'this number must be the same as the number of elements in the above arrays
End Sub
vorrei sapere, come posso, al posto del chartdata avere dei numeri a caso, inserire i numeri estratti e raggruppati tramite una query sql.
grazie!