أنس مصطفى قام بنشر أبريل 15, 2015 مشاركة قام بنشر أبريل 15, 2015 (معدل) السلام عليكم ورحمة الله تعالى وبركاته اذا كنت امتلك رابط لصورة مرفوعة على موقع رفع الصور كيف يمكن ان اعرضها داخل نموزج وشكر الله لكم تم تعديل أبريل 15, 2015 بواسطه أنس مصطفى رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 15, 2015 مشاركة قام بنشر أبريل 15, 2015 وعليكم السلام ورحمة الله تعالى وبركاته انا استقطعت هذا النموذج (وطبعا عدلت عليه) من احد برامجي القديمة البرنامج عبارة عن متصفح انترنت 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 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر أبريل 15, 2015 مشاركة قام بنشر أبريل 15, 2015 بسم الله ماشاء الله نتعلم منك استاذنا جعفر ايه الافكار الجامدة جدا دي مرفق وطريقة رائعة جدا بارك الله فيك رابط هذا التعليق شارك More sharing options...
أنس مصطفى قام بنشر أبريل 15, 2015 الكاتب مشاركة قام بنشر أبريل 15, 2015 بارك الله فيكم اخوانى جارى فهم الكود وان وقفت حاجة قدامى هاجى اصدعلك دماغك هههههههههه شكرا لك اخى الكريم رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 15, 2015 مشاركة قام بنشر أبريل 15, 2015 طيب ممكن ننسى المرفق السابق الرابط التالي فيه نفس المثال ، ولكن بإضافات اخرى (ليس على طلب البرنامج ، ولكن .. ) http://www.officena.net/ib/index.php?showtopic=60630&p=390062 جعفر رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر أبريل 15, 2015 مشاركة قام بنشر أبريل 15, 2015 (معدل) اخى جعفر لا حرمنا الله منك وزادك الله من علمه وفضله ان شاء الله ولا تنسانا من دعائك اخوك انس ولكن بحساب مختلف تم تعديل أبريل 15, 2015 بواسطه مارد رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 15, 2015 مشاركة قام بنشر أبريل 15, 2015 اخى جعفر لا حرمنا الله منك وزادك الله من علمه وفضله ان شاء الله ولا تنسانا من دعائك اخوك انس ولكن بحساب مختلف حيا الله أنس ربي يوفقك ومن احببت ، دنيا وآخره إن شاء الله جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان