Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MBS Xojo 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
ControlInstance
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

u=Listbox1.ListCount-1
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))
next

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

Backdrop=c.makeChartPicture

End Sub
End Class


All movies




Links
MBS Xojo blog