تكبير الشاشة

[jjafferr]

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

 

في الكثير من الاحيان لما نكون في وضع التصميم ، في النموذج او التقرير ، نتمنى لو انه بإمكاننا  تكبير الشاشة حتى نرى تفاصل الكائنات ونضعها بجوار بعضها بدقة ، ولكن للأسف الاكسس لا يقدم لنا هذه الخاصية (مثل الاكسل والبوربوينت مثلا) 🙂

في الواقع الوندوز يقدم لنا هذه الخدمة ، ولكن كبرنامج مستقل 🙂

يمكنك استخدام برنامج التكبير بطريقة مستقلة ، بإستخدام ازرار الكيبورد:

1. لإغلاق البرنامج ، زر الوندوز + Esc

2. لتكبير الشاشة ، وتكون ثابته ، زر الوندوز + Alt + F

3. لتكبير الشاشة كمكبر يدوي ، زر الوندوز + Alt + L

.

وهذه هي الاعدادات التي استعملها انا :

.

 

 

والآن اليكم هذه الطريقة في برنامج الاكسس (يمكننا استعمال اختصارات الوندوز اعلاها في عملنا كذلك) :

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

.

 

الكود هو:

Private Sub btn_Zoom_Click()

    'open/close the magnify glass
    
    If Me.btn_Zoom = -1 Then
    
        'turn ON the magnifying glass
        'Shell "cmd /c C:\Windows\System32\Magnify.exe /lens", vbHide
        Shell "cmd /c C:\Windows\System32\Magnify.exe /fullscreen", vbHide
    Else
        'manually close it:
        ' Win key & Esc key
        
        'call the Function to kill the magnifying glass process
        Call WMI_KillProcesse("Magnify.exe")
    End If
    
End Sub

Private Sub btn_Zoom_lens_Click()

    'open/close the magnify glass
    
    If Me.btn_Zoom_lens = -1 Then
    
        'turn ON the magnifying glass
        Shell "cmd /c C:\Windows\System32\Magnify.exe /lens", vbHide
        'Shell "cmd /c C:\Windows\System32\Magnify.exe /fullscreen", vbHide
    Else
        'manually close it:
        ' Win key & Esc key
        
        'call the Function to kill the magnifying glass process
        Call WMI_KillProcesse("Magnify.exe")
    End If
    
End Sub

.

واما كود اغلاق برنامج التكبير ، اي يوقف تشغيله من الكمبيوتر:

'---------------------------------------------------------------------------------------
' Procedure : WMI_KillProcesse
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Forcibly kill all the instances of a specified process
' Copyright : The following is release as Attribution-ShareAlike 4.0 International
'             (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/
' Req'd Refs: Uses Late Binding, so none required
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' sProcessName  : Name of the process to kill
' sHost         : Host computer to query, omit for the local PC
'
' Usage:
' ~~~~~~
' Call WMI_KillProcesse("explorer.exe")
' Call WMI_KillProcesse("excel.exe")
' Call WMI_KillProcesse("calculator.exe")
'
' Revision History:
' Rev       Date(yyyy-mm-dd)        Description
' **************************************************************************************
' 1         2015-05-28              Initial Release
' 2         2020-08-21              Added Proc Header
'                                   Code updated
'                                   Updated Error Handler
'                                   Made it Option Explicit compliant
'---------------------------------------------------------------------------------------
Public Function WMI_KillProcesse(sProcessName As String, Optional sHost As String = ".") As Boolean
    On Error GoTo Error_Handler
    Dim oWMI                  As Object    'WMI object to query about the PC's OS
    Dim sWMIQuery             As String    'WMI Query
    Dim oCols                 As Object
    Dim oCol                  As Object
 
    Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sHost & "\root\cimv2")
    sWMIQuery = "SELECT Name FROM Win32_Process"
    Set oCols = oWMI.ExecQuery(sWMIQuery)
    For Each oCol In oCols
        If LCase(sProcessName) = LCase(oCol.Name) Then
            oCol.Terminate    ' Kill this instances of the process
        End If
    Next oCol
    WMI_KillProcesse = True
 
Error_Handler_Exit:
    On Error Resume Next
    Set oCol = Nothing
    Set oCols = Nothing
    Set oWMI = Nothing
    Exit Function
 
Error_Handler:
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: WMI_KillProcesse" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Function

 

 

جعفر

Magnify.mdb

[abouelhassan]

شكر وتقدير واحترام من اخيك استاذنا

[kanory]

وخاصة الشياب الى زينا يحتاجوها بكثرة ... اشكرك اخي @jjafferr

[أ / محمد صالح]

رائعة

بارك الله لك

[محمد أبوعبدالله]

عوداً حميداً استاذنا الفاضل @jjafferr

وجزاكم الله خيراً على كل ما تقدمه لإخوانك

تحياتي

[الحلبي]

استاذنا ومعلمنا / @jjafferr

دائما مبدع ـ دائما تأتى بالجديد

جزاكم الله كل خير

[kkhalifa1960]

استاذنا ومعلمنا / @jjafferr والله أنا صدقت لما سميتك بروفيسور الأكسس

دائما مبدع ـ دائما تأتى بالجديد .  

جزاكم الله كل خير