اصنع متصفح انترنت ....للمبتدئين

اصنع متصفح انترنت بنفسك للمبتدئين........

السلام عليكم ورحمة الله وبركاته.

أخواني الاعزاء هذا موضوع لتعليم انشاء متصفح انترنت للمبتدئين.....

أولا :- افتح مشروع جديد ثم قم بالضغط على Ctrl + T ) ) لاضافة بعض الادوات التي نحتاجها

1- Microsoft Common Dialog Control 6.0

2- Microsoft Internet Controls

ثانيا :- اضافة الادوات ..

أضف الادوات التالية الى الفورم

1- سبعة ازرار تحكم Command Button

وغير خواصها حسب التالي

Name Caption

Command1 Back

Command2 Forward

Command3 Stop

Command4 Refresh

Command5 Home Page

Command6 Open

Command7 Go

2- اداة Combo Box

2- اداة WebBrowser واداة CommonDialog (اللتين أضفناهما)..

رتب هذه الادوات كما يحلو لك

ثالثا :- كتابة الاكواد

1- اضغط على زر Back وأكتب فيه الكود التالي

On Error Resume Next
WebBrowser1.GoBack

2- زر Forward

On Error Resume Next
WebBrowser1.GoForward

3- زر Stop

On Error Resume Next
WebBrowser1.Stop

4- زر Refresh

On Error Resume Next
WebBrowser1.Refresh

5- زر open

CommonDialog1.Filter = "HTML Files|*.htm|Text Files|*.txt|GIF Files|*.gif|JPEG Files|*.jpg|All Files|*.*|"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Combo1.Text = Combo1.Text
Else
Combo1.Text = CommonDialog1.FileName
Command6_Click
End If

6- زر Go

Combo1.AddItem Combo1.Text
 WebBrowser1.Navigate Combo1.Text

7- زر Home Page

On Error Resume Next
 WebBrowser1.GoHome

8- اضف الكود التالي داخل الحدث Load الفورم

On Error Resume Next
 WebBrowser1.GoHome

9- اضف الكود في الحدث NavigateComplete2للاداة WebBrowser1

Combo1.Text = URL

وداخل الحدث TitleChange أيضا أضف الكود التالي :

Me.Caption = WebBrowser1.LocationName & " - " & "Arabteam2000 Browser"

وفي نهاية الدرس أمل ان ينال رضاكم وتكون فيه الفائدة للجميع

منتظر ردوكم الجميلة .......... تحياتي لكم