محرر منتديات مفتوح المصدر (VB 6)

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

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

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

[ 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

أفضل طرق حفظ قيم رسائل التنبيه (VB 6)

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

إن سألك أحدهم : “كيف تحفظ قيمة رسائلك التنبيهية ؟”

غالبا ستقول :

Dim X as integer

X = Msgbox (“Hello World”,vbYesNo,”Msg)

If X = 6 Then End

لكن ألا تلاحظ أنها طريقة متعبة , وتحتاج حفظ ؟

حسنا ما هو الرقم الذي ستكتبه إن كنت تريد هل ضغط المستخدم زر Cancel , Retry أو غيره

ربما تحتاج إلى مرجع , أو السؤال في منتدى ما أو غيره

لكنني , ومن منطلق “أن البرمجة ليست حفظا” , وجدت نوع بيانات اسمه VbMsgBoxResult

استبدل إذن Integer بـVbMsgBoxResult

تصبح الجملة :

Dim X as VbMsgBoxResult

اكتب في محرر الكود :

X =

سيظهر لك قائمة بالأزرار التي تعرضها رسائل التنبيه

سؤال / وماذا أفعل لأضع قيمة MsgBox داخل X ؟

لا عليك , فقط قم بكتابة

X = MsgBox “Msg Here …”

وسيضع القيمة في المتغير بشكل عادي