تعلم كيف تنشيء متصفح بلغة الفيجوال بيزك

من طرف **mab_eg** الأربعاء 16 يونيو 2010, 2:03 pm

الشكل 1

ھذاالبرنامج عبارة عن متصفح إنترنت بسیط . الأدوات المطلوبة:

افتح مشروع قیاسي جديدStandard.exe

ثم ضع مؤقت زمنيtimer1, 6أزرار, مربع نصText1

واضغط علىCtrl+TاخترMicrosoft Common Dialog Control6.0

وMicrosoft Internet Controls

ثم ضع WebBrowser1 ، CommonDialog 1

ولإضافة القوائم نضغط على Ctrl+E فیظھر مربع حوار نكتب العنوان في خانة Caption

والاسم البرمجي للقائمة في الخاصیة Name

وإذا كنا نريد إضافة اختصار (لقائمة فرعیة ) نختار من القائمة المنسدلة ShortCut الاختصار الذي نريده

كما موضح فى الشكل 1,2

وبعد كل هذا يظهر لنا الشكل 3

ثم نبدأ فى كتابة الاكواد لاعداد المتصفح كما يلى

نكتب الكود الآتي في الحدث : Form_Load

Private Sub Form_Load()

On Error Resume Next

Timer2.Interval=5

Timer2.Enabled = True

If Len(Text1)>0 then

WebBrowser1.Navigate Text1

End if

End Sub

ونكتب الكود الآتي في الحدث Timer1_Timer

Private Sub Timer2_Timer()

If WebBrowser1.Busy = False Then Timer2.Enabled = False

If WebBrowser1.Busy = True Then Me.Caption="...Working"

End Sub

ونكتب الكود الآتي للزر "GO"

Private Sub cmdgo_Click()

If Len(Text1.Text) > 0 Then

WebBrowser1.Navigate Text1.Text

Else

WebBrowser1.Stop

MsgBox " رجاء ادخل قيمة صالحة ", vbOKOnly, "Simple Browser"

Text1.SetFocus

End If

End Sub

ونكتب الكود الآتي للزر "Refresh"

Private Sub cmdrefresh_Click()

WebBrowser1.Refresh

End Sub

وللزر Stop"

Private Sub cmdstop_Click()

WebBrowser1.Stop

End Sub

وللز Home"

Private Sub cmdhome_Click()

WebBrowser1.Navigate "[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

Text1.Text = "[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

End Sub

وللزر "Back"

Private Sub cmdback_Click()

On Error Resume Next

WebBrowser1.GoBack

End Sub

وللزر "Forward"

Private Sub cmdforward_Click()

On Error Resume Next

WebBrowser1.GoForward

End Sub

والكود في Text1_Click

Private Sub Text1_Click()

Timer2.Enabled = True

End Sub

والكود في Text1_KeyPress

Private Sub Text1_KeyPress(KeyAscii As Integer)

On Error Resume Next

If KeyAscii = 13 Then cmdgo_Click

End Sub

والكود للأمر New من القائمة

Private Sub mnuwindow_Click()

On Error Resume Next

Static ldocument As Long

Dim brm As Form

ldocument = ldocument + 1

Set brm = New Form1

brm.Show

brm.SetFocus

End Sub

وللزر Open

Private Sub mnuopen_Click()

CommonDialog1.Filter="All Internet Files|*.html;*.htm;*.shtml;*.dhtml;*.js|"

CommonDialog1.ShowOpen

If CommonDialog1.FileName = "" Then Exit Sub

WebBrowser1.Navigate (CommonDialog1.FileName)

End Sub

وللزرSave

Private Sub mnusave_Click()

WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT

End Sub

وللزر Print

Private Sub mnuprint_Click()

WebBrowser1.SetFocus

On Error Resume Next

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT

End Sub

وللزر PrintPreview

Private Sub mnuprintprivew_Click()

WebBrowser1.SetFocus

On Error Resume Next

WebBrowser1.ExecWB olecmdid_printprivew,olecmdexecopt_dodefault

End Sub

وللزر properties

Private Sub mnuproperties_Click()

WebBrowser1.SetFocus

On Error Resume Next

WebBrowser1.ExecWB olecmdid_properties,olecmdexecopt_dodefault

End Sub

وللزر exit

Private Sub mnuexit_Click()

Dim tip As Integer

tip = MsgBox("؟ ھل تريد حقا الخروج ", vbQuestion+vbYesNo, "Simple Browser")

If tip = vbYes Then

End

ElseIf tip = vbNo Then

Cancel = 1

Exit Sub

End If

End Sub

والان عزيزى القارىء قد تعلمن اعداد متصفح بسيط

وأهم الأكواد لعمل هذا المتصفح .

المدرسة التجريبية للغات

تعلم كيف تنشيء متصفح بلغة الفيجوال بيزك

تعلم كيف تنشيء متصفح بلغة الفيجوال بيزك