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



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





- عدد واحد صندوق نص textbox

-عدد فورم واحد

-أستدعاء الاداة Menu Editor وذلك لانشاء قائمة مختصرة

- الاداة CommonDialog التي سوف نستخدمها لتعرض لنا مربع حوار لاختيار الملف المراد فتحه او حفظه وكذلك من اجل تنسيق الخطوط وغيرها


ثانيا :التصميم و ضبط خصائص الادوات



نقوم اولا يفتح برنامج الفيجوال بيسك 6 واختيار مشروع قياسي Stander.exe للعمل عليه فور فتح برنامج الفيجوال بيسك واضافة المشروع سوف نقوم بالبدء بصناعه واجهة النموذج والقوائم التي سوف نحتاجها....

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







بالنسبة لصندوق النص textbox أجعل الخاصية MultiLine تساوى True وذلك لكى يسمح لنا صندوق النص الكتابة فى عدة أسطر و ليس سطر واحد ...أما الخاصية ScrollBars تساوى virtcal و ذلك للسماح بعرض شريط التمرير الرأسى فى حالة تعدد السطور فى المفكرة ......كما فى الشكل التالى :







ثم بعد ذلك نقوم بأستدعاء الاداة Menu Editor لانشاء قائمة مختصرة و ذلك على النحو التالى



قائمة ملف >> جديد >> فتح >> حفظ بأسم >> - >> طباعة >> إغلاق






قائمة تحرير >> قص >> نسخ >> لصق >> مسح >> - >> تحديد الكل






قائمة تنسيق >> الخط >> أتجاة الخط >> لون الخط




قائمة تعليمات >>عن البرنامج



وطبعا قد شرحنا كيفية أنشاء مثل تلك القوائم فى الدرس السادس عشر [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط])لذلك لا أجد فائدة من تكرار شرح ذلك و لكل من يتابع هذا الدرس أتمنى أن يرجع الية.....وبعد الانتهاء فى أنشاء القوائم سيصبح برنامجنا بهذا الشكل التالى :







بالانتهاء من اضافة القوائم نقوم بأضافة اداة CommonDialog التي سوف نستخدمها لتعرض لنا مربع حوار لاختيار الملف المراد فتحه او حفظه وكذلك من اجل تنسيق الخطوط وغيرها تتم اضافة الاداة بكل سهوله من خلال الضغط على زر Ctrl + T ثم أختيار الاداة Micrsoft Common Dialog 6 والضغط على زر Ok فور اضافتنا لجميع الاشياء السابقة سوف تظهر نافذه اطار المشروع كالاتي







فتظهر فى شريط الادوات القياسى كما فى الشكل التالى :

Printer.Print Text1.Text

end

SendKeys "^" + "X"

SendKeys "^" + "C"

SendKeys "^" + "V"

Com1.CancelError = True
Com1.Flags = cdlCFBoth
On Error GoTo ErrHandler
Com1.ShowFont
Text1.FontName = Com1.FontName
Text1.FontBold = Com1.FontBold
Text1.FontItalic = Com1.FontItalic
Text1.FontSize = Com1.FontSize
ErrHandler:
Exit Sub

Text1.Alignment = 0

Text1.Alignment = 1

Text1.Alignment = 2

Com1.ShowColor
Text1.ForeColor = Com1.Color

MsgBox "برنامج المفكرة الاصدار الاول ...برمجة منتدى مصر التقنى", vbInformation + vbOKOnly + vbMsgBoxRight, "عن البرنامج"