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

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني





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




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

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




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


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





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



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





ToolStrip  الثانية
ToolStripLabel
ToolStripTextBox
ToolStripButton
ToolStripLabel
ToolStripTextBox
ToolStripButton





StatusStrip1 شريط الحالة  السفلي
ToolStripStatusLabel
ToolStripSplitButton
ToolStripProgressBa

r


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



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







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





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

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



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





achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: شباط 04, 2009, 10:01:06 صباحاً
نبدأ في الأكواد
ننقر نقرتين في أي نقطة من الفورم فيظحر حدث تحميل  الفورم
نضع الكود التالي

 كود:
شفرة: [اختيار]
Me.ToolStripTextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
Me.ToolStripTextBox1.AutoCompleteSource = AutoCompleteSource.AllUrl
WebBrowser1.Navigate("www.google.com")

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


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

 كود:
شفرة: [اختيار]
WebBrowser1.GoBack()في  زر الأمام نضع الكود التالي

 كود:
شفرة: [اختيار]
WebBrowser1.GoForward()في  زر التوقف نضع الكود التالي

 كود:
شفرة: [اختيار]
WebBrowser1.Stop()في  زر التحديث الكود التالي

 كود:
شفرة: [اختيار]
WebBrowser1.*******()في  زر الرئيسية نضع الكود التالي

 كود:
شفرة: [اختيار]
WebBrowser1.Navigate(ToolStripTextBox1.Text)في  زر الحفظ

 كود:
شفرة: [اختيار]
WebBrowser1.ShowSaveAsDialog()في  زر البحث بالغوغل ضع الكود التالي

 كود:
شفرة: [اختيار]
WebBrowser1.Navigate("http://www.google.co.uk/search?hl=ar&q=" & ToolStripTextBox2.Text)
والأن  عمل هذا الكود هو أن المستخدم عندما يضع كلمة في بحث غوغل ويضغط أنتر تظهر نتائج  البحث
يعني نفس الكود السابق ولكن يتم تنفيذه عند الضغط على أنتر

 كود:
شفرة: [اختيار]
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=" & ToolStripTextBox2.Text)
 
End If
End Sub

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


 كود:
شفرة: [اختيار]
Private Sub ToolStripTextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ToolStripTextBox1.KeyDown
كود:
 
شفرة: [اختيار]
If e.KeyCode = Keys.Enter Then
 
 WebBrowser1.Navigate(ToolStripTextBox1.Text)
 
End If
End Sub
للذهاب إلى الرابط الموضوع في التكست


 كود:
شفرة: [اختيار]
WebBrowser1.Navigate(ToolStripTextBox1.Text)الكود  التالي لتشغيل عداد المعالجة عند فتح الصفحات

 كود:
شفرة: [اختيار]
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
كود:
 
شفرة: [اختيار]
Try
 
 ToolStripProgressBar1.Maximum = e.MaximumProgress
 
 ToolStripProgressBar1.Value = e.CurrentProgress
Catch ex As Exception
End Try
End Sub
الكود التالي لتغير الرابط في مربع النص عند دخولك صفحة  أخرى

والسطر الأخير لأظهار أسم المتصفح +أسم الصفحة في الخانة  العلوية


 كود:
شفرة: [اختيار]
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
كود:
 
'
شفرة: [اختيار]
to update the address box whenever a page is access.  
 
If e.Url.IsAbsoluteUri Then
 
 ToolStripTextBox1.Text = e.Url.AbsoluteUri
Else
 ToolStripTextBox1.Text = e.Url.ToString()
End If
Me.Text = " Eyad Browser - " & WebBrowser1.DocumentTitle
End Sub
نأتي إلى القوائم

القائمة الأولى نسخ لصق  قص

نضع الأكواد التاية على الترتيب

نسخ

 كود:
 
شفرة: [اختيار]
WebBrowser1.Document.ExecCommand("copy", True, DBNull.Value)
لصق

 كود:
شفرة: [اختيار]
WebBrowser1.Document.ExecCommand("paste", True, DBNull.Value)قص

 كود:
شفرة: [اختيار]
WebBrowser1.Document.ExecCommand("cut", True, DBNull.Value)
القائمة  الثانية إعداد الصفحة -معاينة للطباعة -طباعة -خصائص الصفحة
نضع الأكواد  التالية

إعداد الصفحة

 كود:
شفرة: [اختيار]
WebBrowser1.ShowPageSetupDialog()معاينة  للطباعة

 كود:
شفرة: [اختيار]
 WebBrowser1.ShowPrintPreviewDialog()طباعة

 كود:
 
شفرة: [اختيار]
WebBrowser1.Print()خصائص  الصفحة

 كود:
شفرة: [اختيار]
[code]WebBrowser1.ShowPropertiesDialog()[/code]وبذلك  نكون قد أتنهينا وبقي لنا دليل المواقع الصغير وهو القائمة التي بالأسفل
أنقر  عليها وقم بأضافة أقسام رئيسية ومن ثم لكل قسم رئيسي أقسام فرعية





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

 كود:
شفرة: [اختيار]
WebBrowser1.Navigate("رابط الموقع") كود:
 
شفرة: [اختيار]
code]Me.Text = " Eyad Browser - " & "أسم الموقع"
 اضف اسمك هنا فقط.....
شفرة: [اختيار]
ToolStripTextBox1.Text = "رابط الموقع"وهكذا حتى ننتهي من كل  المواقع


Ssoft

  • Hero Member
  • *****
    • مشاركة: 1410
    • مشاهدة الملف الشخصي
    • http://sabeur-academy.com
    • البريد الالكتروني
رد #2 في: شباط 04, 2009, 12:05:04 مسائاً
thank'ssssssssss


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: شباط 04, 2009, 12:22:20 مسائاً
شكرا لمرورك الطيب


bhd

  • Newbie
  • *
    • مشاركة: 17
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #4 في: شباط 04, 2009, 05:27:16 مسائاً
مبدع
وفقك الله


bhd

  • Newbie
  • *
    • مشاركة: 17
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #5 في: شباط 04, 2009, 05:30:33 مسائاً

طلب للعضو الغالي
من فضلك لو تقوم بشرح كيفية انشاء
tolpar


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #6 في: شباط 04, 2009, 06:57:36 مسائاً
شكرا لمرورك اخي العزيز


khaled-b22

  • Newbie
  • *
    • مشاركة: 12
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #7 في: آذار 17, 2009, 03:20:50 مسائاً
شكرا


khaled-b22

  • Newbie
  • *
    • مشاركة: 12
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #8 في: آذار 17, 2009, 03:21:22 مسائاً
شكرا


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #9 في: آذار 17, 2009, 05:09:40 مسائاً
شكرا لمرورك اخي العزيز