要让您的程序支持从其他程序 (如：资源管理器或浏览器)中拖过来的信息，首先要找到拖过来数据的Format 和组织情况，以下的代码可以让您迈出第一步：设置 FORM 的 OLEDropMode 为自动：Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)For i = 1 To 255 ' 如果在该范围内没有，可以扩大范围！If Data.GetFormat(i) ThenDebug.Print Data.GetData(i) '数据内容Debug.Print I 'Format 编号End IfNextEnd Sub然后拖几个东东到 FORM 中去。可以发现， 超连接的有关信息 Format 为 1，而文件的 Format 为 15。。。

评论