السلام عليكم ورحمة الله وبركاته
اخوتي الاعزاء ...
اثناء بحثي عن حل لهذه المسالة ... والتي تبدو في الظاهر بسيطة الا انها تسبب مشكلات كبيرة خاصة اذا كان المستخدمون ممن يفضلون دائما استخدام زر ال(X) الموجود في أعلى شاشة الاكسس للخروج
وتحدث هذه كثيرا ... بالرغم من وجود زر اغلاق في الشاشات ... وهذا احيانا قد يسبب توقف البرنامج او عدم تنفيذ امر معين. .
على العموم حتى لا اطيل عليكم ..
هذا مثال من موقع أجنبي لكود يوضع في الوحدة النمطية ويستدعي من النموذج .... عند التعامل مع الكود يجب استخدام الحدث المناسب ضمن اطار برنامجك حتى لا تتفاجأ باختفاء الزر نهائيا!
ملاحظات ...
بمجرد اغلاق القاعدة الحالية يعود كل شي لطبيعته
يجب ان تقوم بعمل زر به امر خروج نهائي من الاكسس حتى تتفادى اي اشكالات ...
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000
Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function 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) As Long
Sub HideAccessCloseButton()
Dim lngStyle As Long
lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
lngStyle = lngStyle And Not WS_SYSMENU
Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)http://www.techonthe.../hide_close.php
للمزيد
وتحياتي للجميع ...