افتراضي تعلم برمجة متصفح أنترنت بسيط بالفيجوال بيسك دوت نت

Mr Msae3

أقدم لكم درس لشرح كيفية عمل متصفح ويب بسيط






نبدأ على بركة الله
نفتح الفيجوال كالعادة
نقوم بأنشاء مشروع جديد كما في الصورة



نغير خصائص الفورم






نقوم بادراج الأدوات كما في الصورة وهي



ToolStrip عدد 2
WebBrowser عدد 1
StatusStrip1 عدد 1






الأن ضمن كل أداة نقوم بادراج مجموعة أدوات كما في الصورة









ToolStrip العليا
ندرج على الترتيب
ToolStripButton عدد 5
ToolStripSeparator عدد 1
ToolStripButton عدد 1
ToolStripSplitButton عدد 2
ToolStripLabel عدد 1



ToolStrip الثانية
ToolStripLabel
ToolStrip************Box
ToolStripButton
ToolStripLabel
ToolStrip************Box
ToolStripButton



StatusStrip1 شريط الحالة السفلي

ToolStripStatusLabel
ToolStripSplitButton
ToolStripProgressBar





الأن لنعدل خصائص الأدوات في شريط الحالة العلوي
من الخاصية image عدل الصور في أول خمس أزرار من الشريط العلوي
لتكون الخلف أمام تحديث أيقاف الرئيسية
ثم الزر السادس ليكون حفظ

الأن زر السابع والثامن عبارة عن قوائم قم بتغير الخاصية display style إلى ************
وغير الخاصية ************ td السابعةإلى تحرير
والثامنة إلى خيارت الطباعة
ثم أضغط عليه تظهر لك قائمة



قم بملئه حتى تصبح كالتالي



وكذلك الأمر بالنسبة للقائمة الثانية



أما بالنسبة ToolStrip2 الثانية

نغير خاصية ************ إلى العنوان في الأولى
ولا نغير شيء بالثانية
والثالثة نضع أيقونة بحب
والرابعة نغير الخاصية ************ إلى بحث في غوغل
والخامسة لا نغير شيء
والسادسة نضع أيقونة بحث


أما بالنسبة لشريط الحالة
فقط نغير الثانية حيث نغير الأيقونة
ونقوم بعمل قوائم متفرعة للمواقع كما في الصورة


وبذلك نكون أنتهينا من التصميم




نبدأ في الأكواد
ننقر نقرتين في أي نقطة من الفورم فيظحر حدث تحميل الفورم
نضع الكود التالي
كود:

Me.ToolStrip************Box1.AutoCompleteMode = AutoCompleteMode.Suggest
Me.ToolStrip************Box1.AutoCompleteSource = AutoCompleteSource.AllUrl
WebBrowser1.Navigate("www.google.com")

في السطر الأول الوثاني لاظهار كل المواقع المفتوحة سابقا في التكست بوكس
في السطر الثالث لجعل الصفحةا لرئيسية للمتصفح هي غوغل

في زر ألخلف نضع الكود التالي
كود:

WebBrowser1.GoBack()

في زر الأمام نضع الكود التالي
كود:

WebBrowser1.GoForward()

في زر التوقف نضع الكود التالي
كود:

WebBrowser1.Stop()

في زر التحديث الكود التالي
كود:

WebBrowser1.*********************()

في زر الرئيسية نضع الكود التالي
كود:

WebBrowser1.Navigate("http://www.google.com")

في زر الحفظ
كود:

WebBrowser1.ShowSaveAsDialog()[/

في زر البحث بالغوغل ضع الكود التالي
كود:

WebBrowser1.Navigate("http://www.google.co.uk/search?hl=ar&q=" & ToolStrip************Box2.************)

والأن عمل هذا الكود هو أن المستخدم عندما يضع كلمة في بحث غوغل ويضغط أنتر تظهر نتائج البحث
يعني نفس الكود السابق ولكن يتم تنفيذه عند الضغط على أنتر
كود:

Private Sub srchbox_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles srchbox.KeyDown
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate("http://www.google.co.uk/search?hl=ar&q=" & ToolStrip************Box2.************)
End If
End Sub

نفس الأمر ولكن لمربع الرابط
كود:

Private Sub ToolStrip************Box1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ToolStrip************Box1.KeyDown
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate(ToolStrip************Box1.*** *********)
End If
End Sub

الكود التالي لتشغيل عداد المعالجة عند فتح الصفحات
كود:

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEven tArgs) Handles WebBrowser1.ProgressChanged
Try
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
Catch ex As Exception
End Try
End Sub

الكود التالي لتغير الرابط في مربع النص عند دخولك صفحة أخرى
والسطر الأخير لأظهار أسم المتصفح +أسم الصفحة في الخانة العلوية
كود:

Private Sub WebBrowser1_********Completed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowser********CompletedEv entArgs) Handles WebBrowser1.********Completed
'to update the address box whenever a page is access.
If e.Url.IsAbsoluteUri Then
ToolStrip************Box1.************ = e.Url.AbsoluteUri
Else
ToolStrip************Box1.************ = e.Url.ToString()
End If
Me.************ = " Eyad Browser - " & WebBrowser1.********Title
End Sub

نأتي إلى القوائم
القائمة الأولى نسخ لصق قص
نضع الأكواد التاية على الترتيب

نسخ
كود:

WebBrowser1.********.ExecCommand("copy", True, DBNull.Value)

قص
كود:

WebBrowser1.********.ExecCommand("cut", True, DBNull.Value)

لصق
كود:

WebBrowser1.********.ExecCommand("paste", True, DBNull.Value)

القائمة الثانية إعداد الصفحة -معاينة للطباعة -طباعة -خصائص الصفحة
نضع الأكواد التالية

إعداد الصفحة
كود:

WebBrowser1.ShowPageSetupDialog()

معاينة للطباعة
كود:

WebBrowser1.ShowPrintPreviewDialog()

طباعة
كود:

WebBrowser1.Print()

خصائص الصفحة
كود:

WebBrowser1.ShowPropertiesDialog()

وبذلك نكون قد أتنهينا وبقي لنا دليل المواقع الصغير وهو القائمة التي بالأسفل
أنقر عليها وقم بأضافة أقسام رئيسية ومن ثم لكل قسم رئيسي أقسام فرعية




ثم نصغط على كل فرع رئيسي ونكتب الكود التالي

كود:

WebBrowser1.Navigate("رابط الموقع")
Me.************ = " Eyad Browser - " & "أسم الموقع"
ToolStrip************Box1.************ = "رابط الموقع"