برامج نت

 
العودة   برامج نت > منتديات الكمبيوتر والأنترنت > منتدى مبرمجين لغات البرمجة
صفحة برامج نت الرسمية على الموقع التواصل الاجتماعي فيسبوك
 

منتدى مبرمجين لغات البرمجة يناقش هاذا المنتدى لغات البرمجة فيجوال بيسيك , فيجوال سي ++ , دلفي , أكسيس , أوراكل , جافا , الاسمبلي












في حال وجود أي مواضيع او ردود مُخالفة من قبل الأعضاء ، يرجى الإبلاغ عنها فورا باستخدام أيقونة تقرير عن مشاركة ( تقرير عن مشاركة مخالفة ) ، و الموجودة أسفل كل مشاركة .





إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 11-14-2008, 08:12 PM   #1
Eyad_2050
عضو جديد
 
تاريخ التسجيل: Oct 2008
الدولة: سوريا-دمشق
العمر: 25
الجنس : ذكر
المشاركات: 29
معدل تقييم المستوى: 0
Eyad_2050 is on a distinguished road

افتراضي تعلم برمجة متصفح أنترنت بسيط بالفيجوال بيسك دوت نت

[center]
[IMG]http://lernvisual.******.com/about%20us/book/book/BESM.gif[/IMG]


أقدم لكم درس لشرح كيفية عمل متصفح ويب بسيط



[IMG]http://lernvisual.******.com/about%20us/book/book/dis%20(1).gif[/IMG]


نبدأ على بركة الله
نفتح الفيجوال كالعادة
نقوم بأنشاء مشروع جديد كما في الصورة



نغير خصائص الفورم




[IMG]http://lernvisual.******.com/about%20us/book/book/dis%20(1).gif[/IMG]

نقوم بادراج الأدوات كما في الصورة وهي



ToolStrip عدد 2
WebBrowser عدد 1
StatusStrip1 عدد 1





[IMG]http://lernvisual.******.com/about%20us/book/book/dis%20(1).gif[/IMG]

الأن ضمن كل أداة نقوم بادراج مجموعة أدوات كما في الصورة









ToolStrip العليا
ندرج على الترتيب
ToolStripButton عدد 5
ToolStripSeparator عدد 1
ToolStripButton عدد 1
ToolStripSplitButton عدد 2
ToolStripLabel عدد 1



ToolStrip الثانية
ToolStripLabel
ToolStripTextBox
ToolStripButton
ToolStripLabel
ToolStripTextBox
ToolStripButton



StatusStrip1 شريط الحالة السفلي

ToolStripStatusLabel
ToolStripSplitButton
ToolStripProgressBar



[IMG]http://lernvisual.******.com/about%20us/book/book/dis%20(1).gif[/IMG]

الأن لنعدل خصائص الأدوات في شريط الحالة العلوي
من الخاصية image عدل الصور في أول خمس أزرار من الشريط العلوي
لتكون الخلف أمام تحديث أيقاف الرئيسية
ثم الزر السادس ليكون حفظ

الأن زر السابع والثامن عبارة عن قوائم قم بتغير الخاصية display style إلى text
وغير الخاصية text td السابعةإلى تحرير
والثامنة إلى خيارت الطباعة
ثم أضغط عليه تظهر لك قائمة



قم بملئه حتى تصبح كالتالي



وكذلك الأمر بالنسبة للقائمة الثانية



أما بالنسبة ToolStrip2 الثانية

نغير خاصية text إلى العنوان في الأولى
ولا نغير شيء بالثانية
والثالثة نضع أيقونة بحب
والرابعة نغير الخاصية text إلى بحث في غوغل
والخامسة لا نغير شيء
والسادسة نضع أيقونة بحث


أما بالنسبة لشريط الحالة
فقط نغير الثانية حيث نغير الأيقونة
ونقوم بعمل قوائم متفرعة للمواقع كما في الصورة


وبذلك نكون أنتهينا من التصميم


[IMG]http://lernvisual.******.com/about%20us/book/book/dis%20(1).gif[/IMG]

نبدأ في الأكواد
ننقر نقرتين في أي نقطة من الفورم فيظحر حدث تحميل الفورم
نضع الكود التالي
كود:
 Me.ToolStripTextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
        Me.ToolStripTextBox1.AutoCompleteSource = AutoCompleteSource.AllUrl
        WebBrowser1.Navigate("www.google.com")
في السطر الأول الوثاني لاظهار كل المواقع المفتوحة سابقا في التكست بوكس
في السطر الثالث لجعل الصفحةا لرئيسية للمتصفح هي غوغل

