Type | Description | |||
Index as Variant | A long expression that indicates the column's index, or a string expression that indicates the column's caption or column's key. | |||
Column | A Column object being accessed. |
The following VB6 sample enumerates the visible columns as they are displayed:
Private Sub enumColumns(ByVal g As EXGRIDLibCtl.Grid) Dim cArray() As EXGRIDLibCtl.Column With g ReDim Preserve cArray(.Columns.Count) For Each c In .Columns If (c.Visible) Then Set cArray(c.Position) = c End If Next End With For Each c In cArray If Not c Is Nothing Then Debug.Print c.Caption & "(" & c.Index & ")" End If Next End Sub
The Item property is the default property of the Columns object so the following statements are equivalents:
Grid1.Columns.Item ("Freight") Grid1.Columns ("Freight")
The following VB sample enumerates the columns in the control:
For i = 0 To Grid1.Columns.Count - 1 Debug.Print Grid1.Columns(i).Caption Next
The following VC sample enumerates the columns in the control:
#include "Columns.h" #include "Column.h" CColumns columns = m_grid.GetColumns(); for ( long i = 0; i < columns.GetCount(); i++ ) { CColumn column = columns.GetItem( COleVariant( i ) ); OutputDebugString( column.GetCaption() ); }
The following VB.NET sample enumerates the columns in the control:
With AxGrid1.Columns Dim i As Integer For i = 0 To .Count - 1 Debug.WriteLine(.Item(i).Caption) Next End With
The following C# sample enumerates the columns in the control:
EXGRIDLib.Columns columns =axGrid1.Columns; for ( int i = 0; i < columns.Count; i++ ) { EXGRIDLib.Column column = columns[i]; System.Diagnostics.Debug.WriteLine( column.Caption ); }
The following VFP sample enumerates the columns in the control:
with thisform.Grid1.Columns for i = 0 to .Count - 1 wait window nowait .Item(i).Caption next endwith