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

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

اذهب الى الأسفل

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

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

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



مرحبا بكم الاخوة الاعزاء فى درس جديد من دورس منتدى مصر التقنى لاحتراف البرمجة بالفجوال بيسك 6 ...فى هذا الموضوع أن شاء الله تعالى سنتعرف سويا على أداهم مهمة جدا لفتح و أستعرض صفحات الويب و هى أداة Webbrowser control ...و درسنا أن شاء الله تعالى سيتركز على النقاط التالية :




  • كيفية أستدعاء الاداة وحل مشكلة عدم ظهورها فى بعض الحالات .
  • فتح مواقع الانترنت بأستخدام الاداة .
  • كيفية أنشاء وظائف متصفح عادية
  • كيفية أنشاء وظائف متصفح متقدمة .
  • كيفية إلغاء زر الفارة الايمن .
  • إنشاء قائمة خاصة بك .
  • أستخدام شريط التقدم ProgressBar مع الاداة
  • حفظ صفحة ويب .
  • فتح صفحة ويب محفوظة سابقا.
  • فتح نافذة منبثقة مع التطبيق الخاص بك .
  • كتابة أكواد html داخل الاداة و تنفيذها .


أولا : كيفية أستدعاء الاداة الى مشروعك .



يتم أستدعاء الاداة كما تعودنا عن طريق كليك يمين على شريط الادوات القياسى ...ثم نختار الامر components فتظهر لنا نافذة المكونات و منها اختر أدوات مستعرض الإنترنت Microsoft Internet Controls
كما فى الشكل التالى :



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




فتظهر الاداة على شريط الادوات القياسى كما فى الشكل التالى :



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




قم بسحب الاداة الى مشروعك ....لكن قد تظهر رسالة خطأ عند أضافة الاداة الى المشروع كما فى الشكل التالى :



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




وطبعا هذه المشكلة تظهر للاخوة الذين يستخدمون متصفح أنترنت أكسبلورر 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



و النتيجة كما فى الصورة ...



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


ثالثا : أنشاء وظائف وظائف متصفح عادية .



ونقصد بها أنشاء أزرار مصتفح عادى ..مثل زر "أذهب","أعادة تحميل","الرجوع للخلف",الرجوع للامام","أيقاف"...الخ



و اليكم الكود اللازم لعمل ذلك ...



الكود:
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 Empty رد: التعامل مع أداة مستعرض الويب Webbrowser control

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

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



قد يرغب البعض فى أزالة القائمة التى تظهر عن الضغط كليك شمال فى أداة مستعرض الويب ...و لفعل ذلك عليك أولا تحميل هذا الملف ....بعد فك الضغط ستجد ملف يسمى WBCustomizer.dll ...ضع الملف فى مجلد المشروع ثم بعد ذلك أذهب الى "Project" ثم أختر الامر ""Refrences" وذلك على النحو التالى :



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



بعد ذلك سيظر لك المربع الحوارى التالى :



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

من خلال هذا المربع أضغط على زر "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 Empty رد: التعامل مع أداة مستعرض الويب Webbrowser control

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

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

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

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

https://egy-tech.forumegypt.net

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

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

مُساهمة من طرف م/موسي الإثنين أكتوبر 29, 2018 8:35 am

بارك الله فيكم جميعا لكن اين باقى التكملة 
م/موسي
م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة : تونس
الجنس : ذكر

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

التعامل مع أداة مستعرض الويب Webbrowser control Empty كيف يمكن استخدام اداة WebBrowser4 داخل الاكسز بدون حفظ الروابط المستخدمة على الجهاز

مُساهمة من طرف mohamedati10 الثلاثاء فبراير 05, 2019 5:41 pm

اخي الفاضل هل يمكن استخدام اداة WebBrowser4 داخل الاكسز بدون حفظ الروابط المستخدمة على الجهاز
حيث أنه يتم حفظ جميع الراوبط المستخدمة مع هذه الاداة الممتازة
Anonymous
mohamedati10
زائر


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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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