تعليم الفيجوال

[خوية الحاسب]

ما هي ادوات التحكم

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

[خوية الحاسب]

التعامل مع ادوات التحكم


اضافة اداه تحكم الي النموذج:

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

اختيار الأداة: قبل اجراء أي عملية من عمليات نقل أو تحجيم الأدوات أو نسخها أو نقلها أو حذفها يجب اختيار الأداة أو الأدوات ثم اجراء العملية المطلوبة . اختيار الأداة يعني تحديدها أو تنشيطها بحيث تتأثر بالحدث الذي سيتم . لاختيار أو تنشيط أداة بعد وضعها على الواجهة وجه إليها مؤشر الفأرة ثم انقر زر الفأرة ستظهر ثمانية مربعات حول الأداة لتدل على اختيارها أو تنشيطها . إذا أردت تنفيذ عملية على أكثر من أداة اختر الأدوات كلها قبل تنفيذ العملية ويتم ذلك بطريقتين . إذا كانت الأدوات متجاورة فيمكنك اختيارها جميعًا عن طريق النقر في مكان فارغ على النافذة ثم سحب المؤشر اثناء السحب يظهر مستطيل منقط ليوضح لك الأدوات التى ستختارها وبمجرد اطلاق زر الفأرة سيتم اختيار كل الأدوات التى طوقتها اثناء السحب . إذا كانت الأدوات متباعدة انقر أول اداة ثم اضغط مفتاح Shift واستمر ضاغطًا اثناء نقر باقي الأدوات ، بعد الانتهاء من اختيار الأدوات ارفع يدك على مفتاح Shift..



نقل الأدوات: لنقل أداة من مكانها إلى مكان آخر انقر الأداة ثم اسحبها إلى المكان الجديد اثناء السحب سيتحرك مستطيل فارغ بنفس حجم الاداة كلما حركت المؤشر ، عندما تحدد المكان المناسب ارفع يدك من على زر الماوس . ستنتقل الاداة إلى الموقع الجديد .

تغيير حجم الأداة: لتغيير حجم الأداة اتبع الآتي : انقر الأداة لتنشيطها. انقل المؤشر إلى أحد مقابض التحجيم الموجودة على اضلاع أو جوانب المستطيل الذى يحيط بالاداة ، سيتغير شكل المؤشر إلى سهم ذو رأسين . اسحب المقابض بالضغط على زر الفأرة الأيسر ولاحظ تغير حجم المستطيل مع حركة الفأرة وعندما تحصل على الحجم المطلوب اترك زر الفأرة

[خوية الحاسب]

تحرير الادوات

النسخ: اضغط مفتاحي Control + C, او افتح قائمة Edit ثم Copy...

القص: اضغط مفتاحي Control + X, او افتح قائمة Edit ثم Cut...

القص: اضغط مفتاحي Control + V, او افتح قائمة Edit ثم Paste...

حذف الاداه: اضغط مفتاح Delete, او افتح قائمة Edit ثم Delete

[خوية الحاسب]

هذه الاداه سهلة و مهمة في نفس الوقت, و في هذا المثال سأشرح كيفية استخدامها..

• الفكرة: سنضع CheckBox و Image و عند الضغط علي CheckBox تتغير قيمته و تظهر الصورة حسب القيمة..
• اكتب هذا الكود في CheckBox:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Image1.Visible = True
End If
End Sub

• بالنسبة الي رقم واحد بجانب Check1.Value فهو قيمة الصندوق و تكون كالتالي:0 Unchecked
1 Checked
2 Grayed

[خوية الحاسب]

Combo & List Box


اولا: Combo Box:

• لوضع اختيارات في هذا الصندوق نكتب الكود التالي في الفورم:


Private Sub Form1_Load()
Combo1.AddItem “Ehab”
Combo1.AddItem “Ahmed”
End Sub


و بهذه الكود يتزود الصندوق بكلمتي Ehab و Ahmed و اذا اردت اضافة اسماء اخري فاستخدم نفس الكود ولكن مع تغيير الاسماء..


2) لكتابة الكود عليك اولا تغييرالاجراء Change الموجودة بصفحة الكود الخاصة بالصندوق الي Click ثم اكتب الكود التالي:

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Expression
Case 1
Expression
End Select
End Sub












الشرح:

