DataObject in BeforeDragOver has no format

[John Shell]

I have a VBA form which has a listbox. When dragging a file, folder or
computer from Explorer to the list box, in the BeforeDragOver event
handler, calling GetFormat on the DataObject always returns false.
What am I doing wrong? My code follows. It is just trying to determine
what format values different DataObjects supoort.

Thanks in advance for any help.

-John

Private Sub lstMachines_BeforeDragOver(ByVal Cancel As
MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As
Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState,
ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Dim bRes As Boolean
Dim i As Long
For i = -32767 To 32767
bRes = Data.GetFormat(i)
If (bRes) Then
MsgBox "Format " & i
End If
Next i
End Sub

 

[Peter T]

The MSForms.DataObject only supports text, according to "What is the
difference between the DataObject and the Clipboard" in help.

Regards,
Peter T

 

[John Shell]

Thanks, Peter.

-John