OLEDragDrop问题
添加如下代码，在将文件拖到文本框上方放开，显示文件完整的文件名。
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
For i = 1 To Data.Files.Count
Text1.Text = Text1.Text & Data.Files(i) & vbCrLf
Next
End Sub
如果是网页上的图片的话没有问题，但如果拖动的是一个链接的话就会提示类型错误，请问有什么办法解决么？
问题点数：10、回复次数：1Top
1 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-05-04 10:50:29 得分 10
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
If Data.GetFormat(vbCFText) Then
Text1.Text = Data.GetData(vbCFText)
Else
For i = 1 To Data.Files.Count
Text1.Text = Text1.Text & Data.Files(i) & vbCrLf
Next
End If
End SubTop
