property Column.Selected as Boolean
Retrieves or sets a value that indicates whether the cell in the column is selected.

 TypeDescription 
   Boolean A boolean expression that specifies whether the cell in the column is selected.   
Use the Selected property to determine the cells being selected, when FullRowSelect property is exRectSel. Use the SelectItem property to programmatically selects an item. Use the SingleSel property to allow multiple items or cells in the selection. The control fires the SelectionChanged event when user changes the selection.

The following VB sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel:

Private Sub G2antt1_SelectionChanged()
    Dim strData As String
    With G2antt1
        Dim i As Long, h As HITEM
        For i = 0 To .Items.SelectCount - 1
            h = .Items.SelectedItem(i)
            Dim c As Column
            For Each c In .Columns
                If (c.Selected) Then
                    strData = strData + .Items.CellCaption(h, c.Index) + vbTab
                End If
            Next
            strData = strData + vbCrLf
        Next
    End With
    Clipboard.Clear
    Clipboard.SetText strData
End Sub

The following C++ sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel:

#include "Column.h"
#include "Columns.h"
#include "Items.h"
void OnSelectionChangedG2antt1() 
{
	CString strData;
	CColumns cols = m_g2antt.GetColumns();
	CItems items = m_g2antt.GetItems();
	for ( long i = 0; i < items.GetSelectCount(); i++ )
	{
		COleVariant vtItem( items.GetSelectedItem( i ) );
		for ( long j = 0; j < cols.GetCount(); j++ )
		{
			COleVariant vtColumn( j );
			if ( cols.GetItem( vtColumn ).GetSelected() )
				strData += items.GetCellCaption(vtItem, vtColumn ) + "\t";
		}
		strData += "\r\n";
	}	
	if ( OpenClipboard() )
	{
		EmptyClipboard();
		HGLOBAL hGlobal = GlobalAlloc( GMEM_MOVEABLE | GMEM_DDESHARE, strData.GetLength() );
		CopyMemory( GlobalLock( hGlobal ), strData.operator LPCTSTR(), strData.GetLength() );
		GlobalUnlock( hGlobal );
		SetClipboardData( CF_TEXT, hGlobal );
		CloseClipboard();
	}
}

The following VB.NET sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel:

Private Sub AxG2antt1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
    Dim strData As String = ""
    With AxG2antt1
        Dim i As Integer, h As Integer, j As Integer
        For i = 0 To .Items.SelectCount - 1
            h = .Items.SelectedItem(i)
            For j = 0 To .Columns.Count - 1
                Dim c As EXG2ANTTLib.Column = .Columns(j)
                If (c.Selected) Then
                    strData = strData + .Items.CellCaption(h, c.Index) + vbTab
                End If
            Next
            strData = strData + vbCrLf
        Next
    End With
    Clipboard.Clear()
    Clipboard.SetText(strData)
End Sub

The following C# sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel:

private void axG2antt1_SelectionChanged(object sender, System.EventArgs e)
{
	string strData = "";
	for (int i = 0; i < axG2antt1.Items.SelectCount; i++)
	{
		for ( int j = 0; j < axG2antt1.Columns.Count; j++ )
			if (axG2antt1.Columns[j].Selected)
			{
				string cellData = axG2antt1.Items.get_CellCaption(axG2antt1.Items.get_SelectedItem(i), j);
				strData += cellData + "\t";
			}
		strData += "\r\n";
	}
	Clipboard.Clear();
	Clipboard.SetText(strData);
}

The following VFP sample copies the selected cells to the clipboard, if the FullRowSelect property is exRectSel ( SelectionChanged event ):

*** ActiveX Control Event ***

with thisform.G2antt1.Items
	local strData, i, j, cols
	strData = ""
	cols = thisform.G2antt1.Columns
	for i = 0 to .SelectCount - 1
		.DefaultItem = .SelectedItem( i )
		for j = 0 to cols.Count - 1
			if ( cols.Item(j).Selected )
				strData = strData + .CellCaption(0,j) + chr(9)
			endif
		next
		strData = strData + chr(13) + chr(10)
	next
	_CLIPTEXT = strData
endwith