محرر نصوص بالvisual basic
في هذا البرنامج سنقوم بعمل محرر نصوص مبسط جدا إن شاء الله............
(1) الخطوه الاولي:
>> ادخل الي البيسك المرئي وابدا مشروع جديد.
(2) اضبط حجم النموذج بحيث يكون:
1230=left
1620=top
7440=width
4635=height
ثم قم بتغيير الخواص الاتيه:
border style الي 3
caption الي "محرر ملفات"
maxboutton الي false
(3) الخطوه الثالثه:
اذهب الي صندوق الادوات وانقر نقر مزدوج علي زر common dialogue ثم غير
خاصيه الاسم name الي dialogue
(4) الخطوه الرابعه:
اذهب الي صندوق الادوات اختر صندوق النصوص text box عن طريق النقر المزدوج عليه ثم غير خواصه كالتالي :
border style الي 0
scroll bars الي 3
maltiline الي true
left=0
top=0
width=7335
height=3975
(5) الخطوه الخامسه :
قم بانشاء قائمه باستخدام منشي القوائم menu editor
وضع لها الخواص التاليه :-
caption "فتح ملف" - open file مفتاح الدخول المباشر control+0
caption "حفظ ملف" - save fille مفتاح الدخول المباشر control +s
caption "الحفظ باسم جديد"- save new مفتاح الدخول المباشر control+n
caption "الابناط"- my fonts
caption "خروج " - exit
(6) الخطوه السادسه :
بعد رسم النموزج وما عليه من ادوات تحكم نبدا في كتابه خطوات البرمجه
* انقر علي زر view code الموجود في نافذه المشروع تظهر نافذه كتابه الكود
اختر general ثم اختر declaration ثم اكتب داخل النافذه خطوات البرمجه التاليه
dim file_name as string
(7) اختر exit اختر click ثم اكتب خطوات البرمجه التاليه:-
( )sub exit_click
end
end sub
(8) اختر my_fonts واختر click ثم اكتب الكود التالي:
( )sub my_fonts_click
&const SCREEN_FONTS=&h1
DIALOGE.flags=SCREEN_fonts
DIALOGE.action=4
ifDIALOGE.fontname=""then
exit sub
end if
prog6.fontname=DIALOGE.fontname
prog6.fontsize=DIALOGE.fontsize
prog6.fontunderline=DIALOGE.fontunderline
prog6.fontbold=DIALOGE.fontbold
prog6.fontitalic=DIALOGE.fontitalic
end sub
(7) الخطوه السابعه :
* اختر new_file ثم اكتب الكود التالي:
( )sub new_file_click
" "= editor.prog6
end sub
(10) الخطوه العاشره :
* اختر open file واختر click ثم اكتب الكود التابي:
( )sub open_file_click
& cost OFN_HIDERADONLY=&H4
"*.*"=DIALOGE.filename
" DIALOGE.defaultext="hda
DIALOGE.flags=ONF_HIDEREADONLY
"*.*"=DIALOGE.filter
DIALOGE.action=1
if DIALOGE.filename="*.*" then
exit sub
end if
file_name=DIALOGE.filename
close#1
open file_name for input as #1 len=10000
if LOF(1) <3000 then
" msgbox"file size should be smaller than 30 k
exit sub
end if
" " =prog6.text
(1,(1)prog6.text=input$(LOF
close#1
end sub
(11) الخطوه الحاديه عشر:
* اختر save_file واختر click ثم اكتب الكود التالي:
( )sub save_file_click
close #1
open file_name for output as #1 len=1000
write#1,prog6.text
close#1
end sub
(12) الخطوه الثانيه عشر:
* اختر save_new واكتب الكود التالي:
( )sub save_new_click
& const ONF_HIDEREADONLY=&H4
"*.*" = DIALOGE.filename
"DIALOGE.defaultext= "hda
DIALOGE.flags=OFN_HIDEREADONLY
"*.*" =DIALOGE.filter
2 = DIALOGE.action
"*.*" = if DIALOGE.filename
"لم تختر اسم ملف تم الغاء الامر " then msgbox
exit sub
end if
file_name=DIALOGE.filename
close#1
open file_name for output as #1 len =1000
write#1,prog6.text
close#1
end sub
(13) الخطوه الثالثه عشر قم بتنفيذ البرنامج .....................................
وصلي اللهم وسلم علي سيدنا محمد وعلي اله وصحبه وسلم............
