Drag and drop files from a listbox fails

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Drag and drop from listbox doesn't work, worse when I try to drop to windows explorer or to the desktop it causes explorer to crash. Checking de Data object after Data.SetData "c:\test.txt", vbCFFiles it seems that no files were added (Data Is Nothing). Code I use below. Did I miss something?

Private Sub lstFiles_OLEStartDrag(Data As XtremeSuiteControls.DataObject, AllowedEffects As Long)
    AllowedEffects = vbDropEffectCopy
    Data.SetData "c:\test.txt", vbCFFiles
    'OR: Data.SetData Array("c:\test.txt", "c:\test2.txt"), vbCFFiles
End Sub

VB6 SP6, Xtreme SuitePro ActiveX 2011 (15.2.1), Win7

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
ceesverburg Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 27 March 2011 Location: Vietnam Status: Offline Points: 13	Post Options Post Reply Quote ceesverburg Report Post Thanks(0) Quote Reply Topic: Drag and drop files from a listbox fails Posted: 02 April 2012 at 9:12am
	Drag and drop from listbox doesn't work, worse when I try to drop to windows explorer or to the desktop it causes explorer to crash. Checking de Data object after Data.SetData "c:\test.txt", vbCFFiles it seems that no files were added (Data Is Nothing). Code I use below. Did I miss something? Private Sub lstFiles_OLEStartDrag(Data As XtremeSuiteControls.DataObject, AllowedEffects As Long) AllowedEffects = vbDropEffectCopy Data.SetData "c:\test.txt", vbCFFiles 'OR: Data.SetData Array("c:\test.txt", "c:\test2.txt"), vbCFFiles End Sub VB6 SP6, Xtreme SuitePro ActiveX 2011 (15.2.1), Win7