بسم الله الرحمن الرحيم
اللهم لا سهل الا ما جعلته سهلا
وانت تجعل الحزن ان شئت سهلا
:bosyht9:
فى الحقيقة لم يعجبنى التصميم السابق الذى قدمته لكم بشأن متصفح الويب البدائى
ولم انم ليلتها جيدا وطفقت افكر ساهرا فى كيفية تصميم متصفح جيد يمكن تنصيبة واستخدامه
كما تستخدم الموزيلافايرفوكس او الانترنت اكسبلورر
هل هناك مستحيل فى تصميم اشياء كهذى ؟؟!!
:p
دعونا نجرب حظنا مرة اخرى
ونتوكل على الله
ونتعلم شيئا جديدا
واتوجه بكلامى الى مدرسى الحاسب الالى
لمن عنده فكرة جديدة او تعديل على مشروعنا الاتى
فليكتب لى فى الردود بفكرته
والان فلنبدأ على بركة الله
الجزء الاول
قم بفتح برنامجك " الفجيوال بايسك 2005/2008/2010
وقم باختيار مشروع جديد واطلق عليه مثلا
InterNet Explorer 2012
او اى اسم اخر تفضله
-
ستجد امامك نافذة الفورم بهذا الشكل المعروف والذى تصادفه فى كل مرة تحاول فيها انشاء مشروع جديد
وتظل محدقا فيها لدقائق
معتصرا ذهنك الخالى لعله يسعفك بفكرة جديدة
او بابتكار اكواد جديدة
او بمحاولة تصميم برنامج لم يبتكرة انسان بشرى من قبل
حين يعجز عقلك عن اى امر من الامور السابقة
تقوم بغلق البرنامج وتتجة لسماع اغنية او -- محاولة لعب Mario Games
الحقيقة اننى كنت مثلك تماما
لكن لو لم تكن تحب البرمجة فلن تتعلمها ابدا
لو اعتقدت انك لن تتعلمها فقد حكمت على نفسك وقتها
وسيصبح تعلمها مستحيلا
-----------
انظر الان الى الفورم الذى امامك
وقم بتغيير حجمة الى الابعاد الاتية 1024; 740 كما هو بالصورة التى امامك
http://www3.0zz0.com/2012/03/02/11/446043527.jpg

-
نريد الان ان نقوم بأدراج اداة من صندوق الادوات على ايدك الشمال
وهذا العنصر يعرف بأسم microsoft web browser
انظروا معى فى هذه الصورة لعلنا نجده لنقوم بوضعه فى الفورم
ستلاحظون اننا لم نجدة
http://www3.0zz0.com/2012/03/02/11/992776998.jpg

-
فما الحل؟
الحل هو ان تضغط كليك يمين على كلمة all windows form
او على كلمة common control وتختار choose Items
كما بالصورة الاتية
http://www3.0zz0.com/2012/03/02/11/494352106.jpg
--
ستفتح لك نافذة متوسطة الحجم اضغط على التبويب Com وابحث عن عنصر
microsoft web-browser وضع علامة صح امامه ثم اضغط زر انتر يعنى موافق
http://www3.0zz0.com/2012/03/02/11/848214129.jpg

--
والان نبدأ ادراج الادوات المطلوبة بالترتيب
كما سيلى
- قم بادراج menustrip وغير لونها الى لونك المفضل
http://www3.0zz0.com/2012/03/02/12/433076683.jpg

-
فى الخانة الفارغة فى المنيو ستريب والتى بها كلمه Type Here
سوف نقوم باختيار عدة اسماء لعدة اوامر مختلفة ينبغى تنفيذها فى حاله اختيار المستخدم لها فى اى وقت اخر -- قم بوضع الاسماء التالية كما بالشكل الاتى
file
edit
history
bookmarks
Tools
Help
كل ما عليك هو ان تضغط مرة بالماوس على مستطيل جملةtypehere
وتكتب الكلمات كما هى مرتبة او حسبما تفضل انت
http://www3.0zz0.com/2012/03/02/12/572377269.jpg



