مرحبا اخواني
هل بامكاني عمل Minimize لبرنامج اكسس
توضيح
عند تشغيل البرنامج مع وجود Maximize لا يمكني مشاهده الساعه مثلا او فتح المسنجر او عمل اي شي الا عند تسكير البرنامج هل يمكني عمل زر يعمل علي تنزيل البرنامج الي الاسفل من غير تسكير البرنامج
ارجوا ان يكون السؤال واضح
ولكم جزيل الشكر
هذا الكود من موقع أجنبي
************ Code Start ********** ' This code was originally written by Dev Ashish. ' It is not to be altered or distributed, ' except as part of an application. ' You are free to use it in any application, ' provided the copyright notice is left unchanged. ' ' Code Courtesy of ' Dev Ashish ' Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) 'Usage Examples 'Maximize window: ' ?fSetAccessWindow(SW_SHOWMAXIMIZED) 'Minimize window: ' ?fSetAccessWindow(SW_SHOWMINIMIZED) 'Hide window: ' ?fSetAccessWindow(SW_HIDE) 'Normal window: ' ?fSetAccessWindow(SW_SHOWNORMAL) ' Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm If Err <> 0 Then 'no Activeform If nCmdShow = SW_HIDE Then MsgBox "Cannot hide Access unless " _ & "a form is on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If Else If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If End If fSetAccessWindow = (loX <> 0) End Function '************ Code End **********
و الرابط
شكرا اخي البرنامج جيد ولكن لا يعمل مع وجود Maximize
هل من حل لها
وشكرا
والله الموفق
ضع هذا الكود على زر on clik
DoCmd.RunCommand acCmdAppMinimize
السلام عليكم
من الافضل اخي الكريم جعل خصائص الـ Task Bar يختفي آليا AutoHide وذلك بالنقر عليه بالزر الايمن و اختيار خصائص.
حيث يكفي المرور بالماوس ليظهر فتستطيع تشييك الساعة و الماسنجر و اي برنامج اخر مفتوح;)
DoCmd.RunCommand acCmdAppMinimize
نعم الامر شغال ولكن السؤال
عند ارجاع فتح الشاشة يكون في وضع Minimize
كيف نجعله Maximize آليا عند ارجاع فتح الشاشه
اتمنى السؤال يكون واضح
اما بالنسبة اخفاء شريط نعم معك انه افضل ولكن Maximize له مميزات افضل ايضا
السلام عليكم
بما انك وضعت زر امر جرب الامر التالي في حدث on click
Docmd.Restore
ويمكنك جعل الشاشة تعود لوضع Maximize بتنفيذ الامر التالي
DoCmd.Maximize
واجعله عند حدث On Double Click لزر الامر السابق مثلا
شكرا اخي
جرب ووضعت Docmd.Restore
وفي كذا حدث ولم ينجح معي لاني لم اعرف في اي حدث بالضبط اضعه
وحاولت ولكن لم انجح :'(
والله الموفق
السلام عليكم
كل عام وانتم بخير
اخي الكريم قمت بصنع نموذج ليكون بداية البرنامج عند بدء التشغيل وجعلته بوضع Maximize عند حدث الفتح OnOpen وعند حدث OnGotFocus وذلك باستخدام الامر التالي Docmd.Maximize
ثم وضعت زر امر وجعلت الحدث OnClick ينفذ الامر التالي
DoCmd.RunCommand acCmdAppMinimize
والذي وضعه اخينا ساالم-1111
فينكمش البرنامج الى ال taskBar وعند نقره يعود لوضع Maximize
ما ادري هل ينفع ذلك مع برنامجك
وبالتوفيق
اخي العزيز الصراف
السلام عليكم ورحمة الله وبركاته
ضع على النموذج المراد تصغيره زر امر وضع عند النقر الكود الذي ذكره الاخ الهاجري التاليDoCmd.RunCommand acCmdAppMinimize
وضع الكود التالي عند الفتح وعند تغيير الحجم في النموذجDoCmd.Maximize
ولا تنسى تغيير خصائص النموذج الى منبثق وغيره من الخصائص
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
