MBS Xojo Developer Conference and Training
Join us from 3rd to 6th May 2016 in Berlin, Germany.

MBS Real Studio Plugin Tutorial Videos

ChartDirectorLine Source

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
End ControlInstance

// Event implementations
Sub Open()
dim threads(-1) as Double
dim emails(-1) as double
dim labels(-1) as string
dim i,u as integer

for i=0 to u
labels.Append listbox1.Cell(i,0)+"-"+Listbox1.Cell(i,1)
Threads.Append val(listbox1.Cell(i,2))
emails.Append val(listbox1.Cell(i,3))

dim c as new CDXYChartMBS(Width, Height)

call c.setPlotArea 30,20, Width-50, Height-50

call c.addLineLayer emails
call c.addLineLayer threads

call c.xAxis.setLabelS labels

c.xAxis.setLabelStep 5


End Sub
End Class

All movies

MBS Real Studio Plugins