كيفية القيام بما يلي: قائمة اختصارات لوحة المفاتيح الحالية

استخدم هذا الإجراء لإنشاء macro يقوم بإنشاء قائمة كل الأوامر الموجودة في بيئة التطوير المتكاملة (IDE) و أية مفاتيح اختصار تم تعيينها إلى هذه الأوامر طبقاً الحالي مخطط تعيين لوحة المفاتيح.

تتوفر عدة أنظمة تعيين لوحة المفاتيح في IDE. يمكنك تغيير أنظمة تعيين لوحة المفاتيح فيلوحة المفاتيحالصفحة، أسفل بيئة المجلد " خياراتمربع حوار لمزيد من المعلومات، راجع كيفية القيام بما يلي: تعمل مع لوحة مفاتيح الاختصارات.

ملاحظة

قد تختلف مربعات الحوار وأوامر القائمة التى تشاهدها الان عن تلك الموصوفة في التعليمات اعتماداً على الإعدادات النشطة أو الإصدار الخاص بك. لتغيير الإعدادات اضغط Import and Export إعدادات ضمن أدواتالقائمة. لمزيد من المعلومات، راجع العمل مع إعدادات.

إلى قائمة تعيينات اختصارات لوحة المفاتيح الحالية

1. من أدواتالقائمة, قم بالإشارة إلى Macros، ثم انقر فوق Macros IDE.

2. في مستكشف المشاريع, ينقر مزودجا MyMacros.

3. انقر بزر الماوس الأيمن فوق Module1، ثم انقر فوق إعادة التسمية.

4. اكتب الاسم التالي للقيمة الجديدة:

5. ينقر مزودجا اختصارات لوحة المفاتيح لفتح الملف في المحرر.

6. قم بلصق التعليمة البرمجية التالية في الملف بعد :

   Sub GetAllCommands()
   
       Dim cmd As Command
       Dim ow As OutputWindow = DTE.Windows.Item(Constants.vsWindowKindOutput).Object
       Dim owp As OutputWindowPane
       Dim exists As Boolean
       Dim i As Integer
       Dim sArray() As String
   
       sArray = New String() {}
       i = 1
       exists = False
   
       For Each owp In ow.OutputWindowPanes
           If owp.Name = "Macro Output" Then
               exists = True
               Exit For
           End If
           i = i + 1
       Next
   
       If exists Then
           owp = ow.OutputWindowPanes.Item(i)
       Else
           owp = ow.OutputWindowPanes.Add("Macro Output")
       End If
   
       owp.Clear()
   
       ' Output 1 line per command
       For Each cmd In DTE.Commands
           Dim binding As Object
           Dim shortcuts As String
           shortcuts = ""
   
           For Each binding In cmd.Bindings
               Dim b As String
               b = binding
               If Not shortcuts = "" Then
                   shortcuts += "--OR-- "
               End If
               shortcuts = shortcuts + b + " "
           Next
   
           shortcuts = shortcuts.Trim()
   
           If Not cmd.Name.Trim().Equals("") And Not shortcuts.Equals("") Then
               sArray.Resize(sArray, sArray.Length + 1)
               sArray(sArray.Length - 1) = cmd.Name + vbTab + shortcuts
           End If
       Next
   
       Array.Sort(sArray)
       owp.OutputString(String.Join(vbCrLf, sArray))
   
   End Sub
   

7. من ملفالقائمة انقر فوق حفظ MyMacros.

8. التبديل إلى ‏‫Visual Studio.

9. منأدواتالقائمة، قم بالإشارة إلى Macros، ثم انقر فوق Macro Explorer.

10. قم بتوسيع MyMacros ثم قم بتوسيع KeyboardShortcuts.

11. انقر الزر اليمينيGetAllCommands ثم انقر فوق تشغيل.

    الماكرو بإنشاء قائمة بالكل أوامر المحتملة في IDE و أي تعيينات اختصارات لوحة المفاتيح لها هذه الأوامر في نظام لوحة المفاتيح الحالية على التعيين.

12. فيعرضالقائمة انقر فوق Design (تصميم).

    تركيبات مفاتيح الاختصار الخاصة بهم تظهر الأوامر في إخراجالنافذة يمكن نسخ هذه المعلومات ثم لصقه في تطبيق آخر، مثل Microsoft ‏‫Office Excel تنسيقات إضافية و خيارات الطباعة.

راجع أيضًا:

المهام

كيفية القيام بما يلي: تعمل مع لوحة مفاتيح الاختصارات

المبادئ

اختصارات لوحة المفاتيح المعرفة مسبقاً

موارد أخرى

إعدادات ‏‫Visual Studio