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

[مختار حسين محمود]

 

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

اليوم أقدم لكم كودا تستطيع من خلاله أن تعرض على المستخدم رسالة 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

[محمد حسن المحمد]

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

لا أجد تعبيراً أفضل من جزاك الله خيراً....

تم تعديل أكتوبر 5, 2015 بواسطه محمد حسن المحمد

[إبراهيم ابوليله]

اخى مختار

فكره جميله

وكود جميل

فى انتظار المزيد

تقبل تحياتى

[مختار حسين محمود]

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

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

 

 

[جعفر الطريبق]

مشكور يا أستاد مختار حسين على الكود الجميل

[مختار حسين محمود]

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

[خالد الشاعر]

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

[عبد العزيز البسكري]

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

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

[ياسر خليل أبو البراء]

مش هطول في الكلام أخي الغالي مختار

هما كلمتين وبس :: ما أروعك!

[مختار حسين محمود]

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

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

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