التحكم في إعدادات خيارات

يمكنك تنشيط أو إلغاء تنشيط إعدادات الصفحات المختلفة في صندوق الحوار خيارات أدوات (تسمى hereafter "الصفحات" خيارات "). بساطة استخدم Propertiesو Valueالخصائص و Itemأسلوب DTEالكائن في Visual Studioطراز التنفيذ التلقائي.

ملاحظة

بعض عناصر تشغيل بعض الصفحات خيارات غير قابلة للوصول بشكل مبرمج. عناصر الأكثر، مثل كـ تعليق الرمز المميز قائمة في صفحة خيارات قائمة Tكـk، يمكن عرض أو تغيير برمجياً. ولكن بعض الصفحات خيارات "، مثل تعليمات الحيوي الصفحة، وهي في تعليمات عقدة الصفحة بيئة، لا. بالإضافة إلى ذلك، وبينما تمتلك بعض الصفحات خيارات إعدادات قابلة للبرمجة، بعض عناصر تشغيل الصفحة غير قابلة للوصول بالضرورة. إذا وجدت أنك لا يؤثر على إعداد، قد تحتاج لاستخدام برنامج Visual Studio Industry Partner (VSIP)للقيام so. ل المزيد من المعلومات، راجع قسم "اضافه إعدادات إلى موجود خيارات الصفحات" لاحقاً في هذا الموضوع. للحصول على قائمة كاملة بخيارات قابلة للوصول بشكل برمجي و أسمائهم بالضبط، راجع "خاصيه أسماء العناصر" في لتحديد الأسماء من خصائص عناصر تشغيل الصفحات خيارات.

عرض إعدادات خيارات

استخدم Propertiesمجموعة و Propertyالكائن للوصول إلى إعدادات موجودة خيارات الصفحة. يعرض المثال التالي VSMacro الجميع الأسماء وقيم الحالي لالجميع عناصر الموجودة في "مستندات" خيارات الصفحة.

' Macro code.
Sub PropertiesExample()
    ' Create and initialize a variable to represent the Documents 
    ' Options page.
    Dim envGenTab As EnvDTE.Properties = _
    DTE.Properties("Environment", "Documents")
    Dim prop As EnvDTE.Property
    Dim msg As String

    ' Loop through each item in the Documents Options box.
    For Each prop In envGenTab
        msg += ("PROP NAME: " & prop.Name & "   VALUE: " & _
        prop.Value) & vbCr
    Next
    MsgBox(msg)
End Sub

VSMacro التالية مثال يعرض الجميع الخصائص متوفر في الصفحة خيارات ل قائمة المهام ضمن العقدة بيئة. كما يسرد الجميع قيم متوفر ل تعليق الرمز المميز للقائمة.

' Macro code.
Sub DisplayProperties()
    ' Variables to represent the properties collection
    ' and each property in the Options dialog box.
    Dim prop As EnvDTE.Property
    Dim props As EnvDTE.Properties
    Dim propVals As Object()
    Dim propVal, msg As String

    ' Represents the Task List Node under the 
    ' Enviroment node.
    props = DTE.Properties("Environment", "TaskList")
    ' Represents the items in the comment Token list
    ' and their priorities (1-3/low-high).
    prop = props.Item("CommentTokens")
    propVals = prop.Value

    Try
        ' List each property name for the Options page
        ' and all of its possible values.
        For Each prop In props
            msg += "PROP NAME: " & prop.Name & vbCr
            For Each propVal In propVals
                msg += "  Value: " & propVal & vbCr
            Next
        Next
        MsgBox(msg)
    Catch ex As System.Exception
        MsgBox("ERROR: " & ex.Message)
    End Try
End Sub

يوضح هذا المثال الجميع الإعدادات القابلة للبرمجة ل خيارات الصفحة ضمن محرر نص | C# | تنسيق.

' Macro code.
Sub PropertiesExample()
    ' Create and initialize a variable to represent the C#‎ 
    ' Formatting text editor options page.
    Dim txtEdCSFormat As EnvDTE.Properties = _
    DTE.Properties("TextEditor", "CSharp - Formatting")
    Dim prop As EnvDTE.Property
    Dim msg As String

    ' Loop through each item in the C# Formatting Options page.
    For Each prop In txtEdCSFormat
        msg += ("PROP NAME: " & prop.Name & "   VALUE: " & _
        prop.Value) & vbCr
    Next
    MsgBox(msg)
End Sub

تغيير إعدادات خيارات

بينما يمكنك تغيير القيمة لعناصر التحكم تشغيل صفحة موجودة خيارات ، لا يمكن إضافة أو إزالة، أو تعديل أي من عناصر التحكم الخاصة به أو إعدادات. إلى تحديد الإعدادات الخاصة بك، يجب أن تقوم بإنشاء صفحة خيارات cusإلىm. لمزيد من المعلومات، راجع كيفية القيام بما يلي: قم بإنشاء الصفحات خيارات مخصصة.

تغيير قيمة عنصر في صفحة خيارات يشبه جداً إلى عرض قيمته. تبين الأمثلة الماكرو التالية كيفية إلى القيام بذلك.

اﻷول مثال (إلى olOpt1) إلى ggles القيمة منطقية ReuseSavedActiveDocWindow، الذي يبلغ هو إلى خيار "اعاده استخدام نافذة مستند الحالي، إذا تم الحفظ" على الصفحة مستندات للعقدة البيئة.

' Macro code.
Sub ToolOpt1()
    Dim props As EnvDTE.Properties = DTE.Properties("Environment", _
    "Documents")
    Dim prop As EnvDTE.Property

    prop = props.Item("ReuseSavedActiveDocWindow")
    ' If value is TRUE, change it to FALSE, or vice-versa.
    MsgBox("PROP NAME: " & prop.Name & "   VALUE: " & prop.Value)
    prop.Value = Not (prop.Value)
    MsgBox("PROP NAME: " & prop.Name & "   VALUE: " & prop.Value)
    ' Change it to the original value.
    prop.Value = Not (prop.Value)
End Sub

التغييرات VSMacro التالية على سبيل المثال و ثم قم بإعادة تعيين القيمة الحجم علامة تبويب في علامات تبويب مقطع الصفحة أساسي للعقدة محرر نص.

' Macro code.
Sub ToolOpt2()
    Dim props As EnvDTE.Properties = DTE.Properties("TextEditor", _
    "Basic")
    Dim prop As EnvDTE.Property
    Dim tmp As String

    prop = props.Item("TabSize")
    ' Set a new value for Tab Size.
    MsgBox("PROP NAME: " & prop.Name & "   VALUE: " & prop.Value)
    tmp = prop.Value
    prop.Value = 10
    MsgBox("PROP NAME: " & prop.Name & "   VALUE: " & prop.Value)
    ' Change it back to the original value.
    prop.Value = tmp
    MsgBox("PROP NAME: " & prop.Name & "   VALUE: " & prop.Value)
End Sub

هذا المثال VSMacro بتغيير أحد إعدادات في الصفحة و ألوان خطوط للعقدة بيئة.

' Macro code.
Sub ToolOpt3()
    ' Changes the background color of text in the Fonts and Colors
    ' page of the Options dialog box on the Tools menu.
    Dim props As EnvDTE.Properties
    Dim prop As EnvDTE.Property
    Dim fontColorItems As EnvDTE.FontsAndColorsItems

    props = DTE.Properties("FontsAndColors", "TextEditor")
    prop = props.Item("FontsAndColorsItems")
    fontColorItems = prop.Object

    Try
        MsgBox("NAME: " & prop.Name & vbCr & "BACKGROUND VALUE: " & _
        CStr(fontColorItems.Item("Plain Text").Background.ToString))
        ' Turn the text background from its current color to red.
        fontColorItems.Item("Plain Text").Background = 255
        MsgBox("NAME: " & prop.Name & vbCr & "BACKGROUND VALUE: " & _
        Hex(fontColorItems.Item("Plain Text").Background.ToString))
    Catch ex As System.Exception
        MsgBox("ERROR: " & ex.Message)
    End Try
End Sub

يقوم هذا المثال VSMacro تشغيل لعدة لغات في العقدة محرر نص لمربع الحوار خيارات ترقيم الأسطر.

' Macro code.
Sub TurnOnLineNumbers()
   DTE.Properties("TextEditor", "Basic").Item("ShowLineNumbers") _
   .Value = True
   DTE.Properties("TextEditor", "PlainText").Item("ShowLineNumbers") _
   .Value = True
   DTE.Properties("TextEditor", "CSharp").Item("ShowLineNumbers") _
   .Value = True
   DTE.Properties("TextEditor", "HTML/XML").Item("ShowLineNumbers") _
   .Value = True
   DTE.Properties("TextEditor", "C/C++").Item("ShowLineNumbers") _
   .Value = True
   DTE.Properties("TextEditor", "Visual JSharp") _
   .Item("ShowLineNumbers").Value = True
End Sub

إضافة إعدادات إلى الصفحات خيارات موجودة

، عند يؤشر ما، يمكنك في تغيير أو إضافة الإعدادات الخاصة بك في الصفحات موجود خيارات ، مثل إضافة إعدادات خط الخاص بك في في الصفحة خطوط والألوان. لا يمكن القيام بذلك باستخدام Visual Studioطراز التنفيذ التلقائي. يجب استخدام برنامج Visual Studio Industry Partner (VSIP). للحصول على مزيد من المعلومات، راجع من ‏‫Visual Studio الصناعة شريك الموقع.

راجع أيضًا:

المهام

كيفية القيام بما يلي: قم بإنشاء الصفحات خيارات مخصصة

كيفية القيام بما يلي: الصفات المميزة لإطار تغيير

كيفية القيام بما يلي: قم بإنشاء إضافة-في

الإرشادات التفصيلية: إنشاء معالج

المبادئ

مخطط نموذج كائن تلقائي

موارد أخرى

إنشاء و التحكم في بيئة Windows

إنشاء إضافة-زر 'Ins' ومعالجات

التنفيذ التلقائي والمرجع الامتداد