الدرس 24: برنامج تنسيق النصوص:

  • طباعة

الأدوات المستخدمة:

خانة النص TextBox، أداة العنوان Label، القائمة ListBox، القائمة المنسدلة ComboBox، أداة الأختيار OptionButton، أداة التحقق CheckBox.

 

 

تصميم واجهة التطبيق:

1-              ابدأ بمشروع جديد.

2-           ضع أداتي عنوان، وعنون الأولى بـ "حجم الخط" والثانية بـ "نوع الخط".

3-           ضع ثلاث أدوات اختيار Option وغير خاصية Caption لهم إلى  "أحمر"، "أخضر"، "أزرق".

4-           ضع ثلاث أدوات تحقق Check وغير خاصية Caption لهم إلى  "عريض"، "مائل"، "مسطر".

5-              ضع أداة قائمة List، وأداة قائمة منسدلة Combo.

6-              ضع خانة نص Text1 وغير خصائصها كما يلي:

الخاصية

القيمة الجديدة

Text

Microsoft Visual Basic 6.0

MultiLine

True

ScrollBars

3-Both

الخاصية MultiLine تجعل خانة النص تقبل أكثر من سطر، والخاصية ScrollBars تُظهر أشرطة تمرير لخانة النص.

7-             
رتب الأداوت السابقة بحيث تظهر كما في الشكل:

 


كتابة الشفرة:

1-في البداية يجب تعبئة القائمة List بأسماء الخطوط، والقائمة المنسدلة Combo1 بججوم الخطوط، ويتم ذلك في الحدث Form_Load الذي سبق وذكرنا أنه يقع عند تحميل النافذة، اكتب في هذا الحدث الشفرة التالية:

For i = 3 To 100

  Combo1.AddItem i

Next i

 

For i = 0 To Screen.FontCount - 1

  List1.AddItem Screen.Fonts(i)

Next i

 

Combo1.ListIndex = 5

الحلقة الأولى تهتم بعملية إضافة الأرقام من 3 وحتى 100 إلى القائمة المنسدلة Combo1، وذلك باستخدام الأمر AddItem والذي يقوم بإضافة العنصر الذي يأتي بعده إلى عناصر القائمة.

الحلقة الثانية تهتم بتعبئة أسماء الخطوط، حيث يمثل Screen.FontCount عدد الخطوط و يمثل Screen.Fonts(i) اسم الخط ذو الرقم I، ولاحظ أن الترقيم يبدأ من الصفر.

السطر الأخير في الشفرة يقوم بتحديد الحجم في الموقع الخامس كحجم أفتراضي.

2- يجب الآن عند اختيار خط معين من القائمة List أن يتغير نوع الخط في خانة النص Text1 إلى الخط المقابل، ويتم ذلك بكتابة الشفرة التالية في الحدث List1_Click الذي يقع كلما تم اختيار عنصر جديد من القائمة:

Text1.FontName = List1.Text

حيث تمثل List1.Text العنصر (الخط) المختار.

3- اكتب الشفرة التالية في الحدث Combo1_Click :

Text1.FontSize = Val(Combo1.Text)

وذلك لتغيير حجم الخط، بما يوافق الحجم المختار. لاحظ كيف استخدمنا التابع Val لتحويل النص إلى عدد.

4- اكتب الشفرة التالية في الحدث Option1_Click:

Text1.ForeColor = RGB(250, 0, 0)

أي كلما ضغطنا على أداة الاختيار، قم بتغير لون الخط إلى اللون الأحمر.

5- اكتب الشفرة التالية في الحدث Option2_Click:

Text1.ForeColor = RGB(0, 250, 0)

6- اكتب الشفرة التالية في الحدث Option3_Click:

Text1.ForeColor = RGB(0, 0, 250)

7- اكتب الشفرة التالية في الحدث Check1_Click:

Text1.FontBold = Check1.Value

إن Text1.FontBold تأخذ قيمتين أما True وتعني أن الخط عريض، أو False وتعني أن الخط ليس عريض، لذلك اسندنا لها القيمة Check1.Value التي تمثل اختيار المستخدم إما True أو Flase.

8- اكتب الشفرة التالية في الحدث Check2_Click:

Text1.FontItalic = Check2.Value

9- اكتب الشفرة التالية في الحدث Check3_Click:

Text1.FontUnderline = Check3.Value

 

اختبار البرنامج:

نفذ البرنامج السابق واختبره،  وفي حال وجود أي خطأ تحقق من النص البرمجي المكتوب