jjafferr قام بنشر أغسطس 9, 2021 مشاركة قام بنشر أغسطس 9, 2021 السلام عليكم 🙂 في الكثير من الاحيان لما نكون في وضع التصميم ، في النموذج او التقرير ، نتمنى لو انه بإمكاننا تكبير الشاشة حتى نرى تفاصل الكائنات ونضعها بجوار بعضها بدقة ، ولكن للأسف الاكسس لا يقدم لنا هذه الخاصية (مثل الاكسل والبوربوينت مثلا) 🙂 في الواقع الوندوز يقدم لنا هذه الخدمة ، ولكن كبرنامج مستقل 🙂 يمكنك استخدام برنامج التكبير بطريقة مستقلة ، بإستخدام ازرار الكيبورد: 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 7 4 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر أغسطس 9, 2021 مشاركة قام بنشر أغسطس 9, 2021 شكر وتقدير واحترام من اخيك استاذنا رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أغسطس 9, 2021 مشاركة قام بنشر أغسطس 9, 2021 وخاصة الشياب الى زينا يحتاجوها بكثرة ... اشكرك اخي @jjafferr رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 9, 2021 مشاركة قام بنشر أغسطس 9, 2021 رائعة بارك الله لك رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 10, 2021 مشاركة قام بنشر أغسطس 10, 2021 عوداً حميداً استاذنا الفاضل @jjafferr وجزاكم الله خيراً على كل ما تقدمه لإخوانك تحياتي رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أغسطس 10, 2021 مشاركة قام بنشر أغسطس 10, 2021 استاذنا ومعلمنا / @jjafferr دائما مبدع ـ دائما تأتى بالجديد جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر أكتوبر 12, 2023 مشاركة قام بنشر أكتوبر 12, 2023 استاذنا ومعلمنا / @jjafferr والله أنا صدقت لما سميتك بروفيسور الأكسس دائما مبدع ـ دائما تأتى بالجديد . جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.