المستوى الثالث
سوف نتحدث في هذا المستوى على احدى اهم خطوات البرمجة وهي الاحداث
التي سوف تساعد في اعطاء الاوامر للكائنات.
الاحداث
: Activate بعد التحميل
Private Sub Form Activate ()
MsgBox "About"
End Sub
عند التنفيذ ستلاحظ بأن الرسالة تظهر بعد الفورم
------------------------
Click : عند الضغط مرة واحدة بزر اليسارمثال :
اقتباس:
Private Sub Command1_Click()
MsgBox "About"
End Sub
------------------------
DblClick : عند الضغط مرتانمثال :
اقتباس:
Private Sub Label1_DblClick()
MsgBox "About"
End Sub
------------------------
: GotFocus عند انتقال التركيز الى الاداة
------------------------
KeyDown : عند الضغط على زر من لوحة المفاتيح دون الافلات
------------------------
KeyUp :عند افلات الزر ويأتي بعد KeyDown
------------------------
Load : خاص بالفورم ويقع عند التحميلمثال :
اقتباس:
Private Sub Form_Load()
MsgBox "About"
End Sub
عند التنفيذ ستلاحظ بأن الرسالة تظهر قبل الفورم
------------------------
: LostFocus عند الغاء التركيز عن الاداة
------------------------
MouseDown : عند الضغط بأحد ازرارالفارة
------------------------
MouseMove : عند تحريك الماوس فوق الاداةمثال :
اقتباس:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line (X, Y)-(X + 50, Y + 50)
End Sub
------------------------
MouseUp : عند افلات الضغط ويأتي بعد MouseDown
------------------------
QueryUnload : عند الضغط على زر X بأعلى الشاشةمثال :
اقتباس:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "About"
End Sub
------------------------
Resize : عند تكبير او تصغير حجم الفورممثال :
اقتباس:
Private Sub Form_Resize()
MsgBox "About"
End Sub
------------------------
Unload : عند الخروج من البرنامجمثال :
اقتباس:
Private Sub Form_Unload(Cancel As Integer)
MsgBox "About"
End Sub
المستوى الرابع
في هذا المستوى سوف نشرح الادوات الموجودة في مربع الtoolbox والتي توجد فيها الكائنات
الادوات
: Pointer -1 وهي الخيار الافتراضي حيث انها ليست اداة بل تستخدم لتحريك الادوات وتكبيرها .......... الخ
: Picture -2 اداة لعرض الصور داخل اطار
: Label -3 اداة لاظهار كتابات للمستخدم دون ان يستطيع تبديلها
: Text -4 لاظهار كتابات للمستخدم مع امكانية تبديلها من قبل المستخدم
: Frame -5 وهي اداة توضع لتجميع الادوات
: Command -6 زر امر
: Check -7 لعرض اختيارات للمستخدم ويمكن تختار اكثر من خيار
: Option -8 لعرض اختيارات للمستخدم ولا يمكن اختيار اكثر من خيار
: Combo -9 لعرض قائمة من الخيارات للمستخدم حيث يمكن ان يختار منها دون ان يكتب شيء
1 : List -10 لعرض قائمة من الخيارات للمستخدم حيث يمكن ان يختار منها و يمكن ان يكتب فيه
: HScroll -11 شريط التمرير الأفقي
: VScroll -12 شريط التمرير العمودي
: Timer -13 يكرر عمل معين كل مدة زمنية وهذه الأداة لا تظهر وقت التنفيذ
: Drive -14 تشبه اداة Combo لكنها تعرض الاقراص المتوفرة لدى المستخدم
: Dir -15 تشبه اداة List ولكنها تعرض المجلدات المتوفرة لدى المستخدم
: File -16 تشبه اداة List ولكنها تعرض الملفات المتوفرة لدى المستخدم
1 : Shape -17 لرسم دائرة او مربع ...
:Line -18 لرسم خط
: Image -19 اداة لعرض الصور دون اطار
: Data -20 تستخدم للربط مع قواعد البيانات
اذا اردت اضافة اداةاضغط بزر اليمين علي قائمة الادوات واختر Components
ستظهر لك نافذة اختر منها الاداة التي تريد ثم Ok
المستوى الخامس
في هذا المستوى سوف نتعلم كيف نبرمج آله حاسبة صغيرة تحتوي على الجمع فقط
برنامج آله حاسبة
اولا نفتح مشروع جديد كما تعلمنا في المستوى الاول ومن بعد ذلك ندرج زر امر و صندوق النص ندرج منها ثلاثا (text):
نضغط على زر الامر ضغطة واحده ثم نذهب الى صندوق الخصائص ونغير الcaption = "+"
ومن ثم نضغط على زر الامر مرتين لتظهر نافذة الكود
نختار الحدث click ومن ثم نكتب التالي:
Text3.text = Val (text1.text) +Val (text2.text)
VAL: وهي عبار عن داله تحول النص الموجود في صندوق النص الى ارقام
اذا لم يتم كتابة هذه الداله سوف يكون الناتج 11 فانه يقوم بجمع الارقام كانها نص اما اذا تم كتابة هذه الداله فسوف يكون الناتج 2 فانه يقوم بجمع الارقام رياضياً
واذا اردت ان تضع زر امر لل – و * و / تفعل كما فعلنا سابقا ولكن تغير الاشارة الموجده في الكود :
Text3.text = Val (text1.text) -Val (text2.text)
Text3.text = Val (text1.text) *Val (text2.text)
Text3.text = Val (text1.text) /Val (text2.text)
ملاحظة : يجب كتابة هذه الاكواد في زر الامر المخصص له .
وبعد ان تنتهي من كتابه الكود اضغط على F5 ثم سوف يعمل البرنامج الذي قمت بتصميمه :