我试了以下代码 当拖动一个URL到悬浮窗体内出现 "指定格式与数据格式不匹配"
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox Data.Files(1)End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox Data.Files(1)End Sub
把它设成最顶层,
把它设成透明的不就解决了!