التعامل مع أداة مستعرض الويب Webbrowser control
صفحة 1 من اصل 1 • شاطر
التعامل مع أداة مستعرض الويب Webbrowser control
بسم الله الرحمن الرحيم
مرحبا بكم الاخوة الاعزاء فى درس جديد من دورس منتدى مصر التقنى لاحتراف البرمجة بالفجوال بيسك 6 ...فى هذا الموضوع أن شاء الله تعالى سنتعرف سويا على أداهم مهمة جدا لفتح و أستعرض صفحات الويب و هى أداة Webbrowser control ...و درسنا أن شاء الله تعالى سيتركز على النقاط التالية :
- كيفية أستدعاء الاداة وحل مشكلة عدم ظهورها فى بعض الحالات .
- فتح مواقع الانترنت بأستخدام الاداة .
- كيفية أنشاء وظائف متصفح عادية
- كيفية أنشاء وظائف متصفح متقدمة .
- كيفية إلغاء زر الفارة الايمن .
- إنشاء قائمة خاصة بك .
- أستخدام شريط التقدم ProgressBar مع الاداة
- حفظ صفحة ويب .
- فتح صفحة ويب محفوظة سابقا.
- فتح نافذة منبثقة مع التطبيق الخاص بك .
- كتابة أكواد html داخل الاداة و تنفيذها .
أولا : كيفية أستدعاء الاداة الى مشروعك .
يتم أستدعاء الاداة كما تعودنا عن طريق كليك يمين على شريط الادوات القياسى ...ثم نختار الامر components فتظهر لنا نافذة المكونات و منها اختر أدوات مستعرض الإنترنت Microsoft Internet Controls
كما فى الشكل التالى :
فتظهر الاداة على شريط الادوات القياسى كما فى الشكل التالى :
قم بسحب الاداة الى مشروعك ....لكن قد تظهر رسالة خطأ عند أضافة الاداة الى المشروع كما فى الشكل التالى :
وطبعا هذه المشكلة تظهر للاخوة الذين يستخدمون متصفح أنترنت أكسبلورر 8 فما فوق ...أما حل هذه المشكلة بسيط للغاية و يتم ذلك بتحميل الملف التالى من هنــــــــــا بعد فك الضغط ستجد به ملف يسمى Egy-Tech IE Fix قم بالضغط علية ... سوف تظهر رسالة تخبرك بأنك تقوم بالتعديل فى ملفات الريجستير ...أضغط أوكية وستجد المشكلة تم حلها بأذن الله تعالى .
ثانيا : فتح موقع ويب ..
لفتح موقع ويب من خلال برنامج نستخدم الكود التالى :
- الكود:
Private Sub Form_Load()
WebBrowser1.Navigate "=http://www.google.com.eg]"
End Sub
و أيضا ممكن أن ننشىء مربع نصع نضع فية عنوان الويب وعند الضغط على زر "ـصفح "مثلا يتم فتح عنوان الويب الموجود فى مربع النص كما فى الكود التالى :
- الكود:
Dim h
h = Text1.Text
WebBrowser1.Navigate h
و النتيجة كما فى الصورة ...
ثالثا : أنشاء وظائف وظائف متصفح عادية .
ونقصد بها أنشاء أزرار مصتفح عادى ..مثل زر "أذهب","أعادة تحميل","الرجوع للخلف",الرجوع للامام","أيقاف"...الخ
و اليكم الكود اللازم لعمل ذلك ...
- الكود:
Private Sub Command1_Click(Index As Integer)
On Error Resume Next
Select Case Index
Case 0 زر الرجوع للخلف
WebBrowser1.GoBack
Case 1 زر التقدم للأمام
WebBrowser1.GoForward
Case 2 زر الايقاف
WebBrowser1.Stop
Case 3 عملية تحديث الصفحة
WebBrowser1.Refresh
Case 4 زر الصفحة الرئسية
WebBrowser1.GoHome
Case 5 زر البحث
WebBrowser1.GoSearch
End Select
End Sub
ثالثا : أنشاء الوظائف المتقدمة للمتصفح
ونقد بها أضافة زر الطباعة لصفحة الويب أو أستعراض الطباعة أو تنسيق صفحة الويب للطباعة ....الخ
- الكود:
Private Sub Command1_Click()
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT أمر أظهار نافذة الطباعة
End Sub
Private Sub Command2_Click()
WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT أمر معاينة صحفة الويب
End Sub
Private Sub Command3_Click()
WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT أمر أظهار نافذة تنسيق صفحة الطباعة
End Sub
Private Sub Command4_Click()
WebBrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT أمر أظهار خصائص الصفحة
End Sub
_ ولتنسيق حجم الخط فى الاداة نستخدم الكود التالى :
- الكود:
Private Sub Command1_Click() 'للخط الصغير للغاية
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(0), vbNull
End Sub
Private Sub Command2_Click() للخط الصغير
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(1), vbNull
End Sub
Private Sub Command3_Click() للخط الوسط
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(2), vbNull
End Sub
Private Sub Command4_Click() للخط الكبير
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(3), vbNull
End Sub
Private Sub Command5_Click() للخط الكبير جدا
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(4), vbNull
End Sub
- تفعيل زر الرجوع للخلف و للامام وذلك فى حالة الوصول الى أول صفحة ويب أو الى أخر صفحة ...
- الكود:
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
Select Case Command
Case 1 'Forward
Command2.Enabled = Enable
Case 2 'Back
Command1.Enabled = Enable
End Select
End Sub
و الى اللقاء فى تكملة الدرس غدا أن شاء الله تعالى .....والسلام عليكم
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
رد: التعامل مع أداة مستعرض الويب Webbrowser control
رابعا : إزالة القائمة شمال
قد يرغب البعض فى أزالة القائمة التى تظهر عن الضغط كليك شمال فى أداة مستعرض الويب ...و لفعل ذلك عليك أولا تحميل هذا الملف ....بعد فك الضغط ستجد ملف يسمى WBCustomizer.dll ...ضع الملف فى مجلد المشروع ثم بعد ذلك أذهب الى "Project" ثم أختر الامر ""Refrences" وذلك على النحو التالى :
بعد ذلك سيظر لك المربع الحوارى التالى :
من خلال هذا المربع أضغط على زر "Browser" ثم أختر الملف WBCustomizer.dll ثم "OK كما فى الشكل السابق ...
نأتى لمرحلة كتابة الكود ....
- بداية سنكتب الكود التالى فى التصريحات :
- الكود:
Dim b As WBCustomizer
_ أما فى حدث تحميل الفورم نكتب الكود التالى :
- الكود:
Set b = New WBCustomizer
b.EnableContextMenus = False
b.EnableAllAccelerators = True
Set b.WebBrowser = WebBrowser1
و بهذا نكون قد أزلنا القائمة شمال فى المتصفح ....جرب كدة
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
رد: التعامل مع أداة مستعرض الويب Webbrowser control
بارك الله فى طرحك أخى الكريم ............
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: التعامل مع أداة مستعرض الويب Webbrowser control
بارك الله فيكم جميعا لكن اين باقى التكملة
م/موسي- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة :
الجنس :
كيف يمكن استخدام اداة WebBrowser4 داخل الاكسز بدون حفظ الروابط المستخدمة على الجهاز
اخي الفاضل هل يمكن استخدام اداة WebBrowser4 داخل الاكسز بدون حفظ الروابط المستخدمة على الجهاز
حيث أنه يتم حفظ جميع الراوبط المستخدمة مع هذه الاداة الممتازة
حيث أنه يتم حفظ جميع الراوبط المستخدمة مع هذه الاداة الممتازة
mohamedati10- زائر
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 12:41 am من طرف marketing118
» شركة تنظيف ستائر بالرياض
الأحد مارس 17, 2024 10:46 pm من طرف moslema_r
» خيام ملكيه من الداخل
الأحد مارس 17, 2024 8:13 pm من طرف marketing118
» شركة نقل عفش بالطائف
الأحد مارس 17, 2024 6:34 pm من طرف marketing118
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد