حفظ مسار صورة من الانترنت .

**kkhalifa1960** · فبراير 26

عندي نموذج به (WebBrowser) ومنه بفتح صفحة بها صور وملفات وغيره ... هل يوجد امكانية إذا حددت صورة منه وبالنقر عليها ينقل مسارها الى (Textbox). وإليكم المرفق . :fff:

GetImageTest.rar

تم تعديل فبراير 26 بواسطه kkhalifa1960

**Foksh** · فبراير 26

أسمح لي بالمشاركة الأولى أستاذ @kkhalifa1960

سيتم ادراج مسارات جميع الصور من الموقع في جدول Table1 عند فتح النموذج بناءً على الكود التالي في الحدث عند التحميل للـ WebBrowser .

Private Sub WebBrowser_Updated(Code As Integer)
    On Error Resume Next
    If Me.ActiveControl.Name = "WebBrowser" Then
        Dim htmlDoc As MSHTML.HTMLDocument
        Set htmlDoc = WebBrowser.Document
        
        Dim imgElements As MSHTML.IHTMLElementCollection
        Set imgElements = htmlDoc.getElementsByTagName("img")
        
        Dim imgElement As MSHTML.IHTMLImgElement
        Dim imagePath As String
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Set db = CurrentDb
        Set rs = db.OpenRecordset("Table1")
        
        For Each imgElement In imgElements
            imagePath = imgElement.src
            
            If Len(imagePath) > 0 Then
                rs.AddNew
                rs("Pic_Path").Value = imagePath
                rs.Update
            End If
        Next imgElement
        
        rs.Close
        Set rs = Nothing
        Set db = Nothing
    End If
    
End Sub

وطبعاً نستطيع جعل الموضوع يتم عند النقر على زر أو أي حدث تريده