Řídit možnosti nastavení
Můžete psát kód, chcete-li aktivovat nebo deaktivovat mnoho nastavení na stránkách Možnosti dialogové okno (dále jen Možnosti stránky).Stačí použít Properties vlastnost, Value vlastnost, a Item metoda DTE objektu v Visual Studio model automatizace.
[!POZNÁMKA]
Ačkoli mnoho položek na mnoha Možnosti stránky jsou přístupné programově, některé stránky mohou obsahovat položky, které nelze získat přístup.Je také možné, že Možnosti samotná stránka není k dispozici.Je-li nastavení nelze ovlivnit pomocí automatizace modelu, bude pravděpodobně možné to provést pomocí Visual Studio SDK.Další informace naleznete v části "Přidání nastavení na existující možnosti stránky" dále v tomto dokumentu.Seznam možností programově přístupný a jejich přesné názvy naleznete v tématu "Názvy vlastností položky" v Určení názvů vlastností položek na stránkách možnosti.
Chcete-li otevřít Možnosti dialogové okno v integrovaném vývojovém prostředí (IDE), na Nástroje nabídky, klepněte na tlačítko Možnosti.
Nastavení možností zobrazení
Použití Properties kolekce a Property objekt k nastavení přístupu na Možnosti stránky.Následující příklad sady Visual Studio zobrazí názvy, aktuální hodnoty a typy položek dokumenty stránky.
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
Try
msg += ("PROP NAME: " & prop.Name & _
" VALUE: " & prop.Value) & _
" TYPE: " & prop.Value.GetType.ToString()) & vbCr
Catch
End Try
Next
MsgBox(msg)
End Sub
Následující příklad zobrazí vlastnosti k dispozici na Možnosti stránku Seznam úkolů (pod prostředí uzlu).Obsahuje také seznam dostupných hodnot pro komentář Token seznam.
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
V tomto příkladu jsou uvedeny programovatelné nastavení Možnosti stránku Formát (podle Textový Editor, C#).
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
Změna nastavení možností
Nejen můžete zobrazit hodnoty nastavení na Možnosti stránku, můžete také změnit hodnotu.Následující příklady Visual Studio ukazují, jak to provést.
[!POZNÁMKA]
Přestože můžete změnit hodnoty ovládacích prvků na stávající Možnosti stránky, nelze přidat, odebrat nebo upravit některý z ovládacích prvků nebo nastavení.Chcete-li zadat vlastní nastavení, musíte vytvořit vlastní Možnosti stránky.Další informace naleznete v tématu Jak: vytvoření vlastní stránky Možnosti.
(ToolOpt1) v prvním příkladu přepne booleovskou hodnotu ReuseSavedActiveDocWindow, což je název znovu použít aktuální okno dokumentu, pokud uložení možnost na dokumenty stránky v rámci prostředí uzlu.
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
Následující příklad změny a obnoví velikost hodnota v karty část základní stránky v rámci Textový Editor uzlu.
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
V tomto příkladu změní nastavení na písma a barvy stránky v části prostředí uzlu.
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
V tomto příkladu zapne číslování řádků pro několik jazyků v Textový Editor uzlu.
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
Přidání nastavení na existující možnosti stránky
Nelze použít Visual Studio model automatizace přidat nastavení existujícího Možnosti stránky, nebo chcete-li změnit existující nastavení, chcete-li provést změny, je nutné použít Visual Studio SDK.Další informace naleznete Vývojové nástroje ekosystému partnerský portál webu.
Viz také
Úkoly
Jak: vytvoření vlastní stránky Možnosti
Názorný postup: Vytvoření Průvodce
Koncepty
Automatizační objekt modelu grafu