hi guys, i have no ideia what i’m doing wrong here. i’m running xojo 4.2 on Mac.
// Generate the Chart
ChartAtividadesHoje.RemoveAllLabels
ChartAtividadesHoje.RemoveAllDatasets
Var PontosInt(6) As Double
Var PontosLabel(6) As String
Var ds As New ChartLinearDataset(“Pontos (1 semana)”, Color.Blue, True, PontosInt)
For i As Integer = 0 to ListBoxMeta.LastRowIndex
//MessageBox ListBoxMeta.CellTextAt(i,1)
//MessageBox ListBoxMeta.CellTextAt(i,0)
if i < 6Then
PontosInt(i) = Val(ListBoxMeta.CellTextAt(i,1))
PontosLabel(i) = ListBoxMeta.CellTextAt(i,0)
End If
Next
ChartAtividadesHoje.Mode = DesktopChart.Modes.Bar
ChartAtividadesHoje.AddDataset(ds)
ChartAtividadesHoje.AddLabels(PontosLabel)
