Make your own free website on Tripod.com

استخدام فيجوال بيسك إسكربت Visual Basic Script و رسائل التنبيه 

تتمتع فيجوال بيسك إسكربت Visual Basic Script بالسهولة بالمقارنة بجافا اسكربت ففي جافا إسكربت JavaScript لإصدار رسائل التنبيه نكتب السطر التالي :

<script language="JScript">

alert ("مرحبا بك مع جافا اسكربت")

</script>

 والمقارنة بين المثالين تظهر لك تبدو فيجوال بيسك إسكربت Visual Basic Script سهلة ، فالكثيرين يعرفون صيغة تنفيذ تلك الرسالة بالأمر Msgbox

وأيضاً تضيف فيجوال بيسك إسكربت Visual Basic Script  لك التمتع  بصيغ رسائل عدة من خلال تزويد السطر ببارامترات تتحكم في نوع الرسالة وعنوانها فضلاً عن محتواها .

<script language="vbscript">

 MsgBox  (“مرحبا بك مع موقع فيجوال بيسك للجميع”,64,”تحية للمستخدم”)

</Script>

 

و نوع الرسالة يختلف باختلاف الرقم الذي يلي محتوي الرسالة كما بالجدول التالي :

الثابت

الأزرار الناتجة
 

0

"Ok" button

موافق

1

"Ok" AND "Cancel" buttons

موافق - إلغاء

2

"Abort", 'Retry", AND "Ignore" buttons

تجاهل-إعادة المحاولة - إحباط

3

"Yes", 'No", AND "Cancel" buttons

نعم-لا-إلغاء

4

"Yes" AND "No" button

نعم-لا

5

"Retry" AND "Cancel" button

إلغاء إعادة المحاولة

القيم التي نحصل عليها من صندوق الرسائل :

الثابت

الأزرار الناتجة

0

أول زر من اليسار هو النشط

256

الزر الثاني من اليسار هو النشط

512

الزر الثالث من اليسار هو النشط

768

الزر الرابع من اليسار هو النشط

الصور التي يحملها صندوق الرسائل

الثابت

الصورة المقابلة

16

alerticon.gif (1013 bytes)

32

alerticon2.gif (1015 bytes)

48

alerticon3.gif (1015 bytes)

64

alerticon4.gif (1005 bytes)

0

بدون

الصور السابقة تظهر تبعاً لقيمة العدد المصاحب لرسالة التنبيه

 

 

 

تحديد الزر المضغوط في صندوق الرسائل :

returnvalue=MsgBox ("Incorrect",37,"Pop Quiz")

القيمة المقابلة

الزر المضغوط

القيمة المقابلة

الزر المضغوط

1

Ok

موافق

5

Ignore

تجاهل

2

Cancel

إلغاء

6

Yes

نعم

3

Abort

إحباط

7

No

لا

4

Retry

إعادة محاولة

 

 

 

ففي المثال التالي يعود المستعرض صفحة للخلف ، إذا ضغط المستخدم الزر “Retry"

<script language="VBscript">

returnvalue=MsgBox ("Incorrect",37,"Pop Quiz")
If returnvalue=
4 Then
history.go(-1)
End If

</script>

فمثلاُ عندما نضع العدد = 2 نحصل علي رسالة التنبيه التالي :

وإذا أردنا أن نضمن الرسالة الصورة رقم 2 نضع العدد = 18 (2 + 16)  حيث 2 تتحكم في نوع الأزرار ، و16 تعبر عن الصورة alerticon.gif (1013 bytes)

والعدد 18 = 2 + 16 + 0 ، أي أن الزر النشط هو أول زر من جهة اليسار وهو إحباط ، وإذا أردنا أيكون الزر الثاني هو النشط فنضع بدلاً من الصفر العدد 256 ، وبذلك يكون المجموع 274 = (2 + 16 + 256)

 ولنفرض أن المستخدم  نقر الزر الثالث (رقمه = 5) ، فإن المبرمج في هذه الحالة يضع برنامج فرعي يتحول إليه البرنامج عندما يحصل علي الرقم 5 نتيجة نقر ذلك الزر

وفيما يلي مثال يؤكد علي الصفحة التي يريد أن يذهب إليها المستخدم قبل الانتقال الفعلي :

<script language="vbscript">

Sub entrance_onClick

returnvalue=MsgBox (" أنت بصدد الانتقال لموقع مركز الكمبيوتر التربوي أو الانتقال لصفحة البداية",52,"!تحياتي ")

If returnvalue=6 Then

window.location="http://www.mbadr.hypermart.net"

Else

window.location="http://www.ahmedbadr.com"

End If

End Sub

 

</script>

 

<form>

<input type="button" name="entrance" value="انقر هنا للدخول لموقع مركز الكمبيوتر التربوي">

</form>

 


وهذا هو البرنامج