في الدرس السابق وهو درس عمل آله حاسبه بفيجوال بيسك تم شرح بعض الخواص والأكواد وفي هذا الدرس نشرح المزيد بإذن الله والدرس هذا هو شرح عمل برنامج زخرفة أسماء بسيط بالفيجوال بيسك وسنجعل أنواع الزخارف في هذا البرنامج 3 فقط!! إختصاراً للوقت ويمكنك أنت زيادة العدد الآن سنبداً بالشرح وكما تعودنا أولاً نبدأ برسم الأدوات وبعد ذلك بتغيير الخصائص ولن أشرح تغيير الخصائص لأن جميع الخصائص تم شرحها سابقا إختصاراً للوقت ولكي تتعود على الإعتماد على نفسك في البرمجه الآن إرسم الأدوات وغير خصائصها ليصح مشروعنا الآن إضغط على زر المبرمج مرتين لتفتح لك صفحة الكود أكتب فيها الكود التالي: كود PHP:
MsgBox ("فاعل خير"), , "برنامج زخرفة الأسماء"
الكود مشروح في الأعلى لذلك لا نحتاج إلى شرحه.
وإضغط على زر خروج مرتين لتفتح لك صفحة الكود أكتب فيها:
وكما شرحنا في الأعلى كلمة End في لغة vb6 تعني خروج
والآن إضغط على زر الزخرفه الأولى >> الأسم << مرتين لتفتح لك صفحة الكود وأكتب:
كود PHP:
Text2.Text = ">>" + Text1.Text + "<<"
والشرح:
عند الضغط على الزر تتحول خاصية الكتابه (text) في مربع النص الثاني (text2) إلى (>>) + (النص المكتوب في مربع النص الأول) + (<<) ليكون الناتج تتحول الكتابه في مربع النص الثاني إلى
>>الكتابه التي في مربع النص الأول <<
وفي زر الزخرفه الثانيه .:.:: الأسم ::.:. نكتب الكود:
كود PHP:
Text2.Text = ".:.::" + Text1.Text + "::.:."
وشرحه:
عند الضغط على الزر تتحول خاصية الكتابه (text) في مربع النص الثاني (text2) إلى (.:.::) + (النص المكتوب في مربع النص الأول) + (::.:. ) ليكون الناتج تتحول الكتابه في مربع النص الثاني إلى
.:.:: الكتابه التي في مربع النص الأول ::.:.
وفي زر الزخرفه الثالث نكتب الكود التالي:
كود PHP:
Text2.Text = "-=:|" + Text1.Text + "|:=-"
والشرح:
عند الضغط على الزر تتحول خاصية الكتابه (text) في مربع النص الثاني (text2) إلى (-=:|) + (النص المكتوب في مربع النص الأول) + (|:=-) ليكون الناتج تتحول الكتابه في مربع النص الثاني إلى
-=:|الكتابه التي في مربع النص الأول |:=-
والآن أنتهينا من عمل البرنامج وهذا رابط تحميل البرنامج المعمول في الشرح:
http://www.4shared.com/file/15888695...___online.html
في الدرس القادم: س: لو عملت مشروع طويل وأردت التوقف والإكمال فيما بعد ماذا أفعل؟
.:.:إنتظروا الدرس القادم:.:.
>>يتبع<<
س: لو عملت مشروع طويل وأردت التوقف والإكمال فيما بعد فماذا أفعل؟ ج: إتبع الشرح التالي: الآن أنت عملت المشروع وتريد التوقف والإكمال فيما بعد إذن إعمل مثل مافي الصوره: File - save project As 
بعد ذلك تفتح لك نافذة حفظ الفورم إختر المكان الذي تريد الحفظ فيه وأتركه بنفس الأسم وإضغط save مثل مافي الصوره: 
بعد حفظ الفورم تفتح لك نافذة حفظ المشروع أتركه بنفس الأسم وأحفظه في نفس المجلد الذي حفظت الفورم فيه: 
والآن تم حفظ المشروع متى ما أردت الرجوع إليه وإكماله إفتح الفيجوال بيسك 6 كالعاده ثم إذهب إلى قائمة File ثم Open ثم إختر ملف المشروع الذي حفظته بالأسم project1 والآن إنتهى الدرس في الدرس القادم: س:برنامجي أصبح جاهز ! كيف أحفظه كلملف تنفيذي exe ؟ >>يتبع<<
الآن سأشرح لكم بعض الأشياء في أحداث الأكواد: وأولاً : لكي نتعرف ماهي الأحداث ننظر إلى الصوره التاليه 
كما في الصوره نجد أن العنصر هو form والحدث هو load فيكون أول سطر في الكود Private Sub Form_Load() والحدث load يمثل حدث التحميل للفورم يعني ينفذ الكود أثناء تحميل الفورم وهذا الحدث خاص بالفورم فقط. وكل أداة لها أحداث خاصة بها فمثلاً أداة Timer تحتوي على حدث Timer فقط وهو تنفيذ الكود حسب التوقيت الذي أنت تختاره. وحدث Click يوجد في أكثر الأدوات وهو لتنفيذ الكود عند الضغط على العنصر أو الأداه وهو يأتي مثلاً في زر الكوماند بهذه الصوره: Private Sub Command1_Click() هنا يكتب الكود End Sub وحدث MouseMove وهو أيضاً يوجد في أكثر الأدوات وهو لتنفيذ الكود عند المرور فوق العنصر أو الأداه وهو يأتي في زر الكوماند بهذه الصوره: Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) هنا يكتب الكود End Sub والحدث DblClick يأتي في بعض الأدوات وطبعاً لا يأتي في زر الكوماند وهو لتنفيذ الكود عند النقر على العنصر نقر مزدوج وهو يأتي بالصيغه التاليه على الفورم مثلاً: Private Sub Form_DblClick() هنا يكتب الكود End Sub والحدث GotFocus يوجد في أكثر الأدوات وهو لتنفيذ الكود عند التركيز على الأداه فمثلاً عندنا أداة textbox تحتوي نص معين نريد عند التركيز عليها يمسح المحتوي يكون الكود هكذا: Private Sub Text1_GotFocus() Text1.Text = "" End Sub طبعاً في الكود تغير أسم text1 حسب أسم الأداه وحدث Unload يوجد في الفورم فقط وهو لتنفيذة الكود عند الضغط على زر إغلاق فمثلاً نريد عمل رسالة توديع للمستخدم عند إغلاق البرنامج سيكون الكود بالكامل هكذا: Private Sub Form_Unload(Cancel As Integer) MsgBox "وداعاً", , "مثال" End Sub ولا زال يوجد الكثيييير من الأحداث ولاكن نحن شرحنا أكثرها إنتشاراً وإستخداماً يمكنك البحث عن المزيد...إن أردات أو يمكنك طلب المزيد من هنا وسأعطيك... >>يتبع<< الآن وصلنا إلى شرح رسائل المسج بوكس وهي مثل التي وضعت في زر المبرمج في برنامج الآله الحاسبه وبرنامج زخرفة الأسماء التي عملناها في أعلى الدوره وفي البرنامجين إستخدمنا النوع العادي ولاكن هنا سأضع لكم عدة أنواع مختلفه عن الذي في الأعلى نبدأ: أولاً : رساله عاديه مع زر إعاده وزر إلغاء الأمر 
كود الرساله:
كود:
MsgBox ("Hazim07 مع تحياتي"), vbRetryCancel, "مثال"
ثانياً : رساله تحتوي صورة علامة إستفهام مع زر موافق 
كود الرساله:
كود:
MsgBox ("Hazim07 مع تحياتي"), vbQuestion, "مثال"
ثالثاً : رساله تحتوي صوره خطأ وزر موافق 
كود الرساله:
كود:
MsgBox ("Hazim07 مع تحياتي"), vbCritical, "مثال"
رابعاً : رساله مع زر موافق وعلامة تعجب 
كود الرساله:
كود:
MsgBox ("Hazim07 مع تحياتي"), vbInformation, "مثال"
خامساً: رساله عاديه مع زر موافق وأيقونة النظام الصغيره
كود الرساله:
كود:
MsgBox ("Hazim07 مع تحياتي"), vbSystemModal, "مثال"
سادسا : رساله مع زر نعم و لا وإلغاء الأمر مع عنوان في الأعلى
كود الرساله:
كود:
MsgBox ("Hazim07 مع تحياتي"), vbYesNoCancel, "مثال"
سابعاً: رساله مع عنوان وزر لا ونعم
كود الرساله:
كود:
MsgBox ("Hazim07 مع تحياتي"), vbYesNo, "مثال"
طبعاً الأنواع السبعه التي في الأعلى ليست كل الأنواع بل يوجد بعض الأنواع لم أذكرها وأترك إكتشافها عليكم وطبعاً أحب أذكر لكم أسهل صيغه لهذه الرسائل وهي:
كود:
Msgbox "أكتب رسالتك هنا"
ولكن الصيغه السابقه لايوجد لها عنوان وعنوانها يكون أم المشروع وطبعاً أحب أذكر لكم الفرق بين الأنواع التي في الأعلى تلاحظون الفرق فقط بين الفواصل:
Msgbox ("الرساله"),vbinformation,"العنوان"
ويوجد أيضاً صيغه بسيطه لهذه الرسائل ولاكنها تحميل عنوان من إختيارك وهي:
كود:
Msgbox ("الرساله"),,"مثال"
والآن إنتهت الدوره لأننا أتممنا شرح الأساسيات في الفيجوال بيسك..
>>إنتهت الدوره<<
smilies12smilies12smilies12