event Sort ()
Occurs when the control sorts a column.

 TypeDescription 
The control fires the Sort event when the control sorts a column ( the user clicks the column's head ) or when the sorting position is changed in the control's sort bar. Use the SortOnClick property to specify the action that control executes when the user clicks the column's head. Use the SortBarVisible property to show the control's sort bar. Use the SortOrder property to sorts a column at runtime. Use the SortPosition property to determine the position of the column in the sorting columns collection. Use the ItemBySortPosition property to access a column giving its position in the sorting columns collection. Use the Sort event to sort the data when the SortOnClk property is exUserSort. Use the SingleSort property to allow sorting by single or multiple columns.  

Syntax for Sort event, /NET version, on:

private void Sort(object sender)
{
}

Private Sub Sort(ByVal sender As System.Object) Handles Sort
End Sub

Syntax for Sort event, /COM version, on:

private void Sort(object sender, EventArgs e)
{
}

void OnSort()
{
}

void __fastcall Sort(TObject *Sender)
{
}

procedure Sort(ASender: TObject; );
begin
end;

procedure Sort(sender: System.Object; e: System.EventArgs);
begin
end;

begin event Sort()
end event Sort

Private Sub Sort(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sort
End Sub

Private Sub Sort()
End Sub

Private Sub Sort()
End Sub

LPARAMETERS nop

PROCEDURE OnSort(oG2antt)
RETURN

Syntax for Sort event, /COM version (others), on:

<SCRIPT EVENT="Sort()" LANGUAGE="JScript">
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Sort()
End Function
</SCRIPT>

Procedure OnComSort 
	Forward Send OnComSort 
End_Procedure

METHOD OCX_Sort() CLASS MainDialog
RETURN NIL

void onEvent_Sort()
{
}

function Sort as v ()
end function

function nativeObject_Sort()
return

The following  VB sample displays the list of columns being sorted:

Private Sub G2antt1_Sort()
    Dim s As String, i As Long, c As Column
    i = 0
    With G2antt1.Columns
        Set c = .ItemBySortPosition(i)
        While (Not c Is Nothing)
            s = s + """" & c.Caption & """ " & IIf(c.SortOrder = SortAscending, "A", "D") & " "
            i = i + 1
            Set c = .ItemBySortPosition(i)
        Wend
    End With
    s = "Sort: " & s
    Debug.Print s
End Sub

The following VC sample displays the list of columns being sorted:

void OnSortG2antt1() 
{
	CString strOutput;
	CColumns columns = m_g2antt.GetColumns();
	long i = 0;
	CColumn column = columns.GetItemBySortPosition( COleVariant( i ) );
	while ( column.m_lpDispatch )
	{
		strOutput += "\"" + column.GetCaption() + "\" " + ( column.GetSortOrder() == 1 ? "A" : "D" ) + " ";
		i++;
		column = columns.GetItemBySortPosition( COleVariant( i ) );
	}
	OutputDebugString( strOutput );
}

The following VB.NET sample displays the list of columns being sorted:

Private Sub AxG2antt1_Sort(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxG2antt1.Sort
    With AxG2antt1
        Dim s As String, i As Integer, c As EXG2ANTTLib.Column
        i = 0
        With AxG2antt1.Columns
            c = .ItemBySortPosition(i)
            While (Not c Is Nothing)
                s = s + """" & c.Caption & """ " & IIf(c.SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending, "A", "D") & " "
                i = i + 1
                c = .ItemBySortPosition(i)
            End While
        End With
        s = "Sort: " & s
        Debug.WriteLine(s)
    End With
End Sub

The following C# sample displays the list of columns being sorted:

private void axG2antt1_Sort(object sender, System.EventArgs e)
{
	string strOutput = "";
	int i = 0;
	EXG2ANTTLib.Column column = axG2antt1.Columns.get_ItemBySortPosition( i );
	while ( column != null )
	{
		strOutput += column.Caption + " " + ( column.SortOrder == EXG2ANTTLib.SortOrderEnum.SortAscending ? "A" : "D" ) + " ";
		column = axG2antt1.Columns.get_ItemBySortPosition( ++i );
	}
	Debug.WriteLine( strOutput );			
}

The following VFP sample displays the list of columns being sorted ( the code is listed in the Sort event ) :

local s, i, c
i = 0
s = ""
With thisform.G2antt1.Columns
    c = .ItemBySortPosition(i)
    do While (!isnull(c))
        with c
	        s = s + "'" + .Caption
	        s = s + "' " + IIf(.SortOrder = 1, "A", "D") + " "
	        i = i + 1
	    endwith
        c = .ItemBySortPosition(i)
    enddo
endwith
s = "Sort: " + s
wait window nowait s

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