الدرس الخامس عشر ...نظام الالوان و مربعات الحوار فى الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الدرس الخامس عشر ...نظام الالوان و مربعات الحوار فى الفجوال بيسك 6

مُساهمة من طرف أحمد مناع في السبت ديسمبر 17, 2011 1:12 pm

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



أخوانى الكرام أهلا وسهلا بكم فى الدرس الخامس عشر من دورة منتدى مصر التقنى لتعلم البرمجة بأستخدام الفجوال بيسك 6 ...درسنا اليوم أن شاء الله تعالى من جزئين :


الجزء الاول : نظام الالوان فى الفجوال بيسك 6


هناك نظامان يستخدمها البرنامج للالوان
1 – بسيط ويسمى QBColor حيث لها 16 لون يبدأ من 0 الى 15 وكل رقم يعبر عن لون مثلا
0 = اسود
15 = ابيض
والصيغة العامة لكتابة خاصية للالوان :نقوم بكتابة الكود للاداة المراد تغير لونها كما فى المثال التالى :

الرمز:
 



<p>Private Sub Form_Load()
Form1.BackColor = QBColor(7)
End Sub 

<p>
<p>
<p>
حيث Form1 اسم الاداة و BackColor اسم الخاصية وهذا يعنى جعل خلفية النافذة لونها رمادى عند تحميل النافذة ويمكن ان يكون الحدث Click كالتالى
الرمز:


Private Sub Command2_Click()
Form1.BackColor = QBColor(5)
End Sub 


 




وهذا يعنى جعل خلفية النافذة ونها بنفسجى عند الضغط على زر الامرCommand2 كما انه يمكن تطبيق الدالة على مربع النص Text واداة العنوان Label وغيرهما كالتالى



الرمز:
Private Sub Command3_Click()
Label1.ForeColor = QBColor(9)
End Sub 




وهذا يعنى تغير لون الخط فى اداه العنوان بلون ازرق فاتح ويمكن تغيير لون الخلفية لمربع النص Text واداة العنوان Label بتغيير خاصية ForeColor الى BackColor



