اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عرض رسالة على المستخدم لمدة زمنية محددة ثم تختفى بتدخل أو بدون تدخل منه


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

 

أساتذتى واخوانى الأعزاء السلام عليكم ورحمة الله وبركاته

اليوم أقدم لكم كودا تستطيع من خلاله أن تعرض على المستخدم رسالة Message box 

ثم تختفى الـ Message box  بعد تعامل المستخدم مع أزرار ها فاذا لم يتدخل تختفى الـ Message box  تلقائيا بعد مدة زمنية محددة

الكود وعليه شرح بسيط :

Sub MokhtarTest()

Dim Title As String
Dim Delay As Byte
Dim iType As Integer
Dim Msg As String
Dim MyObject As Object

' عنوان  الرساله
Title = " منتدى أوفيسنا"

Delay = 2                                                              ' مدة عرض الرساله بالثانية

iType = 0                                                        ' نوع الرسالة يساوى عدد مما يأتى

            '  من 128 الى  134'   من 64 الى 70 '  من 32 الى 38  '  من 16 الى 22  '  من صفر الى 6
                                                                 
Msg = Space(10) & "مرحبا" & vbLf & vbLf & " تاريخ اليوم " & vbLf & vbLf & Date  ' حجم ونص الرسالة

Set MyObject = CreateObject("WScript.Shell")

MyObject.Popup Msg, Delay, Title, iType

Set MyObject = Nothing                                                            ' تفريغ الذاكرة

End Sub



 

تفضلوا المرفق والسلام عليكم

displays a timed Message box then hide without click buttons .rar

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

أخى الأستاذ محمد حسن  ما أروع كلماتك الرقيقة  بارك الله فيك

أخى الأستاذ ابراهيم ابو ليله  أشكرك شكرا جزيلاً  بارك الله فيك

 

 

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

أخى وأستاذى العزيز جعفر     بارك الله فيك      شرفنى مروركم الكريم       لك كل التحية والتقدير

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

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

بارك الله أستاذنا الفاضل مختار حسين محمود .. كود رائع و الفكرة أروع .. نقلته إلى حدث الذيس وورك بوك .. فأصبح الميساج بوكس عبارة عن رسالة إشهارية إفتتاحية .. جزاك الله خيرًا و زادها بميزان حسناتك

5612a20aa4855___.thumb.gif.ecf0014a88a86

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

أخى العزيز خالد الشاعر      جزاكم الله خيرا وتقبل الله منا و منكم

أخى العزيز عبدالعزيز       جزاكم الله خيرا وتقبل الله منا و منكم

أخى وأستاذى الغالى ياسر    جزاكم الله خيرا وتقبل الله منا و منكم  يا معلمى العزيز

 

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information