مروری بر بعضی از ویژگی های فایل های Visuak Basic Script

[Magsoud]

گاهي ميخواهيم در پنجره ايكه درست مي كنيم ، بسته بنوع پيغام يك آيكن هم ديده شود.
براي اينكاز بايستي مطابق اعداد موجود در جدول زير عمل كنيد:



همانطور كه در جدول بالا مشاهده ميكنيد عدد 0 بمعني نبود آيكن است.

فرض كنيد كه ميخواهيم كه پنجره پيغامي درست كنيم كه داراي دو دگمه Yes و No بوده و اولين دگمه در حالت
انتخاب شده باشد، و نيز پنجره داراي آيكن سوالي هم باشد. كد زير را مي نويسيم:

X=MsgBox ("Are you OK ?",36, "Test")

توجه داريد كه در محل Button مجموع اعداد 4+0+32 يعني 36 را تايپ كرديم.(عدد 4 براي اين است كه پنجزه
داراي دو دگمه Yes و No باشد. عد 0 براي اين است كه اولين دگمه از سمت چپ (در اين مثال دگمه Yes
در حالت انتخاب شده باشد. و عدد 32 براي اينكه آيكن علامت سوال وجود داشته باشد).

تا اينجا اكثريت موارد لازم در رابطه با ساخت پنجره هاي پيغام توضيح داده شد. نكته اي كه باقي مانده اين
است كه:

ما بايد بتوانيم وقتي كاربر دگمه اي را كليك كرد، بسته به دگمه اي كه كليك شد ، اقدامي انجام بدهيم.
لارمه انجام اين كار دو تا مطلب است:

1. اولين چيزي كه لازم است اينه كه بدانيم كاربر روي كدام دگمه كليك كرد.
2. چگونگي نوشتن كد ها را براي اقدامي كه ميخواهيم انجام شود بدانيم.

در زبان اسكريپت نويسي vbs ، وقتي كه پنجره اي با دگمه هاي مختلف وجود داشته باشد، بسته به اينكه
كاربر روي كدام دگمه كليك كند، كدي ايجاد ميشود كه اين كد ها نشان مي دهند كدام دگمه فشار داده شده
است.
اين كد ها عددي هستند يعني با كليك شدن روي هر دگمه، يك عددي بعنوان كد به برنامه ارسال مي شود.
اين اعداد عبارتند از:

عدد 1 يعني روي دگمه Ok كليك شده است.
عدد 2 يعني روي دگمه Cancel كليك شده است.
عدد 3 يعني روي دگمه Abort كليك شده است.
عدد 4 يعنيروي دگمه Retry كليك شده است.
عدد 5 يعني روي دگمه Ignore كليك شده است.
عدد 6 يعني روي دگمه Yes كليك شده است.
عدد 7 يعني روي دگمه No كليك شده است.

حال كه كد ها را فهميديم ميتوانيم با نوشتن كد هاي مورد نظر به برنامه بگوئيم كه بسته به كدي كه دريافت
مي كند، يعني بسته به دگمه اي كه كليك شده، چكاري انجام بدهد.

براي مثال ميخواهيم يك پنجره پيغام بسازيم كه داراي دو دگمه Yes و No باشد و در اين پيام به كاربر ميگوئيم
كه يكي از دو دگمه Yes يا No را انتخاب كرده و رويش كليك كند.
و بعد مي خواهيم بسته به اينكه كاربر روي كدام دگمه كليك كرد، كاري بكنيم.
در اينجا در مثالي كه گفته مي شود برنامه بصورت زير عمل ميكند كه:

_ اگر كاربر روي كليد Yes كليك كند، برنامه پيعام خواهد داد كه شما روي دگمه Yes كليك كرديد.

_ اگر كاربر روي كليد No كليك كند، برنامه پيعام خواهد داد كه شما روي دگمه No كليك كرديد.

كد برنامه بصورت زير است:

dim x
x = msgbox("Please select  Yes or No", 4 , "Sahand")

If x=6 then
msgbox "You clicked on Yes Button"
else
msgbox "You clicked on No Button"
end if

فايل vbs بالا را ساخته و امتحان كنيد.

ما در اين حا بسته به اينكه روي كدام دگمه كليك شد،دو نوع كار مختلف انجام داديم.
البته ميشود كار هاي ديگري را هم انجام داد ولي حسن اين مثال آن است كه در اينجا با يك دستور ديگر از
vbs هم آشنا شديد كه msgbox نام دارد.

يعني ديديد كه با استفاده از دستور msgbox هم مي شود پنجره پيغام ساده دزست نمود.
براي مثال سطر زير از كد بالا را به تنهائي نوسته و با پسوند vbs ذخيره كنيد:

msgbox "You clicked on Yes Button"

حال اگر آن را اجرا كنيد پنجره اي شبيه تصوير زير خواهيد داشت: