如何实现类似“资料收藏大师”能将网页部分内容(含文字、图片等)拖动保存的功能？

Question

如何实现类似“资料收藏大师”能将网页部分内容(含文字、图片等)拖动保存的功能？

Answer 1

文字很好办，将窗体的oledragmode设为manul：
    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 至于图片嘛，你不如先把帖子结了等着看我这个帖子的结果吧：
http://community.csdn.net/Expert/topic/5039/5039808.xml?temp=.3505976