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

[kkhalifa1960]

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

GetImageTest.rar

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

[Foksh]

أسمح لي بالمشاركة الأولى أستاذ @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

 

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

 

DDTestWB1.accdb

[kkhalifa1960]

تمام استاذ @Foksh ولكن لي طلب أخر بنفس الموضوع سأفتح به مشاركة جديدة .