بوابة الثانوية العامة المصرية - كيف تصنع متصفح انترنت بالفجيوال بيسك-- والشرح بالصور

اقتباس:

oriparites
form
size=980;740
autosizemode=GrowAndShrink
backcolor=SpringGreen
text=thanwya Web Browser 2012
maxmizbox=false
startposition=CenterScreen
fixedborderstyle=FixedToolWindow

اقتباس:

قم بتغيير خاصية الاسم لكل زر من الازرار التى اضفناها الى الفورم كما يلى

button 1
text= Go

button 2
text=back

button 3
text=forward

button 4
text=*******

اقتباس:

بالنسبة لبرمجة كل زر من الازرار الاربعة ستكون الاتى
اضغط على كل زر على حدة وقم بنسخ الكود الذى يخصة
--------------------
code button 1
WebBrowser1.Navigate(TextBox1.Text)
-------------------------------
code button 2
WebBrowser1.GoBack()
--------------------------------
code button 3
WebBrowser1.GoForward()
-----------------------------------
code button 4
WebBrowser1.*******()

طب اقول اية تانى
لو مش فاهم اى حاجة خالص
انت اعمل الفورم
http://www9.0zz0.com/2012/03/01/17/658282555.png
وركب فيه الادوات المطلوبة من صندوق الادوات
وقم بالضغط اعلى الفورم مرتين وانسخ الكود التالى كاملا
قم بنسخ الكود التالى ما بين
public class form1 وبين End class فى اخر السطر

اقتباس:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoBack()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.GoForward()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.*******()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(3)
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
ProgressBar1.Value = (10)
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
Timer1.Stop()
End If
End Sub
Private Sub Form1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Enter
WebBrowser1.Navigate(TextBox1.Text)
WebBrowser1.GoSearch()
End Sub
Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
WebBrowser1.Navigate("www.google.com")
End Sub
End Class

كما بالصورة الاخيرة الاتية
http://www9.0zz0.com/2012/03/01/18/971288839.png
ويمكنك ايضا واخيرا تحميل مشروعى كاملا بالصور السابقة بالاكواد
بخصائص الفورم والادوات من هذا الرابط التالى
Click Here ادعس هنا
حجم الملف لا يتجاوز ميجا ونصف فقم بتحميلة وتسطيب البرنامج فقد ارفقت ملف سيت اب معة ...
وللموضوع بقية بأذن الله
سنتعلم كيف تضيف اكثر حيوية وقيمة الى هذا المشروع فى الدرس التانى هنا اسفل هذا الموضوع باذن الله
سنتعلم كيف نضع كود خاص للقص
والنسخ
واللصق
والعديد من الازرار الاخرى
قريبا جدا
----------
لا تنسونى بالدعاء لعل منكم من هو مستجاب الدعوة عند الله