أغزائي
السلام عليكم ورحمة الله وبركاته
لدي برنامج أكسس يعمل في الخلفية والمطلوب أنه بعد توقيت معين تظهر شاشة (فورم ) بها تنبيه للمستخدم الذي يعمل على الكمبيوتر على برنامج آخر
لكن عندما تظهر الفورم الخاصة ببرنامجي تظهر تحت الشاشة التي يعمل فيها المستخدم
أريد أن أجعل برنامج الأكسس في المقدمة وبالأخص الشاشة التي بها رسالتي
حتى يتمكن المستخدم من رؤيتها والتعامل معها
أشكركم
وعليكم السلام ورحمة الله وبركاته
أحيلك أخي الكريم إلى هذا الموضوع:
ففيه سؤال مثل سؤالك تماماً... وهذا هو الكود المقترح، وتضعه في النموذج الذي تريده أن يظهر في المقدمة، وتفتحه كما تفعل الآن، مع إضافة هذا الكود:
Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOACTIVATE = &H10 Const SWP_SHOWWINDOW = &H40 Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Private Sub Form_Activate() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'Set the window position to topmost SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE End Sub
والله أعلم.