لاحظ اني استخدمت قاعدة Select Case و قد بدأت بCase 0 و ليس Case 1 فCase 0 مسئولة عن الاسم Ehab اما Case 1 فمسئولة عن الاسم Ahmed, اما بالنسبة الي Combo1.ListIndex فتعني انه سيقوم التحكم في عناصر الصندوق, و كلمة Expression قصدت بها انه يمكن كتابة اي حدث مثل Image1.Visible = True او Label1.Caption = Ehab ..الخ, اما نهاية الكود End Select تنهي قاعدة Select Case.

ثانيا: List Box:

• لوضع اختيارات في هذا الصندوق نكتب الكود التالي في الفورم:


Private Sub Form1_Load()
List1.AddItem “Ehab”
List1.AddItem “Ahmed”
End Sub


و بهذه الكود تتزود القائمة بكلمتي Ehab و Ahmed و اذا اردت اضافة اسماء اخري فاستخدم نفس الكود ولكن مع تغيير الاسماء..

2) لكتابة الكود عليك اولا تغييرالاجراء Change الموجودة بصفحة الكود الخاصة بها الي Click ثم اكتب الكود التالي:

Private Sub Combo1_Click()
Select Case List1.ListIndex
Case 0
Expression
Case 1
Expression
End Select
End Sub

الشرح كما هو في ComboBox

[خوية الحاسب]

Common Dialog


تستخدم هذه الاداه في كثير من الاشياء, ولكنني سأشرح القليل منها الآن..


اولا: اظهار لوحة الالوان:


[COLOR="DarkOrchid"]نستطيع من خلال Common Dialog فتح قائمة الالوان لتغيير لون الفورم او شكل.. الخ[/COLOR

و اعتقد ان الجميع يعرفها...












لأستخدام Common Dialog في اظهار هذه اللوحة نقوم بالآتي:
1) وضع Common Dialog في الفورم.
2) وضع الزر الذي عند الضغط عليه تظهر اللوحة.
3) وضع الكائن المراد تغيير لونه.
4) كتابة الكود التالي في الزر:

Private Sub Command1_Click()
CommonDialog1.Flags = &H1&
CommonDialog1.ShowColor
Element.Action = CommonDialog1.Color
End Sub

الشرح:

عند كتابة الامر CommmonDialog1.ShowColor يقوم البرنامج باظهار صندوق الالوان, اما Element.Action فأن Element هي الكائن المراد تغيير لونه مثل Label1 او Form1 اما Action فهي اما ForeColor اي لون مقدمة الكائن او BackColor و هي خلفيته او BorderColor و هو لون الاطار الخارجي و يكون في الاشكال فقط, و CommonDialog1.Color هي ان لون ما اخترت تغييره سيكون اللون المختار من صندوق الالوان..





ثانيا: فتح ملفات الصور:

نستطيع من خلال Common Dialog فتح ملف صورة bmp او jpg او gif, ذلك عن طريق اتباع الآتي:
1) وضع Common Dialog في الفورم.
2) وضع الزر الذي عند الضغط عليه يظهر صندوق الفتح.
3) وضع Image او Picture.
4) كتابة الكود التالي في الزر:

Private Sub Command1_Click()
CommonDialog1.Filter = "Bitmaps (*.bmp)|Jpeg (*.jpg)”"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub

في السطر الاول تمت كتابة نوع الملفات التي يتم اظهارها و ممكن زيادتها, و في الثاني يقوم Common Dialog بفتح نافذة الفتح لاختيار الصورة و وضعها في الصورة...




















ثالثا: فتح ملف txt:

نستطيع من خلال Common Dialog فتح ملف نص و ذلك عن طريق اتباع الآتي:
1) وضع Common Dialog في الفورم.
2) وضع الزر الذي عند الضغط عليه يظهر صندوق الفتح.
5) وضع Rich****************Box.
6) كتابة الكود التالي في الزر:

Private Sub Command1_Click()
CommonDialog1.Filter = "**************** (*.txt)"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Rich****************Box1.LoadFile (CommonDialog1.FileName)
End If
End Sub

في السطر الاول تمت كتابة نوع الملفات التي سيتم اظهارها, و في الثاني يقوم Common Dialog بفتح نافذة الفتح و اختيار الملف و وضعه في ****************Box...هذه هي اهم مهام لهذه الاداه واذا اردت معرفة المزيد راجع الجزء الخاص ****************Box..

[Compunet]

جزاك الله خيراااا

[مس واااااو]

ماقصرتي ...



الف شكر لك ..

[خوية الحاسب]

يعافيكم ربي ع المرور


وربي لا يحرمنا تواجدكم العطر

[الغموض]

يعطيك الف عافيه يارب