مرحبًا في المعهد العربي للبرمجة


المعهد العربي للبرمجة

المعهد العربي للبرمجة
 
الرئيسيةالرئيسية  بحـثبحـث  التسجيلالتسجيل  دخولدخول  
.:عدد مشاهدات المعهد العربي للبرمجة:.
Flag Counter
من تاريخ 2016.9.11

مطلوب مشرفين للعمل بالمنتدى للانظمام ضع طلبك بالقسم المناسب شاكرين لكم حسن تعاونكم
مرحبا بك يا زائر نتمنى لك كل التوفيق

المواضيع الأكثر نشاطاً
اكواد Html متحركة
اكواد جاهزه / كلاسات / فنكشن / تعبير قياسية
طلب برجمة لمكتبة هاكات
اريد الانضمام الى فريق المنتدى
تعلم سي شارب من الصفر حتى الإحتراف
برنامج ساعة رائع ومتطور
سؤال : كيفية عمل برنامج نشر تلقائي في الجروبات (فيسبوك)
اكواد php جاهزة
كيفية رفع الملفات باستعمال PHP
لعبة صيد للأندرويد
أفضل 10 أعضاء في هذا الأسبوع
المواضيع الأكثر شعبية
تحميل برنامج Microsoft Small Basic برابط مباشر و سريع
اكواد php جاهزة
كتاب احتراف Microsoft Office Access بسرعة
اكواد جاهزه / كلاسات / فنكشن / تعبير قياسية
تعلم vb.net من الصفر الى الاحتراف
الآن على المعهد العربي : شاركنا بأحلى مساهمات واحصل على أحلى الهدايا
تعلم سي شارب من الصفر حتى الإحتراف
اكواد Html متحركة
سورس كود متصفح متطور vb.net
اريد الانضمام الى فريق المنتدى
المتواجدون الآن ؟
ككل هناك 3 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 3 زائر

لا أحد

أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 47 بتاريخ الأربعاء أكتوبر 05, 2016 5:06 pm

شاطر | 
 

 WebBrowser في VB.NET

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Basil Abdallah
مؤسس المنتدى
مؤسس المنتدى
avatar

أخضر
ذكر عدد المساهمات : 884
السٌّمعَة : 1007
تاريخ التسجيل : 15/02/2013

مُساهمةموضوع: WebBrowser في VB.NET   الثلاثاء سبتمبر 27, 2016 7:57 pm


اولاً : التعريف :

WebBrowser هي اداة تعمل عمل اي متصفح و بالاخص مثل المتصفح الشهير Internet Explorer
فهي تساعدك في تصفح المواقع من ناحية و التحكم في اكوادها HTML وكل ما يرتبط بها من ادخال و استخراج بيانات من ناحية اخرى.
واليكم هذا بالتفصيل >>


ثانياً : اهم الخصائص:

Name : اسم الاداة و الاسم الافتراضي هو 1 WebBrowser .

AllowNavigation : السماح للتصفح داخل الاداة وبها اختيارين :-
-True : السماح بالتصفح وهو الافتراضي .
-False : عدم السماح بالتصفح .

Dock : مكان الاداة و الازاحة الخاصه بها اي بمعنى مكان وجود الاداة في البرنامج دائما ثابته في الاعلى ام الاسفل ام اليسار ام اليمين ام الوسط ام حره (None).

Location : مكان الخاص بالاداة داخل البرنامج تبعا لخطوط الطول و العرض الموجوده داخل البرنامج
وهذه الخاصية لا تعمل الا اذا كانت الاداة حره في الخاصية Dock وبها حقلين :-
-X : المكان بالنسبه لخطوط العرض .
-Y : المكان بالنسبه لخطوط الطول .
-Locked : عدم تحريك الاداة ابدا من مكانها و بداخلها اختيارين :-
--True : تفعيل عدم تحريك الاداة ابدا .
--False : السماح بتحريك الاداة من مكانها .

