MBS Xojo Developer Conference and Training
Join us from 11th to 14th September 2013 in Koblenz.

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
  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 Realbasic PDF Plugins