تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية عمل مسج بوكس تظهر لمدة ثم تختفي
#1
كاتب الموضوع : AhmedEssawy

منقولة من المنتدى القديم للأخ بدرميديا .

تعتمد هذه الدالة على معرفة الهاندلر Handler الخاص بالمسج بوكس لتستطيع بعد ذلك التحكم بها واظهارها واخفاءها كما تريد من خلال مجموعة من الأرقام والقيم قام الأخ بتعريفها في أول الكود مثل الثابت : NV_CLOSEMSGBOX والذي يعني الرقم &H5000 وهو الذي يتم استخدامه ارساله في العملية ولكن هذا التعريف لتسهيل الأسماء فقط .

لاحقاً سيقوم بالاعتماد على مجموعة من API's للبحث عن المسج بوكس ومن ثم تفعيلها ، يمكنك في هذه الحالة استخدام أمر SendKeys لارسال ضغطة زر Enter لاغلاق المسج بوكس .



نكتب في الموديول

كود :
Public Const NV_CLOSEMSGBOX As Long = &H5000&
Public Declare Function SetTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&, _
ByVal uElapse&, ByVal lpTimerFunc&)
Public Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function LockWindowUpdate& Lib "user32" (ByVal hwndLock&)
Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hWnd&)
Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Public Declare Function KillTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&)
Public Const API_FALSE As Long = 0&
Public Sub TimerProc(ByVal hWnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)
KillTimer hWnd, idEvent
Dim hMessageBox&
'هنا نغير عنوان الرسالة
hMessageBox = FindWindow("#32770", "[EMAIL="BADRMEDIA@HOTMAIL.COM"]BADRMEDIA@HOTMAIL.COM[/EMAIL]")
If hMessageBox Then
Call SetForegroundWindow(hMessageBox)
SendKeys "{enter}"
End If
Call LockWindowUpdate(API_FALSE)
End Sub
وفي زر الأمر


كود :
SetTimer hWnd, NV_CLOSEMSGBOX, 4000&, AddressOf TimerProc
Call MessageBox(hWnd, "تعلم مع بدرميديا ولا تنسنا من الدعاء", _
"[EMAIL="BADRMEDIA@HOTMAIL.COM"]BADRMEDIA@HOTMAIL.COM[/EMAIL]", MB_ICONQUESTION Or MB_TASKMODAL)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مفاجاة المبتدئين كود منع ادخال قيمة حرفية في التكست بوكس RaggiTech 1 844 17-10-12, 03:28 PM
آخر رد: RaggiTech
  كيفية وضع كلمة كخلفية للفورم RaggiTech 0 405 17-10-12, 12:54 AM
آخر رد: RaggiTech
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 549 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية رسم هرم RaggiTech 0 636 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 377 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 665 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية القيام باغلاق ال forms المختلفة RaggiTech 0 341 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية القراءة والكتابة إلى INI File RaggiTech 0 359 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,004 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اطفاء الشاشة وتشغيلها RaggiTech 0 366 17-10-12, 12:50 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم