اذهب الي المحتوي
أوفيسنا

مساعدة في اخفاء خلفية الاكسس كليا


AliAli47

الردود الموصى بها

السلام عليكم 

لدي قاعدة بيانات قمت بإخفاء الخلفية لها عن طريق الكود لكن عند انزال البرنامج عن طريق التصغير واعادة فتحه من taskbar

تظهر الخلفية كما هو موضح في الصورة

هل يمكن اخفاء الخلفية كليا ؟

 

 

Sans_itre.png

تم تعديل بواسطه AliAli47
رابط هذا التعليق
شارك

57 minutes ago, AliAli47 said:

السلام عليكم 

لدي قاعدة بيانات قمت بإخفاء الخلفية لها عن طريق الكود لكن عند انزال البرنامج عن طريق التصغير واعادة فتحه من taskbar

تظهر الخلفية كما هو موضح في الصورة

هل يمكن اخفاء الخلفية كليا ؟

 

 

Sans_itre.png

هذه المشاركة قد تفيدك ...

 

رابط هذا التعليق
شارك

نعم طبقت هاذا الشرح لكن المشكلة تبقى عند تصغير البرنامج واعادة فتحه وهو في وضع التشغيل الخلفية تظهر مثل ما في الصورة المرفقة

تم تعديل بواسطه AliAli47
رابط هذا التعليق
شارك

 

اخي العزيز ..اول شي اعمل shortcut   للملف الاصلي

اذهب الى ملف ال shortcut … وبالضغط على الزر الايمن والضغط على properites  سوف تظهر لك صفحة shortcut … قم باختيار minimized

رابط هذا التعليق
شارك

سوف اشرحها بالتفصيل كما تعلمته من اساتذتي  ...

عند الضغط على زر الفأرة الايمن تظهر لك قائمة ...اختر منها Creat shortcut

سوف يقوم البرنامج بعمل نسخة مختصرة ...اذهب اليها وبالنقر على الزر الايمن سوف ياخذك لصفحة shortcut

اقم بأختيار minimized  سطر Run

ارجو ان يكون الجواب واضحا ...

رابط هذا التعليق
شارك

نعم لقد طبقت هاته الخطوات وعند فتح البرنامج للمرة الاولى الخلفية لا تظهر لكن عند الضغط على زر minimized داخل البرنامج 

ثم الضغط على زر maximazed تظهر الخلفية مثل ماهو موضح في الصورة

تم تعديل بواسطه AliAli47
رابط هذا التعليق
شارك

  • 2 weeks later...

اتبع الإجراءات التالية

 

اولاً / انشئ Module1 جديد

و الصق فيه الشيفرة التالية

Option Compare Database
ption Explicit

Public MyUserName, MyPassword, Full_Name, MyUser_Active, MyAddition, MyUpdate, MyDeletion, MyUser_NO As String

Const SW_HIDE = 0
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Const SW_MAXIMIZED = 3

Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Sub HideAccess()
    Call ShowWindow(Access.hWndAccessApp, 0)
End Sub
Public Sub ShowAccess()
    Call ShowWindow(Access.hWndAccessApp, 5)
End Sub

 

و في النموذج الرئيسي في حدث عند الفتح الصق الكود التالي

HideAccess

 

فالك التوفيق انشاء الله

  • Like 1
رابط هذا التعليق
شارك

  • 3 months later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information