في زر ألخلف نضع الكود التالي
كود:
   WebBrowser1.GoBack()
في زر الأمام نضع الكود التالي
كود:
  WebBrowser1.GoForward()
في زر التوقف نضع الكود التالي
كود:
 WebBrowser1.Stop()
في زر التحديث الكود التالي
كود:
WebBrowser1.Refresh()
في زر الرئيسية نضع الكود التالي
كود:
   WebBrowser1.Navigate("http://www.google.com")
في زر الحفظ
كود:
WebBrowser1.ShowSaveAsDialog()[/
في زر البحث بالغوغل ضع الكود التالي
كود:
WebBrowser1.Navigate("http://www.google.co.uk/search?hl=ar&q=" & ToolStripTextBox2.Text)
والأن عمل هذا الكود هو أن المستخدم عندما يضع كلمة في بحث غوغل ويضغط أنتر تظهر نتائج البحث
يعني نفس الكود السابق ولكن يتم تنفيذه عند الضغط على أنتر
كود:
 Private Sub srchbox_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles srchbox.KeyDown
        If e.KeyCode = Keys.Enter Then
            WebBrowser1.Navigate("http://www.google.co.uk/search?hl=ar&q=" & ToolStripTextBox2.Text)
        End If
    End Sub
نفس الأمر ولكن لمربع الرابط
كود:
 Private Sub ToolStripTextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ToolStripTextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            WebBrowser1.Navigate(ToolStripTextBox1.Text)
        End If
    End Sub
الكود التالي لتشغيل عداد المعالجة عند فتح الصفحات
كود:
 Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        Try
            ToolStripProgressBar1.Maximum = e.MaximumProgress
            ToolStripProgressBar1.Value = e.CurrentProgress
        Catch ex As Exception
        End Try
        End Sub
الكود التالي لتغير الرابط في مربع النص عند دخولك صفحة أخرى
والسطر الأخير لأظهار أسم المتصفح +أسم الصفحة في الخانة العلوية
كود:
 Private Sub WebBrowser1_********Completed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowser********CompletedEventArgs) Handles WebBrowser1.********Completed
        'to update the address box whenever a page is access.  
        If e.Url.IsAbsoluteUri Then
            ToolStripTextBox1.Text = e.Url.AbsoluteUri
        Else
            ToolStripTextBox1.Text = e.Url.ToString()
        End If
        Me.Text = " Eyad Browser - " & WebBrowser1.********Title
    End Sub
نأتي إلى القوائم
القائمة الأولى نسخ لصق قص
نضع الأكواد التاية على الترتيب

نسخ
كود:
  WebBrowser1.********.ExecCommand("copy", True, DBNull.Value)
قص
كود:
 WebBrowser1.********.ExecCommand("cut", True, DBNull.Value)
لصق
كود:
 WebBrowser1.********.ExecCommand("paste", True, DBNull.Value)
القائمة الثانية إعداد الصفحة -معاينة للطباعة -طباعة -خصائص الصفحة
نضع الأكواد التالية

إعداد الصفحة
كود:
  WebBrowser1.ShowPageSetupDialog()
معاينة للطباعة
كود:
  WebBrowser1.ShowPrintPreviewDialog()
طباعة
كود:
  WebBrowser1.Print()
خصائص الصفحة
كود:
 WebBrowser1.ShowPropertiesDialog()
وبذلك نكون قد أتنهينا وبقي لنا دليل المواقع الصغير وهو القائمة التي بالأسفل
أنقر عليها وقم بأضافة أقسام رئيسية ومن ثم لكل قسم رئيسي أقسام فرعية




ثم نصغط على كل فرع رئيسي ونكتب الكود التالي

كود:
 WebBrowser1.Navigate("رابط الموقع")
        Me.Text = " Eyad Browser - " & "أسم الموقع"
        ToolStripTextBox1.Text = "رابط الموقع"
وهكذا حتى ننتهي من كل المواقع يمكنك تحميل البرنامج من
Download

أتمنى أن يكون الدرس قد أعجبكم
ولا تكونو قد مللتوا







__________________
ليس المهم أن تكون الأفضل المهم أن تقدم أفضل ما عندك




التعديل الأخير تم بواسطة Eyad_2050 ; 11-14-2008 الساعة 08:59 PM
Eyad_2050 غير متواجد حالياً   رد مع اقتباس


قسم ألعاب PC | قسم PlayStation 3 | قسم XBOX 360 | قسم ألعاب التورنت | قسم الجهاز المحمول PSP | قسم الدعم الفني


قديم 11-14-2008, 08:18 PM   #2
Eyad_2050
عضو جديد
 
