SftTabs.OLEGiveFeedback Event
Source object can provide visual feedback during OLE drag & drop.
Syntax
| | VB | Private Sub object_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean) |
object
A SftTabs object.
Effect
A Long variable set by the target component identifying the action that has been performed (if any), thus allowing the source to take appropriate action if the component was moved (such as the source deleting the data).
| Effect | Value | Description |
|---|
| vbDropEffectNone | 0 | Drop target cannot accept the data. |
| vbDropEffectCopy | 1 | Drop results in a copy of data from the source to the target. The original data is unaltered by the drag operation. |
| vbDropEffectMove | 2 | Drop results in data being moved from the drag source to the drop source. The drag source should remove the data from itself after the move. |
DefaultCursors
Determines whether the default mouse cursor provided by the component is used or a user-defined mouse cursor is used.
| DefaultCursors | Description |
|---|
| True | The default mouse cursor is used. |
| False | The mouse cursor defined using the MousePointer property (of the Screen object) is used instead. |
Comments
The OLEGiveFeedback event occurs when source object can provide visual feedback during OLE drag & drop.
The OLEGiveFeedback event occurs after every OLEDragOver event. OLEGiveFeedback allows the source component to provide visual feedback to the user, such as changing the mouse cursor to indicate what will happen if the user drops the object, or provide visual feedback on the selection (in the source component) to indicate what will happen.
If there is no code in the OLEGiveFeedback event, or if the DefaultCursors parameter is set to True, the default cursor provided by the component is used as the mouse cursor.
The source control should always mask values from the Effect parameter to insure compatibility with future implementations of OLE drag & drop. Presently, only three bits in the Effect parameter are used. In future versions other bits may be used. As a precaution against future problems, drag sources and drop targets should mask these values appropriately before performing any comparisons.
For example, a source component should not compare an Effect against, for example, vbDropEffectCopy, such as:
If Effect = vbDropEffectCopy...
Instead, the source component should mask the value or values being sought, as here:
If (Effect And vbDropEffectCopy) = vbDropEffectCopy...
-or-
If (Effect And vbDropEffectCopy)...
This allows for the definition of new drop effects in future versions while preserving compatibility with existing code.
See Also SftTabs Object | Object Hierarchy
On
Off