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

السلام عليكو ورحمة الله

اقدم لكم اليوم معلومات جديدة لتصميم برنامج يشبة المفكرة - كتابة النصوص في text وحفظها على الجهاز في ملف txt

الخطوات

اولا ادرج text وحول فيها الخصائص التالية
scrollbar الى both
multiline الى true

ثم ادرج commondialog
من قائمة project اختار components ثم اختار
microsoft commondialog1 control 6.0


اكتب ما تشاء في text وغير خصائص الخط حسب الرغبة

وبعد الانتهاء من الكتابة جاء وقت الحفظ

لحفظ ما يوجد بداخل text
ادرج زر امر واكتب فيه
commondialog1.showsave
f=freefile
open commondialog1.filename for output as #f
print #f,text1
close #f

شغل البرنامج واكتب ما تشاء ثم اضغط على زر الامر واحفظ ما كتبت



ملاحظة يمكنك تحديد الطريقة التي ترغب بحفظ ما كتبت

اكتب اسم الملف ثم نقطة ثم احد الامور التالية
txt ملف نصي
doc ملف مايكروسوف ويرد
html صفحة ويب

من المفضل ان تختار txt

اضافة للبرنامج

تحميل الخطوط الموجودة في الجهاز

ادرج list او combo box ثم اكتب ما يلي في الحدث load

for i = 0 to screen.fontcount -1
combo1.additem screen.fonts(i)
next

ثم اكتب ما يلي في الحدث click ل combo1
text1.font=combo1

اضافة للبرنامج

تغيير حجم الخط

أدرج combo box ومن خاصية list اضف ما تشاء من الارقام

مثلا اضف الارقام التالية
8 , 12 , 14 , 18 , 22 , 26 , 28 , 32, 42
ثم اكتب ما يلي في الحدث click
text1.fontsize=combo2

فيتغير حجم الخط في text

مشكور

شكرا لك اخي

شكرا لك