Codejock Developer Community : Set Effect value in TreeView's OLEDragDrop

Set Effect value in TreeView's OLEDragDrop : I modify your code as below:--...

Mon, 27 Jun 2011 03:51:40 +0000

Author: mjohn
Subject: 18533
Posted: 27 June 2011 at 3:51am

I modify your code as below:

-------------------------------------------------------------------------------------------------------

Option Explicit

Private Sub Form_Load()

tvwExplorer.OLEDragMode = xtpOLEDragAutomatic

tvwExplorer.OLEDropMode = xtpOLEDropManual

tvwExplorer.Nodes.Add , , "node1", "node1"

tvwExplorer.Nodes.Add , , "node2", "node2"

tvwExplorer.Nodes.Add , , "node3", "node3"

tvwExplorer.Nodes.Add , , "node4", "node4"

End Sub

Private Sub tvwExplorer_OLEStartDrag(Data As XtremeSuiteControls.DataObject, AllowedEffects As Long)

Dim oDragNode As TreeViewNode

If Not Me.tvwExplorer.SelectedItem Is Nothing Then

' check if valid ...

AllowedEffects = vbDropEffectMove

Else

AllowedEffects = vbDropEffectNone

End If

End Sub

Private Sub tvwExplorer_OLEDragDrop(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)

' do what u need

' nothing about Effect

If MsgBox("Select yes to set Effect = vbDropEffectMove, Select no to set Effect = vbDropEffectCopy ", vbYesNo, "Yes") = vbYes Then

Effect = vbDropEffectMove

Else

Effect = vbDropEffectCopy

End If

End Sub

Private Sub tvwExplorer_OLECompleteDrag(Effect As Long)

MsgBox "result:" & IIf(Effect = vbDropEffectMove, "vbDropEffectMove", "vbDropEffectCopy"), vbOKOnly

End Sub

--------------------------------------------------------------------------------------------------------

Above code, in tvwExplorer_OLEDragDrop event, whether set Effect = vbDropEffectMove or set Effect = vbDropEffectCopy

in tvwExplorer_OLECompleteDrag event, Effect always is vbDropEffectMove ,

this is not right, it should be the same as the value in tvwExplorer_OLEDragDrop .

Thanks!

Set Effect value in TreeView's OLEDragDrop : I use code like this one. It's...

Thu, 23 Jun 2011 10:59:06 +0000

Author: Albert1
Subject: 18533
Posted: 23 June 2011 at 10:59am

I use code like this one. It's working ok for me.

Private Sub Form_Load()
    tvwExplorer.OLEDragMode = xtpOLEDragAutomatic
    tvwExplorer.OLEDropMode = xtpOLEDropManual
End Sub
Private Sub tvwExplorer_OLEStartDrag(Data As XtremeSuiteControls.DataObject, AllowedEffects As Long)
Dim oDragNode As TreeViewNode
    If Not Me.tvwExplorer.SelectedItem Is Nothing Then
 ' check if valid ...
        AllowedEffects = vbDropEffectMove
    Else
        AllowedEffects = vbDropEffectNone
    End If
End Sub

Private Sub tvwExplorer_OLEDragOver(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single, ByVal state As Integer)
    ' do what u need
    If Not okDrop Or state = vbLeave Then
        Set tvwExplorer.DropHighlight = Nothing
        Effect = vbDropEffectNone
    Else
        Set tvwExplorer.DropHighlight = tvwExplorer.HitTest(x, Y)
    End If
End Sub
 
Private Sub tvwExplorer_OLEDragDrop(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    ' do what u need
    ' nothing about Effect
End Sub
 
Private Sub tvwExplorer_OLECompleteDrag(Effect As Long)
    Effect = vbDropEffectNone
End Sub

Set Effect value in TreeView's OLEDragDrop : Hi.InTreeView's TreeView's...

Fri, 10 Jun 2011 12:44:52 +0000

Author: mjohn
Subject: 18533
Posted: 10 June 2011 at 12:44pm

Hi.

In TreeView's TreeView's OLEDragDrop event

whether set Effect = vbDropEffectMove or Effect = vbDropEffectMove,

in the Source's OLECompleteDrag event

Effect will get the same value, the set value to Effect in TreeView's OLEDragDrop event is invalid.

Thanks!

V15.0.1

VB6 SP6

Win7