انشاء متصفح

انشاء متصفح

بسم الله الرحمن الرحيم
كيفكم اخوتي اخواتي
كيفية إنشاء متصفح إنترنت بسيط من خلال الفيجول بيزك
اولا:العناصر المطلوبة:
1-Combobox عدد 1
2-commandButton عدد 4 الزر الأول"خلف" الزر الثاني"امام" الزر الثالث"بداية" الزر الرابع"تحديث"
3-WebBrowser1 عدد 1 طريقة إظهاره نضغط Ctrl+t نختار Microsoft Internet Controls
الكود:
في ال Combo1 نختار الحدث KeyPress ونكتب الكود
If KeyAscii = 13 Then
combo1.text="http://www. & combo1.text" &".com"
WebBrowser1.Navigate Combo1.Text
End If
بمعنى إذا كان الزر المضغوط هو Enter "شيفرة الإنتر=13"عندها إنتقل إلى الموقع الموجود في Combo1
في زر خلف نتكتب
WebBrowser1.GoBack
في زر امام نكتب
WebBrowser1.GoForward
في زر بداية نكتب
WebBrowser1.GoHome
في زرتحديث نكتب
WebBrowser1.Refresh
في نافذة الفورم نختار الحدث Load بمعنى عند تنفيذ البرنامج إنتقلي لصفحة Google نكتب
WebBrowser1.Navigate "http://www.google.com"
وفي نافذة النموذج للحدث Resize اي عند تكبير النموذج نكتب
WebBrowser1.Move 100, 100, Form1.ScaleWidth - 200, Form1.ScaleHeight - 200
Combo1.Move 100, 100, Form1.ScaleWidth - 200
اعذروني المتصفح بسيط جدا المرة القادمة سأطوره بإضافة قوائم له كفتح وحفظ إلخ
أتمنى ان ينال إعجابكم

اخوكم ahmed elwerdany

ساهم في نشر تلك التدوينه :

المشاركة في الفيس بوك المشاركة في تويتر Share on StumbleUpon Share on Delicious Share on Reddit

Share on Digg Share on simpy Share on Technorati Share on furl تابعني علي facebook