عرض الصور المرفوعة على مواقع رفع الصور

[أنس مصطفى]

السلام عليكم ورحمة الله تعالى وبركاته

اذا كنت امتلك رابط لصورة مرفوعة على موقع رفع الصور

كيف يمكن ان اعرضها داخل نموزج

وشكر الله لكم

تم تعديل أبريل 15, 2015 بواسطه أنس مصطفى

[jjafferr]

وعليكم السلام ورحمة الله تعالى وبركاته

 

انا استقطعت هذا النموذج (وطبعا عدلت عليه) من احد برامجي القديمة 

 

البرنامج عبارة عن متصفح انترنت IE Explorer مضمن في النموذج (ويكون حسب الاصدار المنصوب على الكمبيوتر) ،

وكل اللي تعمله هو انك تدخل عنوان الصفحة في خانة العنوان ، ثم تضغط على زر افتح الصفحة:

 

تصفح الصور:

 

 

تصفح الانترنت:

 

 

الكود الذي يقوم بالعمل هو:

Option Compare Database
Private web As WebBrowser

'set Reference to:
'Browse Windows\system32\ieFrame.dll
'Microsoft Internet Controls
'

Private Sub cmdSiteName_Click()


    'specify that the browser is an object in the Form
    Set web = Me.objIE.Object
    'give the initial web page name
'    Me.cboSite = "http://www.officena.net/ib/uploads/profile/photo-142414.jpg?_r=1425109766"
'    Me.cboSite = "http://www.officena.net/ib/index.php?showuser=111758"

'update the status bar
    Call SysCmd(acSysCmdSetStatus, "Opening Page " & Me.cboSite)

    'Open/Navigate the page
    web.Navigate Me.cboSite

    
    While web.Busy  'wait until the site fully loads
        DoEvents
    Wend

    While web.ReadyState <> 4 'wait until the site fully loads
        DoEvents
    Wend


'update the status bar
    Call SysCmd(acSysCmdSetStatus, "Ready")


'waituntilpageonefinishesloading
    While web.Busy
        DoEvents
    Wend
    Do While web.Document.all.length = 0
        DoEvents
    Loop

 
End Sub

Public Sub Form_Load()
On Error GoTo Err_Form_Load

    'specify that the browser is an object in the Form
    Set web = Me.objIE.Object
    
    'give the initial web page name
    Me.cboSite = "about:blank"

    'Open/Navigate the page
    web.Navigate Me.cboSite
    
Exit Sub
Err_Form_Load:
    
    If Err.Number = 2447 Then
        MsgBox "Please Enter a Site Name for starting this Page"
        Exit Sub
    End If
    Resume Next
    
End Sub

Private Sub cmd_close_Click()
On Error GoTo Err_cmd_close_Click


    DoCmd.Close

Exit_cmd_close_Click:
    Exit Sub

Err_cmd_close_Click:
    MsgBox Err.Description
    Resume Exit_cmd_close_Click
    
End Sub

جعفر

49.View_Internet.mdb.zip

[محمد سلامة]

بسم الله ماشاء الله

نتعلم منك استاذنا جعفر ايه الافكار الجامدة جدا دي

مرفق وطريقة رائعة جدا

بارك الله فيك

[أنس مصطفى]

بارك الله فيكم اخوانى

جارى فهم الكود وان وقفت حاجة قدامى هاجى اصدعلك دماغك هههههههههه شكرا لك اخى الكريم

[jjafferr]

طيب ممكن ننسى المرفق السابق 

 

الرابط التالي فيه نفس المثال ، ولكن بإضافات اخرى (ليس على طلب البرنامج ، ولكن ..   )

http://www.officena.net/ib/index.php?showtopic=60630&p=390062

 

جعفر

[Elsayed Bn Gemy]

اخى جعفر لا حرمنا الله منك وزادك الله من علمه وفضله ان شاء الله

ولا تنسانا من دعائك

اخوك انس ولكن بحساب مختلف

تم تعديل أبريل 15, 2015 بواسطه مارد

[jjafferr]

اخى جعفر لا حرمنا الله منك وزادك الله من علمه وفضله ان شاء الله

ولا تنسانا من دعائك

اخوك انس ولكن بحساب مختلف

 

حيا الله أنس 

 

ربي يوفقك ومن احببت ، دنيا وآخره إن شاء الله 

 

 

جعفر