كيفية القيام بما يلي: استخدام ماكرو لإضافة نص في Visual Basic أو C# تعليمات برمجية المحرر

يمكنك استخدام طراز الكائن القابلية للتوسعة إضافة رمز إلى أي Visual Basicأو #Visual Cمحرر تعليمات برمجية. يستخدم ممكن من هذه الميزة تضمين إضافة الإجراءات الجديدة وإضافة كتل تعليق القياسية. تفترض هذه المهمة معرفة كيفية الوصول إلى بيئة تطوير وحدات الماكرو وإنشاء مشروع ماكرو. لمزيد من المعلومات، راجع إضافة مربع الحوار مشروع ماكرو. إلى تنفيذ نموذج الماكرو التالي, تحتاج إلى تحتوي على Visual Basicفتح المشروع.

الخطوات التالية إضافة نص إلى أحد Visual Basicمحرر تعليمات برمجية. لإضافة رمز #Visual Cمحرر تعليمات برمجية الاستخدام prjKindCSharpProjectالقيمة القائمة تعداد في الخطوة خمس (5).

ملاحظة

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

لإضافة نص في الجزء العلوي من محرر تعليمات برمجية لـ Visual Basic النشطة

1. إنشاء وحدة نمطية لماكرو جديد يسمى EditorMacros.

2. إنشاء ماكرو جديد AddSomeText، عن طريق إضافة التالية تعليمات برمجية إلى الوحدة النمطية الماكرو:

   Public Sub AddSomeText()
      ' Will add code here to add text.
   End Sub
   

3. قم بتعريف ثم يهيّئ متغير للإشارة إلى محرر تعليمات برمجية مفتوحاً.

   Dim doc As Document = DTE.ActiveDocument
   

   للحصول على أكثر المعلومات راجع Documentالكائن و ActiveDocumentالخاصية.

4. Documentيحتوي الكائن على TextDocumentالكائن الذي يمكنك الوصول إليه مع Objectأسلوب كما هو موضح أدناه.

   Dim textDoc As TextDocument = _
      CType(doc.Object("TextDocument"), TextDocument)
   

5. تأكد من إضافة رمز إلى Visual Basicمحرر تعليمات برمجية يمكنك اختبار Kindخاصية المشروع الذي يحتوي على النافذة.

   If doc.ProjectItem.ContainingProject.Kind = _
   VSLangProj.PrjKind.prjKindVBProject Then
      ' Add code here to insert text.
   End If
   

6. استخدام TextDocumentكائن إنشاء يؤشر تحرير في بداية المحرر. ثم استخدم Insertأسلوب Selectionالخاصية لإضافة نص إلى المحرر. للحصول على أكثر المعلومات راجع CreateEditPointالكائن و Selectionالخاصية.

   textDoc.StartPoint.CreateEditPoint()
   textDoc.Selection.Insert("' A comment")
   

   يظهر ماكرو كامل أدناه:

   Public Sub AddSomeText()
      Dim doc As Document = DTE.ActiveDocument
      Dim textDoc As TextDocument = _
         CType(doc.Object("TextDocument"), TextDocument)
      If doc.ProjectItem.ContainingProject.Kind = _
         VSLangProj.PrjKind.prjKindVBProject Then
         textDoc.StartPoint.CreateEditPoint()
         textDoc.Selection.Insert("' A comment")
      End If
   End Sub
   

7. حفظ الماكرو وأغلق IDE لوحدات الماكرو ثم تشغيل الماكرو من مستكشف ماكرو.

راجع أيضًا:

المرجع

ActiveDocument

Document

TextDocument