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

[tomjerry741]

بسم الله الرحمن الرحيم
اللهم لا سهل الا ما جعلته سعلا وانت تجعل الحزن ان شئت سهلا
اعذرونى يااخوانى
فى هذا الموضوع الذى اقدمه لكم على عجالة ---
الشرح الان بالصور فقط ولكن بعد ساعتين سوف اشرح لكم الخطوات كاملة باذن الله
تابع الصور كما هى مرقمة
1-


2-


3-

4

5

6

7

8

9


10-


11


12


13


14

15



16





اخيرا
نقوم بتجربة مشروعنا الجديد كالاتى
نضغط زر start debuging وهو عبارة عن زر اخضطر مثل السهم موجود اعلى منتصف الفجيوال بايسك لتجربة مشروعك قم بالضغط علية


---




---

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.*******()

طب اقول اية تانى
لو مش فاهم اى حاجة خالص
انت اعمل الفورم

وركب فيه الادوات المطلوبة من صندوق الادوات
وقم بالضغط اعلى الفورم مرتين وانسخ الكود التالى كاملا
قم بنسخ الكود التالى ما بين
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

كما بالصورة الاخيرة الاتية

ويمكنك ايضا واخيرا تحميل مشروعى كاملا بالصور السابقة بالاكواد
بخصائص الفورم والادوات من هذا الرابط التالى
Click Here ادعس هنا
حجم الملف لا يتجاوز ميجا ونصف فقم بتحميلة وتسطيب البرنامج فقد ارفقت ملف سيت اب معة ...
وللموضوع بقية بأذن الله
سنتعلم كيف تضيف اكثر حيوية وقيمة الى هذا المشروع فى الدرس التانى هنا اسفل هذا الموضوع باذن الله
سنتعلم كيف نضع كود خاص للقص
والنسخ
واللصق
والعديد من الازرار الاخرى
قريبا جدا
----------
لا تنسونى بالدعاء لعل منكم من هو مستجاب الدعوة عند الله