تكبير النموذج بدون تغطية شريط قائمة إبدأ

[Ahmed_J]

السلام عليكم

هل من الممكن تكبير النموذج المستمر لياخذ حجم الشاشة بدون تغطية شريط قائمة إبدأ

علما بان النموذج مستمر ومنبثق  واستخدمت الكود (DoCmd.Maximize) ولم ينفع

وشكرا لكم

test.accdb

تم تعديل نوفمبر 22, 2020 بواسطه Ahmed_J

[jjafferr]

وعليكم السلام 🙂

 

في جميع برامجي ، انا استخدم هذه الطريقة اللي في المرفق هنا:

 

 

جعفر

[Ahmed_J]

استاذ @jjafferr

السلام عليكم

ممكن توضح لي اي كود هو مسؤول عن طريقة تكبير النموذح  رجاءا  لان فيه الكثير من الوحدات النمطية والاكواد

وشكرا لك

تم تعديل نوفمبر 22, 2020 بواسطه Ahmed_J

[jjafferr]

وعليكم السلام 🙂

 

سؤالك كان عن تكبير النموذج ، وارفقت لك الطريقة اللي استعملها انا في تكبير البرنامج ليملئ الشاشة ويخفي بقية الكائنات 🙂

اما البرنامج شخصيا ، اعتبره Bonus ، ويمكنك معرفة تفاصيله بقراءة موضوعه 🙂

 

جعفر

[Ahmed_J]

شكرا لك استاذ @jjafferr

انا لسة مبتديء ولا اعرف طريفة التعامل مع الوحدات النمطية 

آسف على الازعاج 

[jjafferr]

ما لك علاقة بيهم ، اتركهم كما هم ، ونادهم من الماكرو AutoExec ، كما هو موضح هناك ،

و الماكرو AutExec جاهز كما هو ، مجرد غيّر اسم نموذج الافتتاح 🙂

 

جعفر

[Ahmed_J]

استاذي العزيز @jjafferr

افهم من كلامك انه اقوم بنقل كل هذه الوحدات النمطية الى ملفي الجديد + AutoExec

علما بان لدي اكثر من نموذج مستمر  اريد تكبيره ؟  هل استدعيهم بالدالة (Turn_Off())

وشكرا لك

 

[jjafferr]

1 دقيقه مضت, Ahmed_J said:

افهم من كلامك انه اقوم بنقل كل هذه الوحدات النمطية الى ملفي الجديد + AutoExec

autoexec

basJStreetAccessRelinker

m_Arc_Subs

فقط 🙂

 

اما الماكرو ، فقط تغير اسم النموذج (ولا تجعل النموذج منبثق ولا Dialog ، ولا تجعل على فتح النماذج (Maximize) :

.

وفي برنامجك ، لما تفتح نموذج ، لا تغلق النموذج الذي انت فيه 🙂

 

جعفر

[Ahmed_J]

تسلم استاذ @jjafferr

كلوا تمام فقط بقى :- 

1- اريد اخفاء الازرار  (التكبير والتصفير والاغلاق) علما انه بخصائص النموذج عاملهم (no)

2- النموذح يمكن طيه بسحب الماوس من الاعلى (يمكن تغيير حجمه) وقابل للنفل هل يمكن تثبيتة  بصورة ثابته

وشكرا لك استاذي العزيز

تم تعديل نوفمبر 22, 2020 بواسطه Ahmed_J

[jjafferr]

استعمل نماذج عادية بدون لمس هذه الاعدادات ، لأن الازرار التي تظهر في البرنامج هي ازرار البرنامج وليس النماذج ،

[Ahmed_J]

شكرا لك استاذ @jjafferr

بارك الله فيك 

[jjafferr]

في ٢٣‏/١١‏/٢٠٢٠ at 00:06, Ahmed_J said:

فقط بقى :- 

1- اريد اخفاء الازرار  (التكبير والتصفير والاغلاق) علما انه بخصائص النموذج عاملهم (no)

2- النموذح يمكن طيه بسحب الماوس من الاعلى (يمكن تغيير حجمه) وقابل للنفل هل يمكن تثبيتة  بصورة ثابته

.

قصدك هذه الازرار:

.

السبب ان هذه الازرار لا تتفاعل مع اعدادات النموذج ، لأن هذه ازرار البرنامج وليست ازرار النموذج 🙂

 

وطريقة إخفائهم تتم عن طريق مكتبات الوندوز:

Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_SYSMENU = &H80000
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Public Const SWP_FRAMECHANGED = &H20

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
                ByVal hwnd As Long, _
                ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
                ByVal hwnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) As Long

