التعامل مع أداة مستعرض الويب Webbrowser control

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

التعامل مع أداة مستعرض الويب Webbrowser control

مُساهمة من طرف المبرمج الطموح في الإثنين يناير 23, 2012 3:03 pm

بسم الله الرحمن الرحيم



مرحبا بكم الاخوة الاعزاء فى درس جديد من دورس منتدى مصر التقنى لاحتراف البرمجة بالفجوال بيسك 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
المساهمات : 117
النقاط : 213
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: التعامل مع أداة مستعرض الويب Webbrowser control

مُساهمة من طرف المبرمج الطموح في الثلاثاء يناير 24, 2012 2:47 pm

رابعا : إزالة القائمة شمال



قد يرغب البعض فى أزالة القائمة التى تظهر عن الضغط كليك شمال فى أداة مستعرض الويب ...و لفعل ذلك عليك أولا تحميل هذا الملف ....بعد فك الضغط ستجد ملف يسمى 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
المساهمات : 117
النقاط : 213
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: التعامل مع أداة مستعرض الويب Webbrowser control

مُساهمة من طرف أحمد مناع في الخميس يناير 26, 2012 1:49 pm

بارك الله فى طرحك أخى الكريم ............

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى