![]() | Type | Description | ||
| Shift as Integer | An integer that corresponds to the state of the SHIFT, CTRL, and ALT keys. | |||
| X as OLE_XPOS_PIXELS | A single that specifies the current X location of the mouse pointer. The x values is always expressed in container 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 container coordinates |
The following sample expands a group only when user double clicks the group's caption ( The sample requires ExpandOnClick property on False ):
Private Sub ExplorerTree1_DblClick(Shift As Integer, X As Single, Y As Single)
With ExplorerTree1
Dim g As EXPLORERTREELibCtl.Group
Set g = .GroupFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
If Not g Is Nothing Then
g.Expanded = Not g.Expanded
End If
End With
End Sub