Private Declare PtrSafe 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
' **************************************************
'

Public Function AccessTitleBar(Show As Boolean) As Long
'
' Calling it AccessTitleBar(0)
' This will Hide Acces Title Bar
' it will fill the screen, without a Title Bar without Buttons, so you will have to give the use a way to quit
'
    Dim hwnd As Long
    Dim nIndex As Long
    Dim dwNewLong As Long
    Dim dwLong As Long
    Dim wFlags As Long

    hwnd = hWndAccessApp
    nIndex = GWL_STYLE
    wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE

    dwLong = GetWindowLong(hwnd, nIndex)

    If Show Then
        dwNewLong = (dwLong Or WS_CAPTION)
    Else
        dwNewLong = (dwLong And Not WS_CAPTION)
    End If

    Call SetWindowLong(hwnd, nIndex, dwNewLong)
    Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)
End Function
    
    
Public Function AccessTitleBarButtons(Show As Boolean) As Long
'
' Calling it AccessTitleBarButtons(0)
' This will Hide the Buttons: MINIMIZE, AXIMIZE, Close buttons on the Access Title Bar
' to Hide MINIMIZE Button ONLY: Const FLAGS_COMBI = WS_MAXIMIZEBOX Or WS_SYSMENU
' to Show MINIMIZE Button ONLY: Const FLAGS_COMBI = WS_MINIMIZEBOX
'
' to Hide them all: Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU
'
    Dim hwnd As Long
    Dim nIndex As Long
    Dim dwNewLong As Long
    Dim dwLong As Long

    hwnd = hWndAccessApp
    nIndex = GWL_STYLE

    Const wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE
    Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU

    dwLong = GetWindowLong(hwnd, nIndex)

    If Show Then
        dwNewLong = (dwLong Or FLAGS_COMBI)
    Else
        dwNewLong = (dwLong And Not FLAGS_COMBI)
    End If

    Call SetWindowLong(hwnd, nIndex, dwNewLong)
    Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)
End Function

.

1. اذا اردنا اخفاء الازرار ، فننادي دالة: AccessTitleBarButtons(0)

2. بينما اذا لا نريد الازرار ، ولا نريد تحريك البرنامج من شريط الادوات Toolbar ، فيجب اخفاء شريط الادوات (ويمكن استبداله في النموذج بمربع تسمية ، اذا لزم الامر) ، فننادي دالة: AccessTitleBar(0)

المناداة تكون في ملف الماكرو AutoExec والذي يعمل تلقائيا لما يعمل البرنامج :

.

لتصبح الشاشة هكذا:

 

جعفر

example_semo.zip

[Ahmed_J]

السلام عليكم

بارك الله فيك استاذنا العزيز @jjafferr

وشكرا لك

[jjafferr]

حياك الله 🙂

 

ولكن رجاء تذكّر:

لا تقيّد المستخدم بإحكام ، بحيث حتى هذه الازرار تخفيها عنه ،

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

 

جعفر

[Ahmed_J]

استاذي العزيز @jjafferr

نعم واضح جدا  حيث يجب اكمال البرنامج من جميع النواحي 

شكرا لك استاذي العزيز

بارك الله فيك

[jjafferr]

ولكي يكون الموضوع متكامل 🙂

وبدل ان تستخدم القوائم المختصرة الافتراضية :  و  

والتي تسمح للمستخدم ان يدخل في تصميم النموذج والتقرير ، او بدل ان تخفي القائمة المختصرة من البرنامج فلا يستفيد المستخدم من احد اهم القوى المتوفرة في الاكسس بدون برمجة ،

 

اعمل قائمتك المختصرة مثل:   او    او    او   

او  

 

حسب التعليمات في هذ الموضوع: القائمة المختصرة - Shortcut menu - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

 

[Ahmed_J]

السلام عليكم  استاذ @jjafferr

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

شكرا لك

[foadch]

اضافة كود الى عند التحميل

[SEMO.Pa3x]

عليكم السلام، طبق هذه الخيارات

[jjafferr]

عفوا اخي د.حسنين 🙂

 

طريقتي التي شرحتها هنا ، لا تستخدم نماذج منبثقة 🙂

 

جعفر

27 دقائق مضت, foadch said:

اضافة كود الى عند التحميل

عفوا اخي ، لم افهم المطلوب!!

 

جعفر