Margin : الابتعاد عن الحواف وبها 4 حقول :-
-All : مقاس الابتعاد عن الحواف من جميع الجهات .
-Left : مقاس الابتعاد عن الحواف من جهة اليسار .
-Top : مقاس الابتعاد عن الحواف من الاعلى .
-Right : مقاس الابتعاد عن الحواف من جهة اليمين .
-Bottom : مقاس الابتعاد عن الحواف من الاسفل .

MaximumSize : الحد الاقصى لحجم الاداة وبها حقلين :-
-Width : مقاس العرض .
-Height : مقاس الطول .

MinimumSize : الحد الادنى لحجم الاداة و بها حقلين :-
-Width : مقاس العرض .
-Height : مقاس الطول .

ScrollBarsEnabled : خاصة بتفعيل شريط التمرير و بها حلقين :-
-True : السماح بتفعيل الشريط التمرير .
-False : عدم السماح بتفعيل الشريط التمرير .

Size : الحجم الحالي للاداة وبها اختيارين :-
-Width : مقاس العرض .
-Height : مقاس الطول.

TabStop : ايقاف استخدام زر Tab للتنقل داخل الاداة وبها اختيارين :-
-True : ايقاف تفعيل استخدام زر Tab .
-False : تفعيل استخدام زر Tab .

Url : رابط الموقع و لكن يجب اضافة //:http في بداية الرابط .

Visible : حالة الاداة من ناحية الظهور وبها اختيارين :--
-True : ظهور الاداة امام المستخدم .
-False : عدم ظهور الاداة اما المستخدم .


ثالثاً : اهم الاحداث(التصريحات) :

CanGoBackChanged : هذا الحدث خاص بحالة قدرة الاداة لتنفيذ امر الرجوع للصفحة السابقة ام لا ويمكن ايضا ان نستخدمها في تفعيل زر الرجوع او ايقافه .

CanGoForwardChanged : هذا الحدث خاص بحالة قدرة الاداة لتنفيذ امر الانتقال للامام (اي الصفحة التالية التي تم زيارتها من قبل) ام لا ويمكن ايضا ان نستخدمها في تفعيل زر الانتقال للامام او ايقافه .

DocumentCompleted : هذا الحدث خاص بما يحدث عندما تقوم الاداة باتمام فتح صفحة ما (اي تنفيذ اوامر عند الانتهاء من تحميل اي صفحة) .