2 – يستخدم نظام الالوان بدرجاته الثلاث ( الاحمر Red والاخضر Green والازرق Blue وثم اختصار هذه الالوان فى دالة (RGB)حيث ان كل لون له درجات من 0 الى 255 ويمكن خلط هذه الدرحات للالوان الثلاثة للحصول على لون مختلط منها مما يزيد على المقدرة فى اختيار الخط مثال
الرمز:
 



<p>Private Sub Form_Click()
Form1.BackColor = RGB(20, 50, 100)
End Sub 

<p>
وهذا يعنى ان لون الخلفية مزيج او خليط من الالوان الثلاثة بدرجات
الاحمر 20
الاخضر 50
الازرق 100
وعندما نقوم بالضغط على النافذة بزر الفارة الايسر يتغير لون الخلفية كما يمكنك من تنفيذ هذه الدالة على مربعات النص وغيرها بتغيير اللون الامامى او الخلفى بخليط من الالوان الثلاثة حسب درجة كل لون منهم

<p>
كما يمكنك جعل لون النافذة يتغير كل فترة زمنية معينة فى كل مرة تظهر بلون مختلف عن السابق وهكذا حتى نهاية الالوان ثم يعود من جديد مرة اخرى وذلك بوضع اداة المؤقت على النافذة وضبط خاصية Interval = 1000 ثم نكتب التعليمات البرمجية التالية:



الرمز:
Private Sub Timer1_Timer()
Form1.BackColor = QBColor(rnd * 15)
End Sub 




وهذا يعنى تغغير لون الخلفية كل ثانية باللون الاحمر بدرجاته الـ 16 عشوائيا ويمكن التحكم فى عملية خلط الالوان الثلاثة فى دالة RGB عن طريق شريط التمريرالافقى كذلك بكتابة التعليمات البرمجية التالية


الرمز:
Private Sub VScroll1_Change()
Form1.BackColor = QBColor(rnd * 15)
End Sub 






الجزء الثانى :أداة مربعات الحوار


ربما لم تسمع بهذه الأداة سابقاً. ولاكن سوف تعرفها:



عندما تفتح أي برنامج فإنك سوف تحفظ عملك في النهاية ! ماذا يظهر لك عندما تختار 'حفظ' ...وإذ فتحت أي برنامج وتريد فتح ملف فسوف يظهر لك أيضا صندوق الحوار الخاص بالفتح وهو نفس صندوق الحفظ!...هذا الصندوق يسمى Common Dialog و هذه الأداة تستخدم في معظم البرامج المبرمجة بواسطة الفيجوال بيسك.



أذن هى اداة هامة جدا تعمل كواجهة بينك وبين مكتبة الربط الديناميكى المسئولة عن مربعات الحوار فى ويندوزCondlg.dll وهى تتيح للمستخدم استدعاء مربعات الحوار حيث كل رقم له دليل كالتالى :
1 – فتح ملف
2 – حفظ ملف
3 – خيارات الالوان
4 – خيارات الخطوط
5 – خيارات الطابعة
6 – التعليمات المساعدة



كيفية اضافة أداة مربعات الحوار الشائعة الى نافذة الادوات نقف على نافذة الادوات ونضغط عليها بز الفارة الايمن تظهر قائمة مختصرة نختار منها Components






فيظهر مربع حوارى بنفس الاسم نحتار منه Microsoft Common Dialog Control 6.0 كما فى الصورة التالية :







سوف تظهر الأيقونة فى شريط الادوات القياسى ...أضغط عليها دبل كليك لوضعها على الفورم و أجعل الخاصية Name =cmd





اهم خصائصها :


1 – خاصية الفعل Action


وهى التى تحدد نوع مربع الحوار الذى سيظهر للمستخدم وكما ذكرنا سابقا دليل كل رقم من الارقام من 1 الى 6
2 – خاصية المرشح Filter


وهى تحدد انواع الملفات التى تريد ان تعرضها فى مربع الحوار فاذا ارت ان تعرض الملفات النصية مثلا تكتب الكود التالى ويمكن تغيير اسم الاداة من خصائصها واختصارها الى Cmd

الرمز:
Cmd.Filter="TextFiles(*.Txt)|*.txt"



3 – خاصية الدليل المبدئى IntDir


وهى خاصية اختيارية وهى تستخدم لتحديد الدليل الذى سيعرضه مربع الحوار عند ظهوره كما فى الكود التالى :



الرمز:


 

Private Sub Command4_Click()
Cmd.Action = 1
End Sub 





بالضغط على زر الامر يفتح لنا مربع مربع حوار فتح ملف




تدريب عملى

قم بادراج نافذة جديدة ووضع عليها مربع نص و4 زر امر واداة مربعات الحوار الشائعة كالتالى
غير خصائص الادوات كالتالى
Text : Text1 = منتدى مصر التنقى

Name : Common Dialog = Cmd
Caption Command1 = لون امامى
Caption Command2 = لون خلفى
Caption Command3 = الخط






اكتب التعليمات البرمجية التالية للزر الاول :



الرمز:


Private Sub Command1_Click()
Cmd.Action = 3
Text1.ForeColor = Cmd.Color
End Sub 




اكتب التعليمات البرمجية التالية للزر الثانى:



الرمز:
Private Sub Command2_Click()
Cmd.Action = 3
Text1.BackColor = Cmd.Color
End Sub 



اكتب التعليمات البرمجية التالية للزر الثالث:



الرمز:
Private Sub Command3_Click()
Cmd.Flags = 3
Cmd.Action = 4
Text1.FontName = Cmd.FontName
Text1.FontSize = Cmd.FontSize
Text1.FontBold = Cmd.FontBold
End Sub



حيث ان Flags لاستدعاء خطوط الشاشة والطابعة وهى = 3
قم بتجربة البرنامج بالضغط على F5 وجرب التعاملمع الاداة بالضغط على الازار الموضوعة على النافذة...ماذا تلاحظ ؟



عند الضغط على الزر الاول و الثانى تظهر شاشة الالوان فى الوندوز و تختار منها اللون المناسب للخط و الخلفية ..





و الزر الثالث تظهر شاشة الخط فى الويندوذ و تختار منها الخط المناسب كما فى الصورة التالية ...








تدريب عملى أخر



ضع على الفورم الأداة Picture1 وزر Command1



ضع الكود التالي في الزر:

cmd.DialogTitle ='فتح ملف'

Cmd.Filter = 'Gif صور|*.gif|JPG صور|*.jpg|Bmp صور|*.bmp|كافة الملفات|*.*'

Cmd.ShowOpen

If cmd.FileName ='' Then Exit Sub

Picture1.Picture = LoadPicture(Cmd.FileName)







شرح الكود:

السطر الأول : تحديد العنوان الذي سوف يظهر في أعلى الصندوق

السطر الثاني : تحديد الملفات التي سوف يعرضها الصندوق

السطر الثالث : إظهار الصندوق

السطر الرابع : إذا لم يتم تحديد ملف ألغي الحدث

السطر الخامس: عرض الصورة التي قمت بتحديدها في الأداة PIcture1


سوف نتحدث الأن عن عملية فتح وحفظ مستند نص:جهز الفورم بالأدوات التالية....زرين أمر : فتح و حفظ
أداة عرض النص Label1 , أداة الكتابة Text1 ولاتنسى تبديل الخصائص MultiLine و ScrollBars

وأهم شيىء الأداة commonDialog لاحظ الشكل التالي:









كتابة الشيفرة:أنقر دبل كليك على زر الفتح وأكتب الكود التالي:



Dim file As String

CommonDialog1.Filter = 'ملفات النصوص|*.txt'


CommonDialog1.ShowOpen

Open CommonDialog1.FileName
For Input As #1


Input #1, file

Close

Text1.Text = file




السطر الأول : التصريح عن متحول نصي

السطر الثاني : تحديد الملفات التي سيعرضها الكمون دايلوك

السطر الثالث : إظهار اللكمون دايلوك

السطر الرابع والخامس والسادس فتح المستند كمتحول

السطر السابع : عرض مسار الملف في Label1

السطر الأخير عرض النص في أداة الكتابة Text

نأتي إلى الحفظ :ضع الكود التالي في زر الحفظ:


Dim a As String

a = Text1

CommonDialog1.Filter = 'Text File|*.txt'

CommonDialog1.FileName = a

CommonDialog1.ShowSave




السطر الأول : التصريح عن متحول نصي (a)

السطر الثاني إسناد النص المكتوب إلى المتحول a


السطر الثالث: تحديد قيمة الكمون دايلوك وهو المتحول a

السطر الرابع عرض مربع الحفظ.

وبذلك نكون قد أعطينا فكرة عن إستعمال الكمون دايلوك . طبعاً هناك العديد من الأحداث لهذه الأداة سوف تمر معنا في الدروس القادمة.وبعملك وتجريبك أنا متأكد من أنك ستنجز شيئاً عظيماً

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الدرس الخامس عشر ...نظام الالوان و مربعات الحوار فى الفجوال بيسك 6

مُساهمة من طرف salamfaraj2002 في الخميس أغسطس 13, 2015 8:06 am

يعطيك العافية

salamfaraj2002
....
....

تاريخ التسجيل : 18/04/2015
المساهمات : 54
النقاط : 68
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى