بسم الله الرحمن الرحيم
يمكنك تحميل ملف محرر منتديات مفتوح المصدر من هنــــــــــــــــــــــا
وإليكم شرح للشفرة البرمجية :
[ txtMain.SelText = "[center]” & txtMain.SelText & “[/center"
هذا الأمر خاص بإضافة وسمين عن يمين ويسار النص المحدد في مربع النص txtMain
ومثله أيضا :
txtMain.SelText = "[b]” & txtMain.SelText & “[/b]“
txtMain.SelText = “[u]” & txtMain.SelText & “[/u]“
txtMain.SelText = “[left]” & txtMain.SelText & “[/left]“
الأمر التالي :
SUrl = InputBox(”أدخل الرابط هنا :”, “الرابط”, “http://”)
يقوم بإظهار مربع إدخال للمستخدم ياخذ منه مدخلات (عنوان انترنت) ويضع هذا العنوان في متغير لاستعماله فيما بعد
الأمر التالي يقوم بحفظ النص :
On Error Resume Next
DlgSave.ShowSave
Open DlgSave.FileName For Output As 1
Print #1, txtMain.Text
Close 1
وشرح أسطره على الترتيب :
الأول : خاصة بمعالجة الاخطاء , إن حدثت
الثاني : يظهر مربع الحوار الخاص بالحفظ , من خلال أداة Common Dialog Control , والتي اسمها هنا DlgSave
الثالث : يفتح الملف (الذي تم اختياره من خلال مربع الحوار) للكتابة فيه ويعطيه الرقم 1 (هذا الرقم يسهل الوصول والتعامل مع الملف فيما بعد)
الرابع : يقوم بكتابة محتوى مربع النص txtMain داخل الملف الذي له الرقم 1
الخامس : يقوم بإغلاق الملف , وهذا مهم لئلا يبقى الملف مفتوحا ويؤثر على عمل الجهاز
الأمر التالي , يضيف الأعداد من 1 إلى 7 إلى قائمة عناصر , من خلال دوارة For
Dim i As Byte
For i = 1 To 7
cmbFntSize.AddItem (i)
Next
الأمر التالي , يستدعي ملف أيقونة Icon من داخل ملف المصادر Resourses المرفق مع البرنامج , وتجده بالامتداد (اللاحقة) Res
Command1.Picture = LoadResPicture(”center”, vbResIcon)
ويتم وضع الأيقونة المستدعاة كصورة لاداة زر الأمر والذي اسمه Command1
