event DblClick (Shift as Integer, X as OLE_XPOS_PIXELS, Y as OLE_YPOS_PIXELS)
Occurs when the user dblclk the left mouse button over an object.

 TypeDescription 
   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 DblClick event is fired when user double clicks the control. Use the GroupFromPoint property to get the group's caption from the point. Use the GroupListFromPoint property to get the group's list from point. Use the ItemFromPoint property to get the item over the cursor. Use the ColumnFromPoint property to get the column's caption over the cursor. The ExpandOnDblClick property specifies whether the item is expanded or collapsed if the user dbl clicks the item. The ExpandOnClick property expands the group when its caption is clicked.

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


Send comments on this topic.
© 1999-2008 Exontrol Inc, Software. All rights reserved.