كيف اعمل تصغير للبرنامج (Minimize) بحث اتمكن من تشغيل برنامج اخر على سطح المكتب

أحد أمرين.. إما أن تضغط بالماوس على اسم الإطار النشط الذي تريد تصغيره وهو في الشريط الموجود أسفل الشاشة.. أو تنظر إلى الثلاثة الأزرار الصغيرة في الركن الأيمن أو الأيسر العلوي من الشاشة ( حسب نظامك ) أحد هذه الثلاثة الأزرار عليه علامة إكس لإغلاق التطبيق كليا والآخر لتصغيره بنسبة وسط والثالث لتصغيره بدرجة كبيرة بحيث يقبع في أسفل الشاشة ويتضح لك سطح المكتب بصورة كاملة ومنه تستطيع تشغيل أي برنامج على سطح المكتب. وإذا أردت استعادة الإطار المصغر انقر على اسمه في أسفل الشاشة بالماوس. أرجو أن يكون هذا هو ما تريد. تحياتي.

تحية لكما واسمحا لي بهذه الإشارة البسيطة:

إشارة:

للتنقل بين إطارات البرامج المفتوحة يمكنك استخدام المفتاحين Alt+Tab

شكرا يا مزيني على المعلومة.. لكن أنا شايف إن الجماعة شالوا ( نجمتي ) وشالوا واحدة من نجومك وزادوا لك بدال ( المشيولة ) كلمة فعال. يعني عوضوك بكلمة حلوة. لكن بصراحة إنت تستاهلها لأن فعال بحق وحقيق.

اشكركما على التعاون

انا استخدم الفورم المنبثق في جميع الشاشات ولذلك انا احتاج الى تصغير

البرنامج بواسطة الكود مثل : DoCmd.Minimize

ولكن على مستوى التطبيق ( البرنامج ككل ) أو عن طريق استدعاء الـ API

فهل من مساعدة ، وشكرا

يا عزيزي انت تبغى كود معين تضعه في برنامجك يقوم بالشئ هذا ؟؟

اذا كان "لا" فيوجد زر "شعار الويندوز" في لوحة المفاتيح اضغط عليه و استمر في الضغط + حرف M

يقوم بتصغير كامل التطبيق ..

اذا كان "نعم"

يحتاج اني احاول لك فيها لاني ما قد جربت حقيقة ..

جرب هذا الكود

http://www.arabteam2000.com/vb/showthread....%CA%D5%DB%ED%D1

للأخ moody1616

اقتباس

هذا الكود لإخفاء او تصغير او تكبير نافذه الاكسس

ضع هذا الكود في النموذج الذي سوف يفتح برنامجك اولا في ستارت اب  

وضع الكود الاتي في الحدث عند الفتح :  

fSetAccessWindow (SW_SHOWMINIMIZED)

هذا الكود سوف يقوم بتصغير نافذه الاكسس

ولاحذ الكود موضح الحالات الاخرى اذا اردت اخفاء اوتكبير نافذه الاكسس

Private Declare Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long



Option Compare Database

Option Explicit

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

شكرا اخوني الكرام على تعاونكم

وبخاصة الاخ العزيز محمد طاهر .

هذه اضافه على اراء الاخوان

وهو وضع الكود في عند النقر

DoCmd.RunCommand acCmdAppMinimize

مع جعل النموذج منبثق وخاصية الشرط لا

kthman.rar

الأخ الكريم كثمان الصيعري

هل يمكن التعديل على هذا الكود بحيث يمكن استخدامه مع النماذج اذا كانت خاصية الشرط نعم modal=yes و النموذج منبثق

DoCmd.RunCommand acCmdAppMinimize

أرجو كل من لديه اجابة افادتنا

تحياتي

اليك ماتوصلت اليه وارجوا اذا كان هناك افضل من هذا لدى الاعضاء الإفادة بمثال او تعديل على هذا المثال

تحياتي للجميع

1.rar