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

tomjerry741

01-03-2012, 09:10 PM

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

2-
http://www9.0zz0.com/2012/03/01/17/263436874.png

3-
http://www9.0zz0.com/2012/03/01/17/242721079.png
4
http://www9.0zz0.com/2012/03/01/17/443366201.png
5
http://www9.0zz0.com/2012/03/01/17/750336104.png
6
http://www9.0zz0.com/2012/03/01/17/642723053.png
7
http://www9.0zz0.com/2012/03/01/17/561704004.png
8
http://www9.0zz0.com/2012/03/01/17/971634970.png
9
http://www9.0zz0.com/2012/03/01/17/208733857.png

10-
http://www9.0zz0.com/2012/03/01/17/623281126.png

11
http://www9.0zz0.com/2012/03/01/17/842382701.png

12
http://www9.0zz0.com/2012/03/01/17/772274825.png

13
http://www9.0zz0.com/2012/03/01/17/749175312.png

14
http://www9.0zz0.com/2012/03/01/17/849767154.png
15

http://www9.0zz0.com/2012/03/01/17/807184400.png

16
http://www9.0zz0.com/2012/03/01/17/310739442.png

http://www9.0zz0.com/2012/03/01/18/662314015.jpg

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

---

http://www9.0zz0.com/2012/03/01/18/539630509.png

---

http://www9.0zz0.com/2012/03/01/17/658282555.png

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 ادعس هنا (http://www.mediafire.com/?nqbpilxojgxop7h)
حجم الملف لا يتجاوز ميجا ونصف فقم بتحميلة وتسطيب البرنامج فقد ارفقت ملف سيت اب معة ...
وللموضوع بقية بأذن الله
سنتعلم كيف تضيف اكثر حيوية وقيمة الى هذا المشروع فى الدرس التانى هنا اسفل هذا الموضوع باذن الله
سنتعلم كيف نضع كود خاص للقص
والنسخ
واللصق
والعديد من الازرار الاخرى
قريبا جدا
----------
لا تنسونى بالدعاء لعل منكم من هو مستجاب الدعوة عند الله