100分 如何实现，把网页上的图片拖放到我的窗口时，显示其地址。

Question

如何实现，把网页上的图片拖放到我的窗口时，显示其地址。

Answer 1

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, _
                                Button As Integer, Shift As Integer, _
                                X As Single, Y As Single)
   If Data.GetFormat(vbCFFiles) = True Then
      Label3.Caption = "文件："
      For X = 1 To Data.Files.Count
         Label1.Caption = Label3.Caption & vbCrLf & Data.Files(X)
      Next X
   ElseIf Data.GetFormat(vbCFBitmap) = True Then
      Label1.Caption = "位图"
   ElseIf Data.GetFormat(vbCFText) = True Then
      Label1.Caption = "文本"
   Else
      Label1.Caption = "未知"
   End If
End Sub

Answer 2

Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, _
                                Button As Integer, Shift As Integer, _
                                X As Single, Y As Single)
   If Data.GetFormat(vbCFFiles) = True Then
      Label1.Caption = "文件："
      For X = 1 To Data.Files.Count
         Label1.Caption = Label1.Caption & vbCrLf & Data.Files(X)
      Next X
   ElseIf Data.GetFormat(vbCFBitmap) = True Then
      Label1.Caption = "位图"
   ElseIf Data.GetFormat(vbCFText) = True Then
      Label1.Caption = "文本"
   Else
      Label1.Caption = "未知"
   End If
End Sub