تصميم متصفح انترنت

    • تصميم متصفح انترنت

      بسم الله الرحمان الرحيم
      السلام عليك ورحمة الله وبركاته

      انا ياسين من المغرب 14 سنة
      ~!@g هذه اول مشاركة لي في ساحة العرب ارجو ان افيدكم وتفيدونني
      :)
      هذا كود كامل لتصميم متصفح انترنت بسيط



      اتبع الخطوات التالية
      افتح فورم جديد وضع عليه خمسة ازارير كوماند ومن الخصائص سمها كما تشاهد في الصورة
      الخلف الامام توقف البدايةتحديث
      كذك اضف زر سادس واكتب عليه من الخصائص اغلاق المتصفح
      اختر من الادوات اداة كمبو بوكس التي سنكتب فيها عناوين المواقع
      ضع اداة العنوان واكتب عليها العبارة الموجودة على الصورة
      اداةmicrosoft internet conttrolsبقي علينا اضافة ال
      ولكي تختارها اضغط على مفتاح ctrl+T
      تظهر لك مجموعة الادوات ابحث عن الاداة ثم ضع عليها صح من المربع الذي امامها ثم انقر موافق
      microsoft internet conttrolsاسم الاداة
      لاحظ اسف صندوق الادوات يسارا اضافة الاداة الجديد الان اقر عليها مرتين لاضافتها الي الفورم حاول تكبيرها بالحجم الذي تريد لانها ستكون مكان عرض المواقعلللل تشبه الاداة صورة الكرة الارضية
      حاول ترتيب الادوات مثل الصورة
      الكود
      اقر على الفورم مرتين لكتابة الكود التالي في حدث عند التحميل

      Private Sub Form_Load()
      WebBrowser1.Navigate "www.yahoo.com"
      End Sub

      انقر مرتين على زر الخلف لكنابة الكود التالي
      Private Sub Command1_Click()
      WebBrowser1.GoBack

      End Sub
      لاحظ ان الخلف يعتبر كوماند 1 من نافذة الخصائص
      انقر على زر الامام مرتين واكتب الكود

      Private Sub Command2_Click()
      WebBrowser1.GoForward
      End Sub

      وهذا كود توقف
      Private Sub Command3_Click()
      WebBrowser1.Stop
      End Sub

      وهذا كود زر البداية
      Private Sub Command4_Click()
      WebBrowser1.GoHome
      End Sub

      وهذا كود زر تحديث
      Private Sub Command5_Click()
      WebBrowser1.Refresh
      End Sub

      وهذا كود زر اغلاق المتصفح
      Private Sub Command6_Click()
      End
      End Sub

      الان انقر مرتين على الكمبو بوكس واكتب الكود التالي
      Private Sub Combo1_KeyPress(KeyAscii As Integer)
      If KeyAscii = 13 Then
      WebBrowser1.Navigate Combo1.Text
      End If
      End Sub







      منقول عن geocities.com/vbarab/AAA1.htm

      موقع للاخ فيصل الساعدي

      ولا اله الا الله محمد رسول الله



    • دروس بالانجليزية

      بسم الله الرحمان الرحيم

      السلام عليك الاخ المشرف الريامي

      vbtutor.net/vbtutor.html
      هذا موقع فيه دروس رائعة بالخصوص الدرس 15و16و17و18 لكنني اظن ان هذه الدروس ليست كاملة ارجو ان يكون عندك كودات مثلها لكي تضعها في الساحة .
      انتظر ردك انشاء الله

      اخوك ح.ياسين