--
والان
قم بادراج اداة واحد lable من صندوق الادوات وغير خاصية text الى كلمة www
ثم قم بأدراج واحد Listbox وقم بأعادة تحجيمة الى مستطيل طولى كما ترى
http://www3.0zz0.com/2012/03/02/13/684660207.jpg

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

size=1024;740
autosizemode=GrowAndShrink

text=internet web-browser2012
maxmizbox=false
startposition=CenterScreen
fixedborderstyle=FixedToolWindow
http://www3.0zz0.com/2012/03/02/12/307975480.jpg
------------
والان نقوم بأدراج عدد خمسة Button ونضعهم بجوار مستطيل لست بوكس
كما ترى بالصورة وثم باعطائها الاسماء الاتية بالترتيب
Go
Back
Forward
Refreash
Stop
http://www3.0zz0.com/2012/03/02/12/304228740.jpg
وياسلام لو عندك صور ايقونات او صور صغيرة نضعها داخل الزر لتعرف على اهميته

يمكنك ايضا تغيير لون وحجم الزر الى ما يناسبك من خلال خاصية باك كلور وخاصية فونتfont

--
والان قم بادراج عنصر microsoft web browser من قائمة الادوات
http://www3.0zz0.com/2012/03/02/13/907169906.jpg

بعد ان ادرجنا عنصر مايكروسوفت ويب بروزر ونقوم بتمديدة بالسحب والافلات بالماوس حتى نهاية الفورم او لم يعرف كيفية سحبة وتمديدة فعلية بالضغط على عنصر مايكروسوفت ويب بروزر داخل الفورم ثم يتجة الى الخصائص ويغير
قيمة size الى القيمة الاتية
1013; 660
او كما سترى بالصورة التالية
http://www3.0zz0.com/2012/03/02/13/226838048.jpg
--
والان نضيف اخر عنصر الى مشروعنا
وهو عنصر شريط الحالة او شريط التقدم
من صندوق الادوات قم بادراج الاداة
statusStrip
وستجد انها اتذت لها مكانا داخل الفورم باسفل ايدك اليسار كما بالصورة
http://www3.0zz0.com/2012/03/02/13/827443908.jpg

--
والان من السهمك الصغير فى الاداة منيوستريب اللى داخل الفورم
اختار اول كلمة وهى statusLable واضغط عليها مرة وغير قيمة التكست لها
الى اى كلمة تعجبك -- مثل waitting او downloadding
http://www3.0zz0.com/2012/03/02/13/526983104.jpg
-
اتضافة اخرى اخيرة الان
برضو من السهم الصغير اللى فى الاداة ستيتوس منيو
اضغط على السهم واختر ProgressBar
http://www3.0zz0.com/2012/03/02/13/658988733.jpg

لاتسنى ان تقوم بحفظ مشروعك اولا بأولا من خلال رمز الحظ فى اعلى يسار برنامج الفجيوال بايسك
او من خلال الضغط على زر اف5.......... يعنى F5 الموجود فى لوحة المفاتيح
لمزيد من الفهم عليك بقراءة الموضوع السابق عن متصفح النت الذى طرحته من قبل من خلال " اخبط على هذا الرابط (http://www.thanwya.com/vb/showthread.php?t=408853) "
--
انتهينا بعض الشئ من موضوعات وكائنات الفورم
وتبدأ الان مرحلة الاكواد وبرمجة كائنات ورموز الفورم

والان قبل العمل فعليا فى برمجة وكتابة الاكواد
عليك ملاحظة ان ميكروسوفت ويب بروزر اسمة فى خاصية name
AxWebBrowser1 فلا تقوم بتغيير الاسم
http://www3.0zz0.com/2012/03/02/13/966371432.jpg
ولا وجود للخاصية text لهذا العنصر ...
عليك بأضافة تايمر جديد الى الفورم وستجد انه اتخذ مكانة بالاسفل مع منيو ستريب ومع ستيتيوس ستريب

قم بالضغط مرتين على الزر الاول والذى اسميناه Go
واكتب الكود الاتى
AxWebBrowser1.Navigate(ComboBox1.Text)
Timer1.Start()
If ToolStripProgressBar1.Value = 100 Then
Timer1.Enabled = False
End If
End Sub



