

| Type | Description | |||
| X as OLE_XPOS_PIXELS | A single that specifies the current X location of the mouse pointer. The x values is always expressed in client coordinates. | |||
| Y as OLE_YPOS_PIXELS | A single that specifies the current X location of the mouse pointer. The x values is always expressed in client coordinates. | |||
| Long | A long expression that indicates the column's index, or -1 if there is no column at the point. The property gets a negative value less or equal with 256, if the point is in the area between columns where the user can resize the column. |
The following VB sample prints the caption of the column from the point:
Private Sub Gantt1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Gantt1
Dim c As Long
c = .ColumnFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
If (c >= 0) Then
With .Columns(c)
Debug.Print .Caption
End With
End If
End With
End Sub
The following C++ sample prints the caption of the column from the point:
#include "Columns.h"
#include "Column.h"
void OnMouseMoveGantt1(short Button, short Shift, long X, long Y)
{
long nColIndex = m_gantt.GetColumnFromPoint( X, Y );
if ( nColIndex >= 0 )
{
CColumn column = m_gantt.GetColumns().GetItem( COleVariant( nColIndex ) );
OutputDebugString( column.GetCaption() );
}
}
The following VB.NET sample prints the caption of the column from the point:
Private Sub AxGantt1_MouseMoveEvent(ByVal sender As Object, ByVal e As AxEXGANTTLib._IGanttEvents_MouseMoveEvent) Handles AxGantt1.MouseMoveEvent
With AxGantt1
Dim i As Integer = .get_ColumnFromPoint(e.x, e.y)
If (i >= 0) Then
With .Columns(i)
Debug.WriteLine(.Caption)
End With
End If
End With
End Sub
The following C# sample prints the caption of the column from the point:
private void axGantt1_MouseMoveEvent(object sender, AxEXGANTTLib._IGanttEvents_MouseMoveEvent e)
{
int i = axGantt1.get_ColumnFromPoint( e.x,e.y );
if ( i >= 0 )
System.Diagnostics.Debug.WriteLine( axGantt1.Columns[i].Caption );
}
The following VFP sample prints the caption of the column from the point:
*** ActiveX Control Event *** LPARAMETERS button, shift, x, y with thisform.Gantt1 i = .ColumnFromPoint( x, y ) if ( i >= 0 ) wait window nowait .Columns(i).Caption endif endwith