DocumentTitleChanged : هذا الحدث خاص بما يحدث عندما يتغير عنوان الصفحة .
ملاحظة : عنوان الصفحة لمن لا يعرفه هو النص الذي يظهر في اعلى اي متصفح باسم الموقع ويكون موجود هذا النص داخل اكواد HTML الخاصة بالموقع داخل عنصر title على سبيل المثال : هنا العنوان .<br /><br />Navigating : هذا الحدث خاص بما يحدث اثناء قيام الاداة بتحميل صفحة ما .<br /><br />ProgressChanged : هذا الحدث خاص بمعرفة قيمة التغير(التحميل) الحادث اثناء تحميل اي صفحة .<br /><br />StatusTextChanged : هذا الحدث خاص بمعرفة النص الخاص بحالة التصفح مثل تحميل صفحة ما او الانتهاء من تحميلها او عند الوقوف على رابط يظهر الرابط .<br /><br /><br /><u>رابعاً : اهم الاكواد (هناك مثال مرفق به تطبيق شامل لكل هذه الخصائص و الاحداث و الاكواد)</u><br /><br />اولاً : اكواد التصفح :-<br /><br />فتح صفحة موقع<br /></strong></span><span style="font-size: 14px; line-height: normal">[/b]</span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">WebBrowser1.Navigate("رابط الصفحة كامل")</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />فتح صفحة فارغة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">WebBrowser1.Navigate("about:blank")</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />الرجوع للصفحة السابقة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">WebBrowser1.GoBack()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />الانتقال للصفحة التالية<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">WebBrowser1.GoForward()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />اعادة تحميل الصفحة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">WebBrowser1.Refresh()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />ايقاف تحميل الصفحة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">WebBrowser1.Stop()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br /><br /><br />ثانياً : اكواد النوافذ الملحقة بالاداة :-<br /><br />حفظ الصفحة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.ShowSaveAsDialog()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />معاينة الصفحة قبل الطباعة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.ShowPrintPreviewDialog()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />طباعة الصفحة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.ShowPrintDialog()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />خصائص الصفحة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.ShowPropertiesDialog()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />تنسيق الصفحة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.ShowPageSetupDialog()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />رسالة تنبيه<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.Window.Alert("نص الرسالة")</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />فتح نافذة جديدة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Dim url As String = WebBrowser1.Document.Url.ToString<br />Dim frm As New Form1<br />frm.Show()<br />frm.WebBrowser1.Navigate(url)</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br /><br />رقم اصدار الاداة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">MsgBox(WebBrowser1.Version.ToString)</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br /><br /><u>خامساً : التعاملات النصية :-</u><br />قص النص المحدد<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.ExecCommand("cut", True, DBNull.Value)</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />نسخ النص المحدد<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.ExecCommand("copy", True, DBNull.Value)</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />لصق النص في المكان المُفعل<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.ExecCommand("paste", True, DBNull.Value)</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />البحث داخل نصوص الاداة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Dim data As DataObject = Clipboard.GetDataObject 'الاحتفاظ بما تم نسخة <br />Form1.WebBrowser1.Document.ExecCommand("Copy", False, Nothing)<br />Form1.WebBrowser1.Focus()<br />SendKeys.SendWait("^f")<br />Clipboard.SetDataObject(data) 'ارجاع ما تم نسخة قبل عملية البحث</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br /><br /><u>سادساً : التعامل مع محتوى الصفحة :-</u><br /><br />اولاً : التعاملات العامة :-<br /><br />استخراج نص الصفحة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form2.Text = "WebBrowser Get TEXT"<br />Form2.RichTextBox1.Text = WebBrowser1.Document.Body.InnerText<br />Form2.Show()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />استخراج اكواد الصفحة<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form2.Text = "WebBrowser Get HTML"<br />Form2.RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml        <br />Form2.Show()</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />تحويل الصفحة الى نص<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.Body.InnerText = RichTextBox1.Text</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />تحويل الصفحة الى اكواد او نص<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.Body.InnerHtml = RichTextBox1.Text</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />ثانياً : التعاملات الخاصة بعناصر الصفحة :-<br /><br /><br />اولاً : GetElementById <br /><br />الاستخراج<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">MsgBox(Form1.WebBrowser1.Document.GetElementById(رقم الاي دي).GetAttribute(اسم المطلوب محتواه))</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />الارسال<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.GetElementById(رقم الاي دي).SetAttribute(اسم المرسل اليه,النص المرسل)</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />الضغط <br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.GetElementById(رقم الاي دي).InvokeMember("click")</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br /><br /><br />ثانياً : GetElementsByTagName<br /><br />الاستخراج<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">If (Form1.WebBrowser1.Document IsNot Nothing) Then<br />           Dim Elems As HtmlElementCollection<br />           Dim WebOC As Windows.Forms.WebBrowser = Form1.WebBrowser1<br /><br />           Elems = WebOC.Document.GetElementsByTagName(Tag اسم)<br /><br />           For Each elem As HtmlElement In Elems<br />               Dim NameStr As String = elem.GetAttribute(اسم عنصر الاثبات)<br />               If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then<br />                   If NameStr.ToLower().Equals(محتوى عنصر الاثبات) Then<br />                       Dim ContentStr As String = elem.GetAttribute(اسم القيمة المطلوبة)<br />                       MessageBox.Show(ContentStr)<br />                   End If<br />               End If<br />           Next<br />       End If</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />الارسال<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">If (Form1.WebBrowser1.Document IsNot Nothing) Then<br />           Dim Elems As HtmlElementCollection<br />           Dim WebOC As Windows.Forms.WebBrowser = Form1.WebBrowser1<br /><br />           Elems = WebOC.Document.GetElementsByTagName(Tag اسم)<br /><br />           For Each elem As HtmlElement In Elems<br />               Dim NameStr As String = elem.GetAttribute(اسم عنصر الاثبات)<br />               If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then<br />                   If NameStr.ToLower().Equals(محتوى عنصر الاثبات) Then<br />                       elem.SetAttribute(اسم المرسل اليه, النص المرسل)<br />                   End If<br />               End If<br />           Next<br />       End If</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />الضغط<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">If (Form1.WebBrowser1.Document IsNot Nothing) Then<br />           Dim Elems As HtmlElementCollection<br />           Dim WebOC As Windows.Forms.WebBrowser = Form1.WebBrowser1<br /><br />           Elems = WebOC.Document.GetElementsByTagName(Tag اسم)<br /><br />           For Each elem As HtmlElement In Elems<br />               Dim NameStr As String = elem.GetAttribute(اسم عنصر الاثبات)<br />               If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then<br />                   If NameStr.ToLower().Equals(محتوى عنصر الاثبات) Then<br />                       elem.InvokeMember("click")<br /><br />                   End If<br />               End If<br />           Next<br />       End If</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />ثالثا : All<br /><br />الاستخراج<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">MsgBox(Form1.WebBrowser1.Document.All().Item(CInt(الرقم التسلسلي للعنصر او الاي دي)).InnerHtml)</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />الارسال<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.All().Item(CInt(الرقم التسلسلي للعنصر او الاي دي)).InnerHtml = "النص"</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />الضغط<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Form1.WebBrowser1.Document.All().Item(CInt(الرقم التسلسلي للعنصر او الاي دي)).InvokeMember("click")</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br /><br /><u>سابعاً : تطبيقات على الاحداث (التصريحات)</u><br /><br />CanGoBackChanged<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">If WebBrowser1.CanGoBack Then 'ان كانت الاداة قادرة على الرجوع للخلف<br />           Button1.Enabled = True ' تفعيل زر الرجوع للخلف<br />       Else 'وان كانت غير قادرة<br />           Button1.Enabled = False 'عدم تفعيل زر الرجوع للخلف<br />       End If</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />CanGoForwardChanged<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">If WebBrowser1.CanGoForward Then 'ان كانت الاداة قادرة على الانتقال الى الصفحة التالية<br />           Button2.Enabled = True ' تفعيل زر الانتقال<br />       Else 'وان كانت غير قادرة<br />           Button2.Enabled = False 'عدم تفعيل زر الانتقال<br />       End If</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />DocumentCompleted<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">TextBox1.Text = WebBrowser1.Url.ToString 'اظهار رابط الصفحة<br /><br />       Button3.Enabled = True 'تفعيل زر اعادة التحميل<br />       Button4.Enabled = False 'الغاء تفعيل زر ايقاف تحميل الصفحة</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />DocumentTitleChanged<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">title.Text = "TiTle : " & WebBrowser1.DocumentTitle ' عنوان الصفحة</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />Navigating<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">Button3.Enabled = False 'الغاء تفعيل زر اعادة تحميل الصفحة<br />Button4.Enabled = True 'تفعيل زر ايقاف تحميل الصفحة</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br />ProgressChanged<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">ToolStripProgressBar1.Maximum = e.MaximumProgress ' تساوي اعلى قيمة انتهاء تحميل الصفحة ToolStripProgressBar1 جعل اعلى قيمة لاداة  <br />ToolStripProgressBar1.Value = e.CurrentProgress ' تساوي قيمة التحميل الحالية ToolStripProgressBar1 جعل القيمة الحالية لاداة</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong> <br />StatusTextChanged<br /></strong></strong></span><br /><br /><br /><div align="right"><span style="font-size: 14px; line-height: normal"><strong>كود :</strong><br /></span><dl class="codebox"><dt><span class="genmed"><b>الكود:</b></dt><dd class="code"><div class="cont_code">ToolStripLabel1.Text = WebBrowser1.StatusText ' يساوي نص الحالة الخاصة بالاداة  ToolStripLabel1 جعل نص</div></dd></dl></div><span style="font-size: 14px; line-height: normal"><strong><strong><br /><br /><br />تم بحمد الله<br />المثال موجود بالمرفقات به تطبيق لكل هذه الاكواد<br /><br />وان كان هناك اي تعقيب او مناقشة انا متواجد ان شاء الله</strong></strong></span><strong><br /><font color="#333333"><font face="Droid Arabic Naskh, Lucida Grande, Tahoma, Trebuchet MS, Verdana, Arial, sans-serif"><span style="font-size: 14px; line-height: normal"><strong>منقووول</strong></span></font></font><br /></strong></div><div class="clear"></div><div class="signature_div"><br /><center>_________________</center><br /><div align="center"><strong><span style="font-size: 24px; line-height: normal"><font color="#ff0000">مرحبا بك يا </font></span><span style="font-size: 24px; line-height: normal"><font color="#330099">زائر  <img src="https://imgfast.net/users/1617/26/89/58/smiles/3528284923.gif" alt="" longdesc="32" /> </font></span></strong></div><div align="center"><span style="font-size: 24px; line-height: normal"><strong><img src="https://imgfast.net/users/1617/26/89/58/smiles/1894645344.gif" alt="3456" longdesc="3" /> <br /></strong></span></div><div align="center"><span style="font-size: 24px; line-height: normal"><strong><img src="https://imgfast.net/users/1617/26/89/58/smiles/3993931644.gif" alt="930848" longdesc="27" /> </strong><br /></span></div></div></div><span class="gensmall"></span></td></tr></table></td></tr><tr class="post--209" style=""><td class="row1 browse-arrows" align="center" valign="middle" width="150"><a href="#top"><img src="https://illiweb.com/fa/fdf3/up11.png" alt="الرجوع الى أعلى الصفحة" /></a> <a href="#bottom"><img src="https://illiweb.com/fa/fdf3/down11.png" alt="اذهب الى الأسفل" /></a></td><td class="row1 messaging gensmall" width="100%" height="28"><table border="0" cellspacing="0" cellpadding="0"><tr><td valign="middle"> </td></tr></table></td></tr><tr align="right"><td class="catBottom" colspan="2" height="28"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="9%" class="noprint"> </td><td align="center" class="t-title"><a name="bottomtitle"></a><div class="cattitle">WebBrowser في VB.NET</div></td><td align="right" nowrap="nowrap" width="9%" class="browse-arrows"><a href="/t38p-topic"><img src="https://illiweb.com/fa/fdf3/left10.png" alt="استعرض الموضوع السابق" /></a> <a href="/t38n-topic"><img src="https://illiweb.com/fa/fdf3/right10.png" alt="استعرض الموضوع التالي" /></a> <a href="#top"><img src="https://illiweb.com/fa/fdf3/up11.png" alt="الرجوع الى أعلى الصفحة" /></a> </td></tr></table></td></tr></table><table class="forumline noprint" width="100%" border="0" cellspacing="0" cellpadding="0" style="margin: 0 0 1px 0; border-top: 0px;"><tr><td class="row2" valign="top" colspan="2" width="150"><span class="gensmall">صفحة <strong>1</strong> من اصل <strong>1</strong></span></td></tr></table><table class="forumline noprint" width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td class="row2" colspan="2" align="center" style="padding:0px"><a name="quickreply"></a><br /></td></tr><tr><td style="margin:0; padding: 0;" colspan="2"><table border="0" cellpadding="0" width="100%" cellspacing="0" id="info_open" style="display:''"><tbody><tr><td class="row2" valign="top" width="25%"><span class="gensmall"><strong>صلاحيات هذا المنتدى:</strong></span></td><td class="row1" valign="top" width="75%"><span class="gensmall"><strong>لاتستطيع</strong> الرد على المواضيع في هذا المنتدى<br /></span></td></tr><tr><td class="catBottom" colspan="2" height="28"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td valign="middle" width="100%"><span class="nav"><a class="nav" href="/">المعهد العربي للبرمجة</a><a class="nav" href=""></a> :: <a href="/c3-category" class="nav"><span>VB.NET</span></a> :: <a href="/f2-montada" class="nav"><span>VB.NET</span></a></span></td><td align="right" valign="middle"><span class="gensmall"><a href="javascript:ShowHideLayer('info_open','info_close');"><img src="https://illiweb.com/fa/fdf3/moins10.png" alt="-" align="middle" border="0" /></a></span></td></tr></table></td></tr></tbody></table></td></tr><tr><td style="margin:0; padding: 0;" colspan="2"><table border="0" cellpadding="0" cellspacing="0" width="100%" id="info_close" style="display:none;"><tbody><tr><td class="catBottom" colspan="2" height="28"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td valign="middle" width="100%"><span class="nav"><a class="nav" href="/">المعهد العربي للبرمجة</a><a class="nav" href=""></a> :: <a href="/c3-category" class="nav"><span>VB.NET</span></a> :: <a href="/f2-montada" class="nav"><span>VB.NET</span></a></span></td><td align="right" valign="middle"><span class="gensmall"><a href="javascript:ShowHideLayer('info_open','info_close');"><img src="https://illiweb.com/fa/fdf3/plus10.png" alt="+" align="middle" border="0" /></a></span></td></tr></table></td></tr></tbody></table></td></tr></table><form action="/viewforum" method="get" name="jumpbox" onsubmit="if(document.jumpbox.f.value == -1){return false;}"><table class="noprint" width="100%" border="0" cellspacing="2" cellpadding="0" align="center"><tr><td align="left" valign="middle" nowrap="nowrap" ><span class="nav"></span></td><td align="right" nowrap="nowrap"><span class="gensmall">انتقل الى: <select name="selected_id" onchange="if(this.options[this.selectedIndex].value != -1){ forms['jumpbox'].submit() }"><option value="-1">اختر منتدى</option><option value="-1"></option><option value="-1">|</option><option correctif="01" value="c1">|--اداريات</option><option correctif="01" value="f7">|   |--اخر الاخبار و الاعلانات الاداريه</option><option value="-1">|   </option><option correctif="01" value="c2">|--#C</option><option correctif="01" value="f5">|   |--#C</option><option value="-1">|   </option><option correctif="01" value="c3">|--VB.NET</option><option correctif="01" value="f2">|   |--VB.NET</option><option value="-1">|   </option><option correctif="01" value="c10">|--Small Basic</option><option correctif="01" value="f26">|   |--Small Basic</option><option value="-1">|   </option><option correctif="01" value="c4">|--قواعد بيانات</option><option correctif="01" value="f8">|   |--Microsoft Office Access</option><option correctif="01" value="f9">|   |--Microsoft SQL Server</option><option value="-1">|   </option><option correctif="01" value="c8">|--المنتدى العام</option><option correctif="01" value="f1">|   |--اليوتيوب و مقاطع الفيديو</option><option correctif="01" value="f3">|   |--الألعاب الكاتبية</option><option correctif="01" value="f6">|   |--اخبار العالم و الجرائد</option><option correctif="01" value="f4">|   |--القسم الاسري</option><option correctif="01" value="f16">|   |--قسم التكنلوجيا و الملتيميديا</option><option correctif="01" value="f17">|   |--القسم الاسلامي العام</option><option correctif="01" value="f19">|   |--الترحيب و التهانى و الإهداءات</option><option correctif="01" value="f20">|   |--القسم الادبي العام</option><option correctif="01" value="f21">|   |--ثقافات الدول العربية و حضاراتها</option><option value="-1">|   </option><option correctif="01" value="c13">|--مواقع ويب</option><option correctif="01" value="f44">|   |--Html</option><option correctif="01" value="f45">|   |--php</option><option value="-1">|   </option><option correctif="01" value="c12">|--المكتبات</option><option correctif="01" value="f37">|   |--مكتبة الخلفيات</option><option correctif="01" value="f38">|   |--مكتبة التاثيرات الصوتية</option><option correctif="01" value="f39">|   |--مكتبة الازرار</option><option correctif="01" value="f40">|   |--مكتبة الثيمات</option><option correctif="01" value="f41">|   |--مكتبة الايقونات</option><option correctif="01" value="f42">|   |--مكتبة الصور الاخرى</option><option correctif="01" value="f43">|   |--مكتبة الخطوط</option><option value="-1">|   </option><option correctif="01" value="c7">|--اخرى</option><option correctif="01" value="f15">|   |--شروحات اخرى</option><option correctif="01" value="f47">|   |--مواضيع اخرى</option><option value="-1">|   </option><option correctif="01" value="c14">|--الدعم</option><option correctif="01" value="f50">|   |--دعم منتديات احلى منتدى</option><option correctif="01" value="f53">|   |--دعم منتيات الـVB</option><option correctif="01" value="f54">|   |--ما يهم المبرمج</option><option correctif="01" value="f29">|       |--برامج المعهد العربي</option><option correctif="01" value="f22">|       |--مكتبة السورسات</option><option correctif="01" value="f23">|       |--طلبات البرمجة</option><option correctif="01" value="f49">|       |--فحص البرامج</option><option value="-1">|   </option><option correctif="01" value="c5">|--المكتب الاداري</option><option correctif="01" value="f10">    |--الاقتراحات</option><option correctif="01" value="f11">    |--الشكاوي</option><option correctif="01" value="f12">    |--طلبات تغيير الاسماء</option><option correctif="01" value="f13">    |--طلبات الانضمام للفريق</option></select><input type="hidden" name="tid" value="9e5b9c5f5fef86d7e9800998ecf8427e" /> <input class="liteoption" type="submit" value="انتقل الى" /></span></td></tr></table></form><script src="//s7.addthis.com/js/300/addthis_widget.js#pubid=forumotion" type="text/javascript"></script><table class="forumline afaf5" width="100%" border="0" cellspacing="1" cellpadding="0"><tr><td style="background:#f0f0f0;padding:inherit 0"><table width="100%" cellspacing="1" cellpadding="1" border="0" style="background:#f0f0f0"><tr><td><div align="center"> <div style="text-align:center; display:inline-block; margin:0 auto;"> <table border="0" cellspacing="0" cellpadding="0" style="padding:0; margin:0; border:none;"> <tbody> <tr> <td valign="top" style="padding:32px 32px;"><mediaclic zone-id="29476" width="300" height="250"></mediaclic><script async src="https://pub3.media-clic.com/www/delivery/asyncjs.js"></script></td> <td valign="top" style="padding:32px 32px;"><mediaclic zone-id="29476" width="300" height="250"></mediaclic><script async src="https://pub3.media-clic.com/www/delivery/asyncjs.js"></script></td> </tr> </tbody> </table> </div></div></td></tr></table></td></tr></table><div style="height:3px"></div></td><td valign="top" width="0"><div id="emptyidright"></div></td></tr></tbody></table></div></div><!-- close div id="page-body" --><div id="page-footer"><div align="center"><div class="gen"><span class="gensmall">©</span> <a href="https://www.ahlamontada.com/phpbb" target="_blank">phpBB</a> | <strong><a href="http://www.ahlamontada.com/" target="_blank">Ahlamontada.com</a></strong> | <a name="bottom" href="http://help.ahlamontada.com/" target="_blank">منتدى مجاني للدعم و المساعدة</a> | <a name="bottom" href="/contact" rel="nofollow">إتصل بنا</a> | <a href="/abuse?page=%2Ft38-topic&report=1" rel="nofollow">التبليغ عن محتوى مخالف</a> | <strong><a href="http://www.ahlablog.com" target="_blank">انشئ مدونتك الخاصة مجانيا</a></strong></div></div></div></td></tr></table></div></div></div><form action="/" method="get" style="clear:right"><table cellpadding="6" cellspacing="0" border="0" width="100%" class="page" align="center"><tr><td class="tfoot"><select name="styleid" onchange="switch_id(this, 'style')"><optgroup label="اختيار التصميم السريع"><option value="1" class="" >-- الاستايل الافتراضي</option></optgroup></select></td><td class="tfoot" align="left" width="100%"><div class="smallfont"><strong><a href="sendmessage.php" rel="nofollow" accesskey="9">اتصل بنا</a> -<a href="http://www.elnooronline.com">المعهد العربي للبرمجة</a> -<a href="archive/index.php">الأرشيف</a> -<a href="#top" onclick="self.scrollTo(0, 0); return false;">الأعلى</a></strong></div></td></tr></table><br /><div align="center"><div class="smallfont" align="center"><!-- Do not remove this copyright notice -->Powered by vBulletin™ Version 3.8.7 <br />Copyright © 2016 vBulletin Solutions, Inc. All rights reserved. <a href="http://www.bdr130.net/vb/"> <img border="0" src="./images/diamond.png" width="45" height="8" alt="منتديات"></a><!-- Do not remove this copyright notice --></div><div class="smallfont" align="center"><!-- Do not remove cronimage or your scheduled tasks will cease to function --><img src="http://www.elnooronline.com/vbskaka/forum/cron.php?rand=1481347278" alt="" width="1" height="1" border="0" /><!-- Do not remove cronimage or your scheduled tasks will cease to function --></div></div><span class="clr" style="height:14px"><!-- --></span> </div></div><div id="foot_"><div class="cntr"><div class="left-logo-"><a href="/" class="hdr-logo" title="الصفحة الرئيسيه"></a> <ul class="social-butt"><li><a href="https://www.youtube.com/channel/UCX6EKd2-tzVRQsSlsdvCePA" title="تابعنا علي يوتيوب"></a></li> <li class="ic02"><a href="#" title="تابعنا علي انستقرام"></a></li><li class="ic03"><a href="#" title="تابعنا علي تويتر"></a></li><li><a href="https://www.facebook.com/groups/627733707386167/?ref=bookmarks" title="تابعنا علي فيس بوك"></a></li></ul></div><div class="fot-cont"><div class="fmenu_"><ul><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li></ul><ul><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li></ul><ul><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li></ul></div><div class="fmenu_"><ul><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li></ul><ul><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li></ul><ul><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li><li><a href="#">رابط نصي</a></li></ul></div></div><span class="clr"><!-- --></span></div></div><div id="footbar"><div class="cntr"><span class="coprt">جميع الحقوق محفوظة</span><a href="http://elnooronline.com/" class="des-coprt" title="تصميم النور اون لاين لخدمات الويب المتكاملة" target="_blank"><span>تصميم النور اونلاين لخدمات الويب المتكاملة</span></a><span class="clr"><!-- --></span></div></div><a href="#" class="scrollup"></a><script type="text/javascript">//<![CDATA[ fa_endpage();//]]></script><script type="text/javascript"> var vglnk = { api_url: '//api.viglink.com/api', key: '74bad24252620514d1244cfba01f2ee2' }; (function(d, t) { var s = d.createElement(t); s.type = 'text/javascript'; s.async = true; s.src = ('https:' == document.location.protocol ? vglnk.api_url : '//cdn.viglink.com/api') + '/vglnk.js'; var r = d.getElementsByTagName(t)[0]; r.parentNode.insertBefore(s, r); }(document, 'script')); </script><script type="text/javascript"> document.write('<scr' + 'ipt data-cfasync="false" type="text/javascript" src="http://www.geniusdisplay.com/a/display.php?r=1615687"></scr' + 'ipt>'); </script></body></html>