أولاً أضف أداة المتصفحWeb Browser Control من Microsoft Internet Controls إلى ToolBox
ضع الأداة في Form جديد وأعطها اسماً (br)
أضف أداة Label وأعطها اسماً (lblstatus)
أضف الأداة Timer وأعطها اسماً (tmrstatus) وغير خاصية Interval إلى 100
أضف أداة TextBox في Form وأعطها اسماً (txturl)
أضف أداة Button واكتب عليها "عرض الصفحة" واعطها اسماً (btngo)
أضف أداة Button واكتب عليها للخلف" واعطها اسماً (btnbk)
أضف أداة Button واكتب عليها "للأمام" واعطها اسماً (btnfw)
أضف أداة Button واكتب عليها "إيقاف" واعطها اسماً (btnstp)
أضف أداة Button واكتب عليها "صفحة البداية" واعطها اسماً (btnhome)
أضف أداة Button واكتب عليها "صفحة البحث" واعطها اسماً (btnsearch)
أضف أداة Button واكتب عليها "إعادة التحميل" واعطها اسماً (btnrefresh)
افتح الكود الخاص بالميقاتي Timer tmrstatus واكتب
if br.offline then lblstatus.label="غير متصل" else lblstatus.label="متصل"
افتح الكود الخاص بالزر (btnbk) واكتب في حدث الضغط Click Event
if br.busy then br.stop
br.goback
افتح الكود الخاص بالزر (btnfw) واكتب في حدث الضغط Click Event
if br.busy then br.stop
br.goforward
افتح الكود الخاص بالزر (btngo) واكتب في حدث الضغط Click Event
br.locationurl=txturl.text
br.navigate
form1.caption=br.locationname
افتح الكود الخاص بالزر (btnstp) واكتب في حدث الضغط Click Event
if br.busy then br.stop
افتح الكود الخاص بالزر (btnhome) واكتب في حدث الضغط Click Event
if br.busy then br.stop
br.goforward
افتح الكود الخاص بالزر (btnsearch) واكتب في حدث الضغط Click Event
if br.busy then br.stop
br.gosearch
افتح الكود الخاص بالزر (btnsearch) واكتب في حدث الضغط Click Event
br.refresh
الآن يمكنك استخدام هذا البرنامج لتصفح الانترنت بأغلب الوظائف التي ترغب في استخدامها في البرنامج الأصلي Internet Explorer
ويمكنك إضافة ميزات أخرى مثل Progress Bar يحدد حالة تحميل الموقع الحالي وذلك لاستخدام الأحداث Events مثل حدث BeforeNavigate2 وحدث DocumentComplete وحدث DownloadBegin وأيضاً حدث DownloadComplete وذلك من أحداث أداة WebBrowser
هل الأمر بهذه الصعوبة ؟؟ لا أعتقد ذلك خاصة أنه يمكنك بكل سهولة تطويره ووضع العديد من المزايا به بنفس السهولة
>لا و الله ليس كذلك ، 6 شهور من عمل متواصل لأربع ساعات يومياً.
>هذا يعني 720 ساعة عمل متواصل مني أنا وحدي دون ذكر جهود اخي >عادل الذي عمل مثلي
إذاً هل أتهم أحمد بالكذب ؟ كلا وألف كلا
ولكنها عملية خبرة فهو صمم البرنامج في 6 شهور وغيره يمكنه تصميم نفس البرنامج في كامل عام وغيرهما يمكن أن يصممه في شهر واحد ! ولا يمكن تناسى كل المزايا التي فيه
فلو طلبت منه الآن أن يصمم نفس البرنامج لاستغرق الأمر أٌقل من ذلك بكثير لأنه اكتسب الخبرة في مواجهة المشكلات وتعلم الأمور الجديدة خلال هذه الأشهر الستة ولنفس السبب نجد العديد من البرامج المجانية المتاحة فمن صممها يريد أن يكتسب خبرة لا أن يصمم برنامجاً أو يتكسب منه !
|