تاريخ التسجيل: Oct 2008
الدولة: سوريا-دمشق
العمر: 25
الجنس : ذكر
المشاركات: 29
معدل تقييم المستوى: 0
Eyad_2050 is on a distinguished road

افتراضي

بدل الكلمة المشفرة ضع
الموجود بالصورة







__________________
ليس المهم أن تكون الأفضل المهم أن تقدم أفضل ما عندك



Eyad_2050 غير متواجد حالياً   رد مع اقتباس
قديم 11-14-2008, 10:20 PM   #3
مبرمجPHP
عضو جديد
 
تاريخ التسجيل: Nov 2008
الدولة: Maroc
الجنس : ذكر
الهوايات: Computer
الوظيفة: مبرمج
المشاركات: 13
معدل تقييم المستوى: 0
مبرمجPHP is on a distinguished road

افتراضي

شكرا أخي على هدا الشرح الرائع
تقبل تحياتي
مبرمجPHP غير متواجد حالياً   رد مع اقتباس
قديم 11-14-2008, 10:59 PM   #4
سفير الاسلام
عضو محترف
 
تاريخ التسجيل: Mar 2006
الجنس : ذكر
الهوايات: الرسم والشعروالسفر
المشاركات: 531
معدل تقييم المستوى: 111
سفير الاسلام is on a distinguished road

افتراضي

مشكووووووووووووووووور
سفير الاسلام غير متواجد حالياً   رد مع اقتباس
قديم 11-15-2008, 10:51 AM   #5
Aboud Aboud
مشرف منتدى مبرمجين لغات البرمجة
 
الصورة الرمزية Aboud Aboud
 
تاريخ التسجيل: Apr 2007
الدولة: East or West SYRIA is Best
الجنس : ذكر
الهوايات: programming
المشاركات: 7,360
معدل تقييم المستوى: 236
Aboud Aboud will become famous soon enoughAboud Aboud will become famous soon enough

افتراضي

شكرا لك عالشرح







__________________


اربح بالضغط على الاعلانات

شركة Neobux أصدق شركة في هذا المجال

شركة Probux

لا تنسى الضغط على الاعلانات كل يوم

..... سوريّة الله حاميها .....

متغيّب





Aboud Aboud غير متواجد حالياً   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)
للإشتراك في قروب منتديات برامج نت ليصلك كل ما هو جديد
البريد الإلكتروني:

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

منتديات الكمبيوتر والأنترنت منتديات التصاميم والجرافيكس منتدى برامج نت الطبي منتديات منوعة
منتدى البرامج الكاملة والنادرة
منتدى الفيديو والصوتيات
قسم الأجهزة الكفية
منتدى البرامج المشروحة
قسم شبكات الحاسوب Computer Networks
منتدى تطوير المواقع والمنتديات
منتدى مبرمجين لغات البرمجة
منتدى ألعاب الفيديو
منتدى عالم المحادثة
منتدى مبدعين ومحترفين الفوتوشوب
منتدى برامج وملحقات الفوتوشوب
منتدى Scrapbooking
منتدى السويتش والفلاش
منتدى التصميم ثلاثي الابعاد
منتدى التصوير الضوئي والفن التشكيلي
قسم الصور Photo / خلفيات Wallpaper
المنتدى الطبي العام
عيادة المنتدى
طب الأعشاب و الطب البديل
منتدى الكتب الطبية - Medical Books
منتدى طلاب الطب
البرامج و الصوتيات و المرئيات الطبية
عيادة طب الأطفال
منتديات المصارعة الحرة
الأفلام الوثائقية
منتدى الإسلامى
تعلم اللغات الأجنبية
غرائب وعجائب العالم
قسم كرة القدم العالميه
قسم كرة القدم العربية
برامج الجوال Mobile Software
عرض الأفلام الأجنبية
منتدى الفضائيات

اتبعني - منتديات برامج نت



الساعة الآن 02:09 AM.
Designed by bramjnet.com, TranZ By Almuhajir
Powered by vBulletin®, Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

جميع المشاركات والمواضيع في منتدى برامج نت لا تعبر بالضرورة عن رأي إدارته بل تمثل وجهة نظر كاتبها
All participants & topics in forum Bramjnet.com does not necessarily express the opinion of its administration, but it's just represent the viewpoint of its author
Youtube Download |Google Earth|WinRAR|ESET NOD32 Antivirus|Kaspersky Anti-Virus|YouTube|Windows Live Messenger|Firefox|skype|Internet Download Manager|Nero|RealPlayer|Deep Freeze