eXontrol Software - Detail/Record Container ActiveX, NET Control

use the EditorFromPoint property to get the editor from the point. Use the Focus property to get the focused editor. Use the EnsureVisible method to ensures that an editor fits the control's client area.

The following VB sample prints the editor from the point:

Private Sub Record1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim e As EXRECORDLibCtl.Editor
    Set e = Record1.EditorFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
    If Not e Is Nothing Then
        Debug.Print e.Label & " = " & e.Value
    End If
End Sub

The following VC sample prints the editor from the point:

static CString V2S( VARIANT* pv, LPCTSTR szDefault = _T("") )
{
	if ( pv )
	{
		if ( pv->vt == VT_ERROR )
			return szDefault;

		COleVariant vt;
		vt.ChangeType( VT_BSTR, pv );
		return V_BSTR( &vt );
	}
	return szDefault;
}

Send comments on this topic.

		Type	Description
		X as OLE_XPOS_PIXELS	A long expression that indicates the X position where the editor is located.
		Y as OLE_YPOS_PIXELS	A long expression that indicates the Y position where the editor is located.
		Editor	An Editor object that's found at the specified position.