http://www3.0zz0.com/2012/03/02/13/764099533.jpg
-
برمجة العنصر تايمر
قم بالضغط على الزر تايمر مرتين وفى منطقة الكود اكتب الامر الاتى

ToolStripProgressBar1.Increment(1)
If ToolStripProgressBar1.Value = 100 Then
ToolStripStatusLabel1.Text = " Welcome"
Timer1.Enabled = False
End If
http://www3.0zz0.com/2012/03/02/14/278933037.jpg
---
والان الى برمجة الزر الثانى
نقوم بالضغط مرتين على الزر الثانى والذى اسميناه Back
وفى منطقة الكود نقوم بكتابة الامر الاتى
AxWebBrowser1.GoBack()

http://www3.0zz0.com/2012/03/02/14/256723293.jpg
----

والان نعود مرة اخرى الى الفورم ونضغط مرتين على الزر الثالث والذى اسميناة Forward
ونقوم بكتابة الامر الاتى
AxWebBrowser1.GoForward()
-------------------------------------------
والان نعود مرة اخرى الى الفورم ونضغط مرتين على الزر الرابع والذى اسميناة ******* رفريش *******
ونقوم بكتابة الامر الاتى بدل النجوم دى اكتب رفريش بالانجليزية
axwebBrowser1.*******()
AxWebBrowser1.*******()
AxWebBrowser1.******* ()
-------------
والان نعود مرة اخرى الى الفورم ونضغط مرتين على الزر الخامس والذى اسميناة Stop
ونقوم بكتابة الامر الاتى
AxWebBrowser1.Stop()
----------

واليكم النتيجة النهائية لترتيب الاكواد
اضغط على الشريط الاصفر اعلى الصورة للوضوح
http://www3.0zz0.com/2012/03/02/14/114650822.jpg
انتهينا من الجزء الاول الخاص بدرس اليوم
ونقوم باستكمال الجزء الثانى غداً بأذن الله

والان لتجربة مشروعك قم بالضغط على زر اف5 من لوحة المفاتيح
او قم بحفظة من خلال الضغط على قائمة file فى برنامج الفجيوال بايسك واختار save form1


هل افادك هذا المشروع بمعلومة جديدة !؟؟!!

شكر خاص على مواضيعك الجذابة
التى رأيتها فى المنتدى وياريت الاعتماد
على انفسنا فى مثل هذه المشروعات

لكى نعتمد على انفسنا فلابد لنا من تزويد معارفنا
ابحث يوميا واقرا واشاهد عشرات ملفات الفيديو عن الفجيوال بيسك
وبكل يوم اتعلم جديد لم اكن اعرفه بالامس

جزاك الله كل الخير

اسجل اعجابي الشديد بمشاركاتك المهمة
فى انتظار المزيد منك

بجد الموضوع هايل انا كنت عملت مشروع زيه بس مش كنت عارفه اعمل ازاى ال progress bar
بجد فكره جامده
ربنا يجزيك عنا خير
بس انا عندى سؤال لو انا عايزه اعمل الprogress يختفى عند اكتمال الصفحة و بعود مره اخرى عند عمل تحميل لاى شى من جديد

بجد الموضوع هايل انا كنت عملت مشروع زيه بس مش كنت عارفه اعمل ازاى ال progress bar
بجد فكره جامده
ربنا يجزيك عنا خير
بس انا عندى سؤال لو انا عايزه اعمل الprogress يختفى عند اكتمال الصفحة و بعود مره اخرى عند عمل تحميل لاى شى من جديد


عموما انا لست محترفا بما يكفى
لكن قبل ان اكمل قراءة سؤالك
اتتنى الاجابة فى لمح البصر من عقلى
يمكنك فى الحالة الشرطية الخاصة بتشغيل التايمر الاول
ان تضعى الكود
progresspar.visible=false
..............................................
اعتقد ان مشكلتك تم حلها
تحياتى لك

بالنسبة لاجابة سؤال الاخت اسراء يمكنك تجريب الامر الاتى

If ToolStripProgressBar1.Value = 100 Then
ToolStripStatusLabel1.Text = " Welcome"

ToolStripProgressBar1.visible=false

Timer1.Enabled = False
End If