property Bars.Item (Name as Variant) as Bar
Returns a specific Column of the Columns collection.

 TypeDescription 
   Name as Variant A string expression that indicates the name of the bar being removes, a long expression that indicates the index of the Bar being removed  
   Bar A Bar object being accessed.  
Use the Item property to access a Bar object in the Bars collection. The Count property counts the bars in the collection.  Use the Remove method to remove a bar from the Bars collection. Use the Clear method to clear the Bars collection. Use the Name property to retrieve the name of the bar.

The following VB sample enumerates the Bar objects in the Bars collection ( the order of the elements is arbitrary ):

With Gantt1.Chart
    Dim b As EXGANTTLibCtl.Bar
    For Each b In .Bars
        Debug.Print b.Name
    Next
End With

The following VB sample enumerates the Bar objects in the Bars collection ( the list is alphabetically sorted ):

With Gantt1.Chart.Bars
    Dim i As Long
    For i = 0 To .Count - 1
        Debug.Print .Item(i).Name
    Next
End With

The following C++ sample enumerates the Bar objects in the Bars collection:

CBars bars = m_gantt.GetChart().GetBars();
for ( long i = 0; i < bars.GetCount(); i++ )
	OutputDebugString( bars.GetItem( COleVariant( i ) ).GetName() );

The following VB.NET sample enumerates the Bar objects in the Bars collection:

With AxGantt1.Chart
    Dim b As EXGANTTLib.Bar
    For Each b In .Bars
        Debug.Write(b.Name)
    Next
End With

The following VB.NET sample enumerates the Bar objects in the Bars collection:

With AxGantt1.Chart.Bars
    Dim i As Integer
    For i = 0 To .Count - 1
        Debug.Write(.Item(i).Name)
    Next
End With

The following C# sample enumerates the Bar objects in the Bars collection:

EXGANTTLib.Bars bars = axGantt1.Chart.Bars;
for (int i = 0; i < bars.Count; i++)
	System.Diagnostics.Debug.Write(bars[i].Name);

The following VFP sample enumerates the Bar objects in the Bars collection:

local i
With thisform.Gantt1.Chart.Bars
	for i = 0 to .Count - 1
		wait window nowait .Item(i).Name
	next
EndWith
 


Send comments on this topic.
1999-2018 Exontrol.COM, Software. All rights reserved.