مشروع أنشاء مفكرة notepad مثل مفكرة الويندوذ !!!

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

مشروع أنشاء مفكرة notepad مثل مفكرة الويندوذ !!!

مُساهمة من طرف أحمد مناع في الأربعاء ديسمبر 28, 2011 1:43 pm

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



أخوانى الكرام أهلا وسهلا بيكم فى أنشاء مشروع جديد ...اليوم أن شاء الله سنتعلم سويا كيفية أنشاء مفكرة 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 فور اضافتنا لجميع الاشياء السابقة سوف تظهر نافذه اطار المشروع كالاتي







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



قم بوضعها على النموذج ثم غير الخاصية Name الى Com1 و بالتالى نكون قد أنتهيا من ضبط الخصائص للادوات و تصميم البرنامج ....فى الى الخطوة الثانية :
ثالثا : كتابة الكود أو الشفرة
اولا سوف نضع كود فى حدث Form_Resize للنموذج وذلك لجعل مربع النص يكبر ويصغر مع نافذه اطار المشروع اقصد عند تغير حجم النموذج فيتم تغير حجم مربع النص سوف يكون الكود ببساطة كالاتي:
Text1.Height = Me.Height - 800
Text1.Width = Me.Width - 80
شرح الكود : وفي حدث Resize تحجيم اطار النموذج قمنا باستخدام الخاصيه Height لتحديد عرض مربع النص وقد اعطينا العرض مساويا لعرض واجهة اطار النموذج وفي السطر الاتي نفس العميله ولكن هذه المره على طول المربع
ثانيا :كتابة الاكواد بالنسبة لعناصر قائمة (ملف)
العنصر الاول : "جديد" قم بالضغط على هذا العنصر لتفتح صفحة الكود ثم أكتب الكود التالى :
Text1.Text = ""

كل ما قمنا به اعلاه هو افرغ محتويات مربع النص Very Happy Very Happy
العنصر الثانى :"فتح" قم بالضغط على هذا العنصر لتفتح صفحة الكود ثم أكتب الكود التالى :
On Error Resume Next
Com1.DialogTitle = "فتح ملف"
Com1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
Com1.ShowOpen
Open Com1.FileName For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Dim A As String
Line Input #1, A
Text1.Text = Text1.Text & vbNewLine & A
Loop
Close #1

شرح الكود :
فى السرط الاول أستخدمنا جملة On Error Resume Next تفادي الاخطأ لكي يستمر البرنامج فى العمل في حال حصول خطأ وتجاهله.
فى السطر الثانى قلنا للبرنامج أكتب عنوان للمربع الحوارى com1 بأسم "فتح ملف "....أما السطر الثاالث قلنا للبرنامج لا تظهر فى المربع الحوارى الا الملفات النصية "txt" الا أذا أختيار المستخدم أظهار جميع الملفات ...بعد ذلك أظهر المربع الحوارى فتح ملف للمستخدم وهو ما تم كتابته فى السطر الرابع....كما فى الشكل التالى :
ثم بعد ذلك فتحنا الملف المراد قرائته للقرائة في السطر الذي يليه قمنا بافراغ محتويات مربع النص لاننا سوف قوم بفتح ملف جديد ولا نود بقاي الملف المفتوح مسبقا او اي شي مكتوب في المربع بعدها دخلنا في حلقه استمر لحد ما تصل للسطر الاخير في الملف المعين ثم عرفنا عن متغير يحمل قيمه نصيه واستخدمنا خاصيه معينه لجلب السطر المتوقفين عليه واعطينا السطر لمربع النص ثم Loop وهي نهاية الحلقه ثم اغلاق الملف حتى لا يحصل خطأ في حاله محاوله فتحه من جديد وهو مفتوح اصلا يمكننا تجربة الكود السابق بالصغط على زر F5 واضغط على العنصر Open وجرب ان تفتح ملف وسوف تلاحظ فتحه مباشرة انتهينا من كود فتح ملف
العنصر الثالث :"حفظ "
سوف تكون الفكره ايضا عرض مربع حوار لاختيار المكان واسم الملف وبعدها نقوم بخزن الملف مباشرة بعد انشائه يقام بالعمليه من خلال الكود الاتي :
Com1.DialogTitle = "حفظ الملف"
Com1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
Com1.ShowSave
Open Com1.FileName For Output As #1
Print #1, Text1.Text
Close #1
شرح الكود :
السطر الاول و الثانى تم شرحهم فى الكود السابق ....أما السطر الثالث قمنا بعرض مربع حوار الخزن لاختيار المكان واسم الملف باستخدام الخاصيه Showsave للاداة CommonDialog بعدها في السطر الثاني قمنا بانشاء الملف المراد الكتابه فيه وفي السطر الذي يليه ادخلنا القيم في الملف واغلقنا الملف بعد الانتهاء منه وها نحن انتهينا من كود عنصر الفتح والحفظ والجديد وبقى لنا من هذه القائمة كود الطباعة والاغلاق الذان سوف يكونان كالاتي :

Printer.Print Text1.Text




end

بالنسبه لكود الطباعه وبكل بساطه باستخدام الكائن Printer وخاصيه Print قمنا باعطاء امر لطباعه ما مكتوب في مربع النص انتيهنا من القائمة File وجميع كودات عناصرها
ثالثا :كتابة الاكواد بالنسبة لعناصر قائمة (تحرير)
قائمة تحرير سوف تكون أكواد تلك القائمة بسيطه جدا حيث لنسخ او قص نص كل ما سوف نقوم به هو ارسال امر لتنفيذ ضغط على ازرار النسخ والصق في الكيبورد وسوف تكون الاكواد الثلاثه كالاتي
قص :

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


الشرح بسيط الخاصيه Alignment هي خاصيه تحدد موقع النص والارقام 0 , 1 , 2 تمثل الاتي
0 يمثل Left
1 يمثل Right
2 يمثل الوسط
- العنصر "لون النص "

Com1.ShowColor
Text1.ForeColor = Com1.Color

شرح الكود : فى السطر الاول أظهار مربع الالوان للمستخدم ...أما السطر الثانى هو أن يكون الخط فى صندوق النص يساوى اللون من مربع الالوان والذى قام بأختيارة المستخدم
انتهينا ولم يبقى اي شي غير قائمة "تعليمات " و التى بها عنصر واحد فقط وهو "عن البرنامج "اضف الكود الاتي:


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




ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: مشروع أنشاء مفكرة notepad مثل مفكرة الويندوذ !!!

مُساهمة من طرف زهراء في الإثنين يناير 09, 2012 9:01 am

مفايش مثال جاهز يا أستاذ أحمد ....أو السورس كود لهذه المفكرة
avatar
زهراء
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 372
التقيم : 24
الدولة : مصر
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى