//我想用程序提取网页中的文本和图片，大家给点建议或代码////

Question

要求，直接拖动文本（不高亮选择行吗？）图片到一个窗体，自动保存到一个数据库中，数据库中要有标题，大小，出处等字段。

Answer 1

行吗？？ 没有具体的URL也想知道

Answer 2

直接可以得到拖动的图片信息
设置 List1 的 OLEDropMode 为自动：
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ThisFile As Variant
    
    For Each ThisFile In Data.Files
        
        Picture1.Picture = LoadPicture(ThisFile)
        List1.AddItem ThisFile
    Next
End Sub