从网页上拖url到程序中是怎么实现的.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 25 行

建 立 一 个 工 程 ， 将 Form的 OLEDragMode设 置 为 1。 然 后 输 入 以 下 代 码 ： 
    Option Explicit 
    Const SWP_NOSIZE = &H1 
    Const SWP_NOMOVE = &H2 
    Const HWND_TOPMOST = -1 
    Const SWP_SHOWWINDOW = &H40 
     
    Private Declare Function SetWindowPos Lib _ 
     "user32" (ByVal hwnd As Long, _ 
     ByVal hWndInsertAfter As Long, ByVal X As Long, _ 
     ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _ 
     ByVal wFlags As Long) As Long 
     
    ' 使 用 SetWindowPos将 窗 口 设 置 为 总 在 最 前 面 ： 
    Private Sub Form_Load() 
     SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _ 
     SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW 
    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.GetData(vbCFText) 
    End Sub 
<END>