Developer Ala2

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

يمكنك تحميل ملف محرر منتديات مفتوح المصدر من هنــــــــــــــــــــــا

وإليكم شرح للشفرة البرمجية :

[ 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