دالة رسالة تبقى لمدة محددة

[أ / محمد صالح]

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

بناء على طلب أخينا الكريم عبد الله المجرب (أبو أحمد)

يتم هنا مناقشة دالة الرسائل التي تظهر لمدة محددة بالثواني ثم تختفي تلقائياً

الصيغة العامة لها

intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])

شرح البارامترات object : كائن wscript الذي تم إنشاؤه strText : نص الرسالة (مطلوب) nSecondsToWait : عدد ثواني بقاء الرسالة على الشاشة (اختياري) القيمة الافتراضية 0 وتعني عدم اختفاء الرسالة إلا بعد الضغط على زر فيها strTitle : عنوان الرسالة (اختياري) إذا لم يتم كتايته يظهر "Windows Script Host" nType : رقم يحدد الأزرار والأيقونات المستعملة في الرسالة (اختياري) وترجع الدالة رقم intButton الخاص برقم الأزرار التي ضغطها المستخدم حتى يخفي الرسالة ويهمنا في هذا المقام الأزرار والأيقونات وهي كالتالي وهي مثل دالة msgbox العادية في أنه يمكنك جمع قيمتين أو أكثر سواء بعلامة + أو بكتابة حاصل الجمع الفعلي فمثلا لعمل رسالة بها زر نعم أولا وأيقونة علامة الاستفهام نكتب 4+32 أو 36 نأتي الآن للقيمة التي ترجعها الدالة نأخذ مثالاً

set WshShell = CreateObject("WScript.Shell")

Result = WshShell.Popup("This is a popup box!", 10, "Title", 65)

ويمكن تنفيذ الأمر بدون وضع القيمة الراجعة في متغير

set WshShell = CreateObject("WScript.Shell")

WshShell.Popup "This is a popup box!", 10, "Title", 65

ويمكنك استعمال هذه الدالة من تصميمي للتعامل مع popup

Function msg(strText As String,nSecondsToWait as integer, strTitle As String, nType As Integer)

CreateObject("WScript.Shell").Popup strText,nSecondsToWait,strTitle,nType

End Function

طريقة استعمالها

Sub mas()

msg "text", 2, "title", 4+256

End Sub

....

وفي الأخير لا ينقصني سوى دعاؤكم

وفقنا الله وإياكم لكل ما يحب ويرضى

[saad abed]

اخى محمد صالح

شرح اكثر من رائع

جزاك الله خيرا وبارك فيك

اسال الله العلى القدير ان يذلل لك كل صعب

وان يرزقك فهم النبيين

تحياتى

سعد عابد

[abouelhassan]

الله يرضى عليك استاذنا ولا اروع

نعم السؤال ونعم الجواب

احترامى

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي محمد صالح

وبارك الله في اخي عبدالله

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

[أ / محمد صالح]

أشكرك أخي سعد

وقد أجابك من هو أفضل مني (الملائكة) : آمين ولك مثلها

اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا

[أ / محمد صالح]

الله يرضى عليك استاذنا ولا اروع

نعم السؤال ونعم الجواب

احترامى

أخي أبو الحسن

أدام الله حسنك

ووفقك لكل ما يحب ويرضى

[أ / محمد صالح]

أخي الفاضل خبور خير

وفق الله إخواننا أهل اليمن إلى كل ما فيه الخير لليمن وللأمة الإسلامية

[الـعيدروس]

معلومات نادرة

انا استخدم هذه الرسالة ولاكن لم اعرفها بالتفصيل الا الان

جزاك الله خير استاذ محمد صالح وجعل عملك في موازين حسناتك يارب

تقبل مروري

[عبدالله المجرب]

سلمت يمينك ابا عبدالله على هذه الالماسات التي تنثرها في ارجاء المنتدى

[أ / محمد صالح]

إخواني الكرام أبا نصار وأبا أحمد

شكرا لمروركم الكريم

أتمنى أن أكون قد ساهمت في توضيح هذا الأمر لكل طالب له

وفقنا الله وإياكم لكل ما يحب ويرضى

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

جزاك الله كل خير استاذ محمد صالح

نسأل الله العلي العظيم ان ينعم عليك بوافر فضله وكرمه واحسانه

[أ / محمد صالح]

آمين ولك مثلها أخي أحمد

بارك الله لك ونفع بك

[ahmed saif]

بارك الله فيك

[أ / محمد صالح]

جميعا بإذن الله @ahmed said

نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا