VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 发现拖(Drap)过来的信息
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8319, 日期:2002-01-07
发现拖(Drap)过来的信息

要让您的程序支持从其他程序 (如:资源管理器或浏览器)中拖过来的信息,首先要找到拖过来数据的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) Then
Debug.Print Data.GetData(i) 注释:数据内容
Debug.Print I 注释:Format 编号
End If
Next
End Sub

然后拖几个东东到 FORM 中去。
可以发现, 超连接的有关信息 Format 为 1,
而文件的 Format 为 15。。。