السلام عليكم
ما رأيكم في ان نقوم بعمل برنامج مفكرة مبسط
اذا اردتم ذلك فانا مستعد للشرح بشكل مبسط لكم
ما رأيكم؟؟
ما رأيكم في تصميم مفكرة مبسطة
مغلق
ممكن ولم لا !
سيستفيد منه بالتأكيد اخواننا المبتدأين .
تحياتي لك.(f)
يا هلا اخوي hamohd70
مشكور على ردك وان شاء الله في القريب العاجل اشرح الطريقه
ابو مشاري
بسم الله
افتح مشروع جديد وضع فيه الزر text وخمسة أزرار Command بالإضافة إلى الزر CommonDiloge
ملاحظة: الزر CommonDiloge غير متوفر في القائمة ولإضافته نتبع آلاتي:
من القائمة project نختار Componrnts
نختار منه Common Diloge Control 6.0 Microsoft
ثم بعد ذلك لنرجع للـForm ونقوم بتغيير الخصائص التالية بالضبط:
الاداة: text1 الخاصية: text1 القيمة:فارغة
الاداة:text1 الخاصية: Scrollbar القيمة:2-vertical
الاداة:text1 الخاصية:Mulitiline القيمة:True
الاداة:Command1 الخاصية: Caption القيمة:فتح
الاداة:Command2 الخاصية: Caption القيمة:حفظ
الاداة:Command3 الخاصية:Caption القيمة:اللون
الاداة:Command4 الخاصية: Caption القيمة:الخط
الاداة:Command5 الخاصية: Caption القيمة:خروج
وسوف يكون شكل النموذج بعد التعديل كالشكل الآتي:
----------------
بعد ذلك تأتي مرحلة كتابة الاكواد
افتح نافذة الكود للزر Command1 والمسمى بــ"حفظ" واكتب الكود التالي:
Private Sub Command2_Click()
CommonDialog1.Filter = "text File|*.txt|Document File|*.Doc"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Input As #1
Text1 = Input$(LOF(1), 1)
Close #1
End Sub
-----------------
يأتي ألان دور الــ"حفظ" ونكتب الكود التالي بداخله
Private Sub Command1_Click()
CommonDialog1.Filter = "text File|*.txt|Document File|*.Doc"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub
----------------------
فألان جاء دور كتابة الكود الخاص بلون الخط لتغيير لون الخط المكتوب بداخل الــ text
Private Sub Command4_Click()
CommonDialog1.ShowColor
If CommonDialog1.FontName = "" Then Exit Sub
Text1.ForeColor = CommonDialog1.Color
End Sub
---------------------
أما ألان الكود الخاص بنوع الخط:
Private Sub Command3_Click()
CommonDialog1.Flags = 1
CommonDialog1.ShowFont
If CommonDialog1.FontName = "" Then Exit Sub
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.Color
End Sub
-------------------------
واخيرا وليس بأخر الكود الخاص بنهاية او الخروج من البرنامج:
Private Sub Command5_Click()
End
End Sub
----------------
انتهى
وهنا تجدون المثال بعد ا لتطبيق بالكامل
هذا الموضوع مغلق.