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 Y location of the mouse pointer. The y values is always expressed in client coordinates. | |||
Group | A Group object whose list is under the cursor. |
The following VB sample prints the cell over the cursor:
Private Sub ExplorerTree1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim g As EXPLORERTREELibCtl.Group With ExplorerTree1 Set g = .GroupListFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY) If Not (g Is Nothing) Then With g Dim h As Long, c As Long, hit as Long h = .ItemFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY, c, hit) If Not (h = 0) Then With g.Items Debug.Print .CellCaption(h, c) End With End If End With End If End With End Sub
The following VFP sample prints the cell's caption from the cursor:
*** ActiveX Control Event *** LPARAMETERS button, shift, x, y with thisform.Olecontrol1 local g g = .GroupListFromPoint(-1,-1) If !isnull(g) Then with g local h, c, hit c = 0 hit = 0 h = .ItemFromPoint(-1,-1,@c,@hit) If h # 0 Then with .Items .DefaultItem = h wait window .CellCaption(0, c) nowait endwith EndIf endwith EndIf endwith