اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

  • أفضل إجابة

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

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

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

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


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

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

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

....

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

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

  • Like 6
رابط هذا التعليق
شارك

اخى محمد صالح

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

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

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

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

تحياتى

سعد عابد

رابط هذا التعليق
شارك

أشكرك أخي سعد

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

احترامى

أخي أبو الحسن

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

تقبل مروري

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

  • 9 years later...

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information