Quick Menu

Overview
ActiveX COM
Visual C++ MFC
License Agreement

Product Menu

Try Now
Buy Now
Features Tour
Download
Support
Release Notes

COM Products

Suite Pro
Calendar
Chart Pro
Command Bars
Controls
Docking Pane
Property Grid
Report Control
Shortcut Bar
Skin Framework
Syntax Edit
Task Panel

Contact Sales

Call center available M-F 9:00 - 4:00 US Eastern Time.

Case Studies

Morpheus

Morpheus Software selected Xtreme Toolkit Professional with Visual C++ over...

Gantt Chart

A Gantt chart is a type of range bar chart commonly used for task\schedule planning. Typically a Gantt chart is used for displaying the progression of a project and will display the length each individual task will take versus the progression of time. 

// Sample Code

'Gantt series sample

Private Function GetDate(nMonth As Long, nDay As Long) As Double
    GetDate = (nMonth - 1) * 31 + (nDay - 1)
End Function

 

    ChartControl.Content.Titles.Add "Project Development Schedule"
   
    ChartControl.Content.Legend.Visible = True
    ChartControl.Content.Legend.HorizontalAlignment = xtpChartLegendFar
    ChartControl.Content.Legend.Direction = xtpChartLegendLeftToRight
 
    Dim Series As ChartSeries
    Set Series = ChartControl.Content.Series.Add("Planned")
        
    Series.Points.Add2 "Explore Market Need", GetDate(1, 1), GetDate(3, 4)
    Series.Points.Add2 "Develop Concept for Product", GetDate(2, 1), GetDate(3, 10)
    Series.Points.Add2 "Begin Development Cycle", GetDate(3, 10), GetDate(10, 20)
    Series.Points.Add2 "Develop GUI", GetDate(5, 1), GetDate(8, 15)
    Series.Points.Add2 "User Interface Test Evaluation", GetDate(7, 1), GetDate(8, 25)
    Series.Points.Add2 "Alpha Version Release", GetDate(7, 13), GetDate(7, 24)
    Series.Points.Add2 "Beta Version Release", GetDate(10, 13), GetDate(10, 24)
    Series.Points.Add2 "Design Box and CD Labels", GetDate(10, 1), GetDate(11, 1)
    Series.Points.Add2 "Final Quality Testing", GetDate(10, 1), GetDate(11, 25)
    Series.Points.Add2 "FCS Release", GetDate(11, 12), GetDate(11, 23)
    Series.Points.Add2 "Production and Packaging", GetDate(11, 12), GetDate(11, 25)
       
    Set Series = ChartControl.Content.Series.Add("Completed")
    Series.Points.Add2 "Explore Market Need", GetDate(1, 1), GetDate(3, 4)
    Series.Points.Add2 "Develop Concept for Product", GetDate(2, 1), GetDate(3, 10)
    Series.Points.Add2 "Begin Development Cycle", GetDate(3, 10), GetDate(7, 7)
    Series.Points.Add2 "Develop GUI", GetDate(5, 1), GetDate(7, 7)
    Series.Points.Add2 "User Interface Test Evaluation", GetDate(7, 1), GetDate(7, 7)
    
    Set ChartControl.Content.Series(0).Style = New ChartGanttSeriesStyle
    Set ChartControl.Content.Series(1).Style = New ChartGanttSeriesStyle
    
    ChartControl.Content.Series(0).Style.Label.Visible = False
    ChartControl.Content.Series(1).Style.Label.Visible = False
    
    ChartControl.Content.Series(1).Style.BarWidth = 0.3
    
    Dim Diagram As ChartDiagram2D
    Set Diagram = ChartControl.Content.Series(0).Diagram
    
    Diagram.AxisX.Title.Visible = True
    Diagram.AxisX.Title.Text = "Tasks"
    Diagram.AxisX.Reversed = True
    
    Diagram.AxisY.Title.Visible = False
    Diagram.AxisY.Range.ShowZeroLevel = False
    Diagram.AxisY.Range.SideMargins = False
    
    Dim ConstantLine As ChartAxisConstantLine
    Set ConstantLine = Diagram.AxisY.ConstantLines.Add("Progress Line")
    ConstantLine.LegendVisible = False
    ConstantLine.AxisValue = GetDate(7, 7)
    
    Diagram.Rotated = True

